adding signature to the email sendobject

[webisti]

Hi I am trying to include in the VB code also the signature :


Here is my code:

Private Sub Create_Outlook_email()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim db As DAO.Database
Dim fs, f
Dim RTFBody, strTo
Dim objOutlookRecip As Outlook.RECIPIENT
Dim MyOutlook As Outlook.Application
Dim MyItem As Outlook.MailItem   
 Dim SigString As String
Dim Signature As String
 
Set MyOutlook = CreateObject("Outlook.Application")
Set MyItem = MyOutlook.CreateItem(olMailItem)
With MyItem
   .To = tmpCustEmail
   .SUBJECT = "Hello Dear customer "
   .HTMLBody = RTFBody & vbCrLf & vbCrLf & Signature
End With
MyItem.Display

but my signature does not appear
It is saved as a default.htm
and I am working on a multiuser platform.
Anybody has overcomed this issue?
Any help?

Thanks

[June7]

Google: access vba outlook email signature
Review http://www.rondebruin.nl/mail/folder3/signature.htm

You declare RTFBody and Signature variables but I don't see them getting populated.

[webisti]

The signature has this code:

SigString = "C:\Users\" & fOSUserName & "\AppData\Roaming\Microsoft\Signatures\default .htm "
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If

and the RTFBody is created on the fly via a report.

[June7]

Don't understand. Your procedure does not show setting the variables before used. How does RTFBody get from report to this procedure? Did you try the code from the link I referenced? Post your complete procedure.