0

I've adjusted a VBA code to automate personalized Mails to be sent out in Outlook to around 50 receipients each week.

Everything works out well, I can change the E-Mail of the receipients, E-Mail subject, personalize E-Mail Body, but I could not figure out how to add my Outlook signature (with my personal logo) to the VBA code.

Sub EmailAll()
Dim oApp As Object
Dim oMail As Object
Dim SendToName As String
Dim theSubject As String
Dim theBody As String
For Each c In Selection
 
    SendToName = Range("D" & c.Row)
    CCName = Range("E" & c.Row)
    theSubject = Range("H" & c.Row)
    theBody = Range("I" & c.Row)

    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    
    With oMail
        .To = SendToName
        .cc = CCName
        .Subject = theSubject
        .Body = theBody
  
     .display
    '.Send
    
    End With
Next c
End Sub

A friend shared the following with me, but I could not figure out where to implement this part into the VBA code.

With objOutlookMsg

.display
Signature = Trim(objOutlookMsg.HTMLbody)

End With

Many thanks for your help and best regards

Pᴇʜ
  • 53,845
  • 9
  • 46
  • 68
TribunX
  • 1
  • got an old code where I saved the logo of the company in the same folder of the workbook and solved it this way Fname = ThisWorkbook.Path & "\Logo.jpg" With OutMail .Attachments.add Fname, 1, 0 end with – Sam Mar 04 '22 at 14:04

0 Answers0