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