Microsoft Office Forums - View Single Post - VBA macro to send Emails from Word: First line font

BigMac'ro · 02-26-2025, 12:49 AM

Hello,

I'm working on a macro allowing me to send Emails (via Outlook) to several persons. It is based on an Excel-List containing the Email-addresses and on a Word document as the body of the mail. It works quite well, and I just found a way to include the default signature after the mail body

During testing, I was surprised that the first line of the Email is always formatted in a different font. The first line is Times New Roman, size 12; the rest of the mail is in Calibri, size 10. In the source document in Word, everything is Arial, size 10.

Does anyone know where this comes from and how it can be solved?

Here is the code relevant for sending the mails:

Code:

Set objMail = objOutlook.CreateItem(0)
      Dim signature As String                 


' E-Mail settings     
With objMail
         .Display
         signature = objMail.HTMLBody
         .To = strTo
         .Subject = strSubj
         .BodyFormat = 2
         .HTMLBody = strBody & signature
         For a = LBound(strIndivAttach) To UBound(strIndivAttach)          ' in case there are several attachments
             If Dir(strIndivAttach(a)) <> "" Then
                 .Attachments.Add (strIndivAttach(a))
             End If
         Next a
         .Send   ' Send
     End With

(you will have guessed: strIndivAttach is an array of strings containing the paths to the attachments - but I don't think that's relevant here)

It's also worth noticing that this issue does not occur if I send the Emails without signature - i.e. when I remove

Code:

.Display
signature = objMail.HTMLBody

and have only

Code:

.HTMLBody = strBody

in the code above.

Thank you!