Command Bar Controls - Mail Item In Draft Folder OL2K

J

John Gregory

How can I access the OL2K menus on a new mail item in the Draft
folder, for Format and Plain Text? The following does not work, bu
hopefully show what I am trying to do. I want to send all mail item
plain text without having to remember to click the menus Format an
Plain Text before I click the Send button for new mail items create
in VBA

Sub MailItem_Menus_CommandBars(
Dim olApp As Outlook.Applicatio
Dim olMailItm As Outlook.MailIte
Dim olDraftItem As Objec
Dim objBar As Office.CommandBa
Set olApp = New Outlook.Applicatio
Set olMailItm = olApp.CreateItem(olMailItem
With olMailIt
.To = "[email protected]
.Subject = "Msg Serial Number 0002
.Body = "Msg Body created by VBA.
.Sav
.Display (False) 'Display or Sen
End Wit
Set olDraftItem = olApp.ActiveInspector.CurrentIte
'Set objBar = objItem.CommandBars("Mail Item") 'WRON
'Set objBar = objItem.CommandBarControls("62372716") WRON
'I want to activate this mail item menu controls fo
'Format and then "Plain Text"
olDraftItem.Sav
'olApp.Qui
Set olApp = Nothin
Set olMailItm = Nothin
End Su

Thanks Joh
 
Top