У меня есть длинный список отчетов о расходах, отправляемых различным получателям.Прикрепление конкретных файлов к соответствующим получателям
Я думал, что я мог бы иметь один Excel файл с адресами и соответствующими Расположение т.е. A1 [email protected] A2 0001 B1 [email protected] B1 0002
Затем с помощью VBA цикл через каждая строка (1) и найдите папку для соответствующего (A2) имени файла и присоедините ее к почте в ячейку (A1).
Я предполагаю, что у вас есть заголовки в первом ряду. Непрошеным.
Sub AntMan()
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim lastRow As Long
Dim MailDest As String
Dim subj As String
lastRow = ThisWorkbook.WorkSheets("Sheet6").Cells(Rows.Count, "A").End(xlUp).Row 'change worksheet
For i = 2 To lastRow
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set Attach = OutLookMailItem.Attachments
With OutLookMailItem
.To = Cells(i, 1).Value
.SUBJECT = "Put your subject here"
.Body = "Put your body here"
Attach.Add "C:\your\file\path\here\" & Cells(i, 2).Value & ".xlsx"
.Display 'for debugging
.Send
End With
Next
End Sub
Что у вас нет перспективы? Можно использовать другие почтовые клиенты, такие как «Windows live 2012» или «Thunderbird». – HarveyFrench
@HarveyFrench OP не уточнил. – findwindow
Спасибо, работал как шарм. Я использую прогноз. – AntMan
Вы на правильном пути. В столбце A есть электронные письма. Столбец B имеет местоположение файла. Пройдите через столбец A, чтобы получить электронную почту и колонку B для присоединения. Эта ссылка - отличное начало. http://stackoverflow.com/questions/17883088/excel-vba-sending-mail-using-outlook-send-method-fails. (Не знаю, почему у пользователя возникла проблема с '.Send', но он всегда работает для меня.) Итак, настройте цикл в своей книге и примените' To' из столбца A и 'Attachment' из столбца B и заполните оставшуюся часть по мере необходимости. –