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.
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 = "Mold Base Quotation"
.Body = "Thank you for the opportunity to quote your mold base needs. Please call with any quetions 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