S
Sean McPoland
Hi all,
I have an extremely simple macro as follows:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Class > olMail Then Exit Sub
Item.Body = Replace(Item.Body, "My N ame" & vbCrLf, "My Name, CISA" & vbCrLf)
End Sub
However: when it executes it changes the MESSAGE PARAGRAPH FONT and
CHARACTER Size from what I have it set as (Verdana 10) to Calibri 12.
This shouldn't happen!
Can anyone help please...
Many thanks in advance,
Sean
I have an extremely simple macro as follows:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Class > olMail Then Exit Sub
Item.Body = Replace(Item.Body, "My N ame" & vbCrLf, "My Name, CISA" & vbCrLf)
End Sub
However: when it executes it changes the MESSAGE PARAGRAPH FONT and
CHARACTER Size from what I have it set as (Verdana 10) to Calibri 12.
This shouldn't happen!
Can anyone help please...
Many thanks in advance,
Sean