Hey All,


I have created the following code in my data base. It works correctly except that the email it creates is in the rich text format. I want it to be in plain text format. The default settings in outlook are set to plain text, but my code seems to over ride the default settings. I am using Outlook 2000 sp-3.
Any help would be greatly appreciated!
Stick

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")


' Create the e-mail message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)


With objOutlookMsg
' Add the To recipients to the e-mail message.
Set objOutlookRecip = .Recipients.Add(Forms!quote_form!CUSTEM)
objOutlookRecip.Type = olTo

' Add the Cc recipients to the e-mail message.
If (IsNull(Forms!quote_form!SALESEM)) Then
Else
Set objOutlookRecip = .Recipients.Add(Forms!quote_form!SALESEM)
objOutlookRecip.Type = olCC
End If

' Set the Subject, the Body, and the Importance of the e-mail message.
.Subject = "Quotation"
.Body = "Thank you for the opportunity to quote your needs. Please call with any questions you may have."

.Importance = olImportanceHigh 'High importance

'Add the attachment to the e-mail message.
If Not IsMissing("c:\quotation.pdf") Then
Set objOutlookAttach = .Attachments.Add("c:\quotation.pdf")
End If


' Resolve the name of each Recipient.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next
.Display
End With

Set objOutlookMsg = Nothing
Set objOutlook = Nothing