Unanswered: Email created from Access is in the wrong format
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!
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the e-mail message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
' 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
Set objOutlookRecip = .Recipients.Add(Forms!quote_form!SALESEM)
objOutlookRecip.Type = olCC
' 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")
' Resolve the name of each Recipient.
For Each objOutlookRecip In .Recipients
If Not objOutlookRecip.Resolve Then
Set objOutlookMsg = Nothing
Set objOutlook = Nothing