I used HTML construct when sending email in email body but receive as a plain text. What am I missing? here is my code:
Function BuildHtmlBody(SQLStatement As String, ByVal Name As String)
Dim html, State, Qty
html = "<!DOCTYPE html><html><body>"
html = html & "<div style=""font-family:'Segoe UI', Calibri, Arial, Helvetica; font-size: 14px; max-width: 768px;"">"
html = html & "Dear {Name}, <br /><br />Please receive statement. <br />"
html = html & "Here is current status:<br /><br />"
html = html & "<table style='border-spacing: 0px; border-style: solid; border-color: #ccc; border-width: 0 0 1px 1px;'>"
Dim sql
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
sql = SQLStatement
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
rs.MoveFirst
Do While Not rs.EOF
State = Trim(rs!StateName)
Qty = Trim(rs!RealQty)
html = html & "<tr>"
html = html & "<td style='padding: 10px; border-style: solid; border-color: #ccc; border-width: 1px 1px 0 0;'>" & State & "</td>"
html = html & "<td style='padding: 10px; border-style: solid; border-color: #ccc; border-width: 1px 1px 0 0;'>" & Qty & "</td>"
html = html & "</tr>"
rs.MoveNext
Loop
html = html & "</table></div></body></html>"
BuildHtmlBody = html
End Function
Function BuildHtmlBody(SQLStatement As String, ByVal Name As String)
Dim html, State, Qty
html = "<!DOCTYPE html><html><body>"
html = html & "<div style=""font-family:'Segoe UI', Calibri, Arial, Helvetica; font-size: 14px; max-width: 768px;"">"
html = html & "Dear {Name}, <br /><br />Please receive statement. <br />"
html = html & "Here is current status:<br /><br />"
html = html & "<table style='border-spacing: 0px; border-style: solid; border-color: #ccc; border-width: 0 0 1px 1px;'>"
Dim sql
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
sql = SQLStatement
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
rs.MoveFirst
Do While Not rs.EOF
State = Trim(rs!StateName)
Qty = Trim(rs!RealQty)
html = html & "<tr>"
html = html & "<td style='padding: 10px; border-style: solid; border-color: #ccc; border-width: 1px 1px 0 0;'>" & State & "</td>"
html = html & "<td style='padding: 10px; border-style: solid; border-color: #ccc; border-width: 1px 1px 0 0;'>" & Qty & "</td>"
html = html & "</tr>"
rs.MoveNext
Loop
html = html & "</table></div></body></html>"
BuildHtmlBody = html
End Function