How can I set the font in outlook before writing the message body?
I am sending an Outlook message from Access and need to set the font to courier before the body is written. Below is my code as it stands right now. It basically creates an Outlook message using data from the active record. The font needs to be set to courier in order to help in the message format because courier characters are the same width.
Private Sub Outlook_Click()
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim CurntDesc As String
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Set the Subject, Body, and Importance of the message.
.Subject = CurntRecDesc
.Body = CurntRec & vbCrLf & vbCrLf
objOutlookMsg.Display
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
