Creating Outlook message

[injanib via AccessMonster.com]

Hi,

I use the following code to compose/send outlook email that contains a report.


Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg

Set objOutlookRecip = .Recipients.Add(Me.txtEmail)
objOutlookRecip.Type = olTo

.Subject = "Invoice number " & txtInvoice & ""
.Body = "Greetings," & vbCrLf & vbCrLf & "Attached please find Invoice.
Have a great day"

Set objOutlookAttach = .attachments.Add(strPath)
If MsgBox("Do you want to add a message to the customer?", vbQuestion +
vbYesNo, "Add Message To The Customer?") = vbNo Then

.Send
Else
.Display
End If

End With
Exit Sub
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
Set objOutlookAttach = Nothing
Exit Sub


I would like to add a code that can insert my outlook signature. Is it
possible or should I add the necessary info in the .body of the message?