AddOutlook Signature when sending email through MS Access

[tbclbd]

I have an access 2003 app from which I can select files and attach them to e-mails. I have no problem getting Outlook to open, show the attached files. Is there a way that I can get the signature file from Outlook and add it to the body of the e-mail>

 

[Remou]

Outlook signatures are stored in three files in a signature directory. Here are a few notes on one possibility:

Dim em As MailItem
Dim fs As Object
Dim f As Object

Set fs = CreateObject("Scripting.FileSystemObject")

strPath = "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Signatures\"
'This will be whatever the user has called the signature file, there will be three
strFileName = "user.htm" 'or .rtf, .txt

Set f = fs.OpenTextFile(strPath & strFileName, 1) '1=for reading
strSig = f.ReadAll

Set em = ap.CreateItem(olMailItem)
em.HTMLBody = "hi" & vbCrLf & strSig
em.Display

http://lessthandot.com

 

[tbclbd]

Thank you Remou. With just a couple of tweaks, I was able to get my signature into the e-mail.

Now I just have to clean up my code, and work through the security.

Thanks again!