add signature on email

[Leo_Polla_Psemata]

            With M
            .BodyFormat = olFormatHTML
            .HTMLBody = Msg1
            
            .To = "me@gmail.com;"
            .CC = "you@gmail.com"
            .Subject = "xyzabc "
            .Display
            
        End With

Hi
With the above, we can tune our email parts, what should we type in order to have the signature laid at the end ?
I use outlook in which my signature is standard , however, when i open email from access, i have to add each time, manually, my signature.

 

[arnelgp]

before anything, copy this in a module:

Public Function ReadSignature(sigName As String) As String
' arnelgp
'
' sigName should include the .htm extension
'
Dim appDataDir  As String
Dim sig         As String
Dim sigPath     As String
Dim filename    As String
appDataDir = Environ$("APPDATA") & "\Microsoft\Signatures"
sigPath = appDataDir & "\" & sigName
With CreateObject("Scripting.FileSystemObject")
    sig = .OpenTextFile(sigPath).ReadAll
End With
' for testing only
'With CreateObject("Scripting.FileSystemObject").CreateTextFile(Environ("userprofile") & "\desktop\sig2.txt", True)
'    .Write sig
'    .Close
'End With
'
' fix relative references to images, etc. in sig
' by making them absolute paths, OL will find the image
filename = Replace$(sigName, ".htm", "_files/")
sig = Replace$(sig, filename, appDataDir & "\" & filename)
ReadSignature = sig
End Function

goto the folder where Outlook is saving the signature.
press (Win logo) + R (run)
type:
%appdata%\Microsoft\Signatures [Enter]
write (or memorize) the name of the file on that folder with .htm as extension.

your code:

    Dim sig As String
      '!!!!!
      ' Replace "MySig.htm" with the name of your signature
       sig = ReadSignature("Mysig.htm")

           With M
            .BodyFormat = olFormatHTML
            .HTMLBody = Msg1 &  "<p><br/><br/></p>" & sig
           
            .To = "me@gmail.com;"
            .CC = "you@gmail.com"
            .Subject = "xyzabc "
            .Display
           
        End With

 

[oleronesoftwares]

Add signature to Email body

Hello, I am using the code below (it's only a part of the whole code) to open Outlook from a form. Is there a way I can also add the Signature already available in Outlook, in the body of the mail? Thank you for your help. " ' Create the Outlook session. Set objOutlook =...

www.access-programmers.co.uk

Please read through the post above, same question was asked, and some ideas and codes were given.

Cheers