Hello,
Below is my code that allows me to open up an email in Outlook and also brings up my email signature. I was able to tell the body to use the font type and size, but I am having issues matching up the signature and the body. The signature always seems to be a font of 12 when the body of my email is 11 (even though the code says 14.5) Any ideas on how to get the signature the same size as my body? thanks alot
Sub Mail_Outlook_With_Signature_Html_1()
' Working in Office 2000-2013
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Hello,<br>" & _
"<br>Can you please check the status of the<br>" & _
"<br>Thanks"
On Error Resume Next
With OutMail
.Display
.To = "name@hotmail.com"
.CC = ""
.BCC = ""
.Subject = Range("B3") & " " & Range("D1") & " " & Range("E1").Value
.HTMLBody = "<p style='font-family:Calibri;font-size:14.5'>" & strbody & "<br>" & .HTMLBody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bookmarks