Creating "Plain Text" email in Outlook2000 from Excel VBA

[Shane]

Hi,

I'm trying to streamline the sending of e-mails by Microsoft Outlook
using VBA from Excel. I'm running Outlook 2000 sp3.

My problem is that the code below (taken from )
creates an "Rich Text Format" email, whereas I need the message in
"Plain Text".

The default message style in Outlook is "Plain Text" .

Can anyone help?

Thanks

Shane


Sub Mail()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Application.ScreenUpdating = False
Set olApp = New Outlook.Application


Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "(e-mail address removed)"
.Body = "Hello"
.Display
End With
Set olMail = Nothing

Set olApp = Nothing
Application.ScreenUpdating = True
End Sub

 

[Sue Mosher [MVP]]

To create a plain text message in Outlook 2000, you would have to use CDO to create the message, not Outlook objects.
--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers