Рассылка почты макросом

[Dimitriusik]

Имеется следующий макрос для рассылки почты.
Нужно изменить следующим образом:
1) чтоб при прикреплении файла проверял наличие такого файла. И если нет такого файла - пропускал рассылку по данному адресу.
При отправке в outlook постоянно задает вопрос "действительно отправить файл?". нужно постоянно соглашатьсяБезымянный.jpgDim objOutlookApp As Object, objMail As Object
Dim sTo As String, sSubject As String, sBody As String, sAttachment As String
Dim lr As Long, lLastR As Long

Application.ScreenUpdating = False
On Error Resume Next

Set objOutlookApp = GetObject(, "Outlook.Application")
Err.Clear
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
objOutlookApp.Session.Logon

lLastR = Cells(Rows.Count, 1).End(xlUp).Row

For lr = 2 To lLastR
Set objMail = objOutlookApp.CreateItem(0)

With objMail
.to = Cells(lr, 1).Value
.Subject = Cells(lr, 2).Value
.Body = Cells(lr, 3).Value
.Attachments.Add Cells(lr, 4).Value
.Send
End With
Next lr

Set objOutlookApp = Nothing: Set objMail = Nothing
Application.ScreenUpdating = True

End Sub

[Aleksandr H.]

Здесь ответов не было?
https://www.google.com.ua/search?q=v...CwGYKdXsDgkPAG

https://www.google.com.ua/search?q=e...W2BoKdXsDgkPAG