Hi Everyone,
I am working with an older version of Acess and Outlook and have created a form that displays individual record information from a query. I added a Command Button for the user to use when sending an email to the person on the form. When Outlook opens, the message is on a single line. How could I add a new line to avoid one long line of text? Any guidance or direction is greatly appreciated!
Here is the code behind the Command Button:
I am working with an older version of Acess and Outlook and have created a form that displays individual record information from a query. I added a Command Button for the user to use when sending an email to the person on the form. When Outlook opens, the message is on a single line. How could I add a new line to avoid one long line of text? Any guidance or direction is greatly appreciated!
Here is the code behind the Command Button:
Code:
Private Sub Command13728_Click()
Dim Msg As String
Msg = "Dear:" & " " & Me.FNAME.Value & "," & " " & _
"Your expiration date is:" & "" & Me.EXPRDATE.Value
Dim O As Outlook.Application
Dim m As Outlook.MailItem
Set O = New Outlook.Application
Set m = O.CreateItem(olMailItem)
With m
.BodyFormat = olFormatHTML
.HTMLBody = Msg
.To = EMAIL
.Subject = "Rideshare Renewal"
.Display
End With
Set m = Nothing
Set O = Nothing
End Sub