Can you explain to me why my signature dissapears ?
Hi all,
Would be great if you explain to me why my signature dissapears? And how can I get it back?
Sub send_email_with_attachments()
On Error Resume Next
Dim o As Outlook.Application
Set o = New Outlook.Application
Dim omail As Outlook.MailItem
Dim i As Long
For i = 2 To Range("a100").End(xlUp).Row
Set omail = o.CreateItem(olMailItem)
With omail
.Body = "Dear " & Cells(i, 1).Value & vbNewLine & vbNewLine _
& "Please update your file." & vbNewLine _
& "Please feel free to contact me if you need any clarification."
.To = Cells(i, 2).Value
.CC = Cells(i, 3).Value
.Subject = Cells(i, 4).Value
.Attachments.Add Cells(i, 5).Value
.Display
End With
Next
End Sub