У меня есть лист Excel с адресами электронной почты, To, CC, Subject и т. Д.
У меня есть пути к файлам для каждого вложения.Это заявления.Некоторые .PDF и некоторые .XLSX в зависимости от запроса.Хотя у меня есть путь к файлу, в некоторых есть несколько столбцов EL, но не во всех строках будет путь к файлу, а не всегда оператор в конце пути.
Мне нужен код VBA для игнорирования пробелов иотсутствующие файлы только прикрепляются как найдено.Это может быть целых 9 файлов или только один или ни одного по строке для получателя.
Я не могу заставить его работать без ошибок, в моей тестовой среде, игнорируя пустые ячейки без пути или путей, которые делаютнет файла.
Sub SendMail()
Dim objOutlook As Object
Dim objMail As Object
Dim ws As Worksheet
Set objOutlook = CreateObject("Outlook.Application")
Set ws = ActiveSheet
For Each cell In ws.Range("A2:A196")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = cell.Value
.CC = cell.Offset(0, 1).Value
.Subject = cell.Offset(0, 2).Value
.Body = cell.Offset(0, 3).Value
.Attachments.Add cell.Offset(0, 4).Value
.Attachments.Add cell.Offset(0, 5).Value
.Attachments.Add cell.Offset(0, 6).Value
.Attachments.Add cell.Offset(0, 7).Value
.Attachments.Add cell.Offset(0, 8).Value
.Display
End With
Set objMail = Nothing
Next cell
Set ws = Nothing
Set objOutlook = Nothing
End Sub
Это мой первый проект VBA.