Add a dynamic signature in VBA

[QMAN223]

I would like to add a dynamic signature in VBA whenever someone opens the distribution list to send an emails out to people.

Scenario:

IF I OPEN the distribution list, the email will be created and it will have MY Signature on to the Body of the email.

If someone ELSE opens the distribution list, their Email Signature is added to the Body of the email.

Here is the code I'm working with:

Sub Send_Email_With_Attachment()

Dim emailApplication As Object
Dim emailItem As Object


Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

'Date Update in Subject Line

Dim lastSunday As Date
lastSunday = DateAdd("d", 1 - Weekday(Now), Now)

'Now build the email.

emailItem.To = Range("A2").Value

emailItem.CC = Range("B2").Value

emailItem.body = "Dear All" & vbCrLf & vbCrLf & "Please find attached the Weekly Training report." & vbCrLf & vbCrLf & "Kind Regards,"

'Send the email
emailItem.Display

 

[KOKOSEK]

Do you want to use for users outlook signature? What do you mean by 'My signature' and 'their signature'?

 

[QMAN223]

So, depending on who's logged in and accessed the distribution list, the macro should automatically put their signature in the body.

 

[KOKOSEK]

So I assume that you mean outlook's signature.
Problem can appear when users has differently named their signatures. Usually in companies signatures have the same names. Try.

Add these into a code:

'Change file name of .htm document of your signature
    SigString = Environ("appdata") & "\Microsoft\Signatures\This_Name_Have_to_be_adapt.htm"
    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If

then

emailItem.htmlbody = emailItem.body & Signature

p.s. put this into vba code as well (it is necessary)

Function GetBoiler(ByVal sFile As String) As String
'**** Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function

 

[QMAN223]

Thanks for your help!