Signature is not appearing in Email created via VBA

[Oberon70]

Hi,

I have the below code, but the signature doesn't appear when I run it? Any idea why?

Sub email()

Dim source_file, to_emails, cc_emails As String
Dim i, j As Integer
Dim strFile As String
Dim filelocation As String
Dim fCell As String
Dim OApp As Object, OMail As Object, signature As String


Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)


Set ws = Sheets("Report")


fCell = ActiveCell.Row

filelocation = Sheets("Report").Range("S" & fCell)

ws.Range("S" & fCell).Select

source_file = filelocation

'signature = OMail.Body

With OMail
    .Display
    .To = "TimeLord@Tardis.com"
    .Subject = "What Century
    .Attachments.Add source_file
    .Body = "Hi Doctor," & vbNewLine & vbNewLine & "Would you please let me know what time and place we are visiting?" & vbNewLine & vbNewLine & "Thanks"
    .Display
    '.Send
End With

Set OMail = Nothing
Set OApp = Nothing
End Sub

 

[gordsky]

you need to attach the signature before the body. So change would be something like (not sure if you would need to change to htmlbody rather than body)

With OMail
    .Display
    signature = Omail.Body
    .To = "TimeLord@Tardis.com"
    .Subject = "What Century
    .Attachments.Add source_file
    .Body = "Hi Doctor," & vbNewLine & vbNewLine & "Would you please let me know what time and place we are visiting?" & vbNewLine & vbNewLine & "Thanks"
    .body = .body & signature
    .Display
    '.Send
End With