Changing plain text VBA to HTML, when sending an email

10 pts.
Tags:
Access VBA
HTML
Microsoft Access 2010
I've never used HTML, and I built some VBA to send out an Outlook email from Access... my code is as follows, and I'm wondering how hard this would be to translate over to HTML, for a novice?
Function Aonq_Email()
On Error GoTo Error_Message
Call cmdInputBox_Click
DoCmd.SetWarnings False
DoCmd.SendObject , "", "", shanta@.com", "", _
"Daily Applications - Cover Letters and Forms Have Been Completed -- " & Format(Now(), "mm/dd/yyyy"), _
"Hello," & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "# of applications received by State:" & vbCrLf & vbCrLf & " Aonq Place:" _
& vbCrLf & _ " PA: " & DCount("APP_RECVD_DATE", "t_VENDOR_DATA_IMPORTED", "VENDOR = 'Aonq' And State_Code = 'PA' And APP_RECVD_DATE between " & "#" & FirstDate & "#" & " And " & "#" & SecondDate & "#" & " ") & vbCrLf & _
vbCrLf & vbCrLf & vbCrLf & _ "The acceptable applications are attached; if no applications were received, no attachment will be sent." & vbCrLf & vbCrLf & vbCrLf & _ "Please let us know if additional detail is needed." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _ "Thanks," & vbCrLf & "Enrollment & Reconciliation Team"
DoCmd.SetWarnings True
Beep MsgBox "Aonq's email has been sent.", vbInformation, ""

Aonq_Email_Exit: Exit Function
Error_Message: MsgBox "Aonq's email has NOT been sent.", vbCritical, ""
Resume Aonq_Email_Exit
End Function
0

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

Discuss This Question:  

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: