I have some code that attaches a report to an email. What I need to be able to do is make the body of the email's text bold and red, but I can't figure out how to do it! Can someone help??
Here is the code:
Private Sub Command3_Click()
Dim rptName As String
Dim bytchoice As Byte
Dim strmsg As String
Dim intoptions As Integer
Dim tmpdate As Date
strmsg = "Are you sure you want to send this report?"
intoptions = vbQuestion + vbYesNo
bytchoice = MsgBox(strmsg, intoptions)
If bytchoice = vbYes Then
tmpdate = InputBox("Enter date of Release")
rptName = "Release Summary Document - Walt"
DoCmd.SendObject acSendReport, rptName, acFormatRTF, InsertEmailAddressHere, , , "IMPORTANT: WALT Release Summary - " & tmpdate, "Important WALT Release Notice Attached. Please distribute to EVERY WALT User in Your Department. Changes are scheduled to be moved into Production on " & tmpdate & ".", False
Else
If bytchoice = vbNo Then
Cancel = True
End If
End If
End Sub
Here is the code:
Private Sub Command3_Click()
Dim rptName As String
Dim bytchoice As Byte
Dim strmsg As String
Dim intoptions As Integer
Dim tmpdate As Date
strmsg = "Are you sure you want to send this report?"
intoptions = vbQuestion + vbYesNo
bytchoice = MsgBox(strmsg, intoptions)
If bytchoice = vbYes Then
tmpdate = InputBox("Enter date of Release")
rptName = "Release Summary Document - Walt"
DoCmd.SendObject acSendReport, rptName, acFormatRTF, InsertEmailAddressHere, , , "IMPORTANT: WALT Release Summary - " & tmpdate, "Important WALT Release Notice Attached. Please distribute to EVERY WALT User in Your Department. Changes are scheduled to be moved into Production on " & tmpdate & ".", False
Else
If bytchoice = vbNo Then
Cancel = True
End If
End If
End Sub