Hello,
Would love another set of eyes to look at this VBA code. The font and font size won't change to Segoe UI. When I run the macro the word hello is at Calibri 8.5 and the rest of the sentence is Calibri 10. I would like the all of the words to be Segoe UI size 11, including the date.
Any Help would be greatly appreciated.
Bev
Public Sub Reply()
Dim olItem As Outlook.MailItem
Dim olReply As MailItem ' Reply
strDate = Format(Date, "mmm dd yyyy")
For Each olItem In Application.ActiveExplorer.Selection
Set olReply = olItem.ReplyAll
olReply.HTMLBody = "<p style='font-family:'Segoe UI'><p style='font-size:11px'>Hello, <p> The individuals(s) in the email below have been submitted to the customer today, " & strDate & olReply.HTMLBody
olReply.Display
'olReply.Send
Next olItem
End Sub
Would love another set of eyes to look at this VBA code. The font and font size won't change to Segoe UI. When I run the macro the word hello is at Calibri 8.5 and the rest of the sentence is Calibri 10. I would like the all of the words to be Segoe UI size 11, including the date.
Any Help would be greatly appreciated.
Bev
Public Sub Reply()
Dim olItem As Outlook.MailItem
Dim olReply As MailItem ' Reply
strDate = Format(Date, "mmm dd yyyy")
For Each olItem In Application.ActiveExplorer.Selection
Set olReply = olItem.ReplyAll
olReply.HTMLBody = "<p style='font-family:'Segoe UI'><p style='font-size:11px'>Hello, <p> The individuals(s) in the email below have been submitted to the customer today, " & strDate & olReply.HTMLBody
olReply.Display
'olReply.Send
Next olItem
End Sub