View Single Post
  #1  
Old July 2nd 09, 07:32 PM posted to microsoft.public.outlook.program_vba
JBark
external usenet poster
 
Posts: 6
Default Specify Font Name or Face using VBA Macro in Word

Hello - when I use vba to create an Outlook mail item using Word 2003 as the
email editor, can I specify the font to be used in my vba macro code? Right
now it pulls whatever the user has set as the default in Word under Tools
Options General Email Options Personal Stationary. I tried the code
listed below, but it has no effect. Thanks for any suggestions.

Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
..To = "
..Subject = "MySubject"
'Add the document as an attachment, you can use the .displayname property
'to set the description that's used in the message
..Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue
..Body = ActiveDocument.Content
..Font.Name = "Verdana"
..Send
End With

Ads