Sorry about the text being garbled. Here is the corrected version.
I am using a DNN module to create an automated email. The body of the email contains a string field from the database containing HTML tags which is put in a field called 'comments' having this HTML value:
ok signoff from apprentice.
I would like the tags to be translated so that the text is in HTML as shown above but instead it displays the text and HTML tags.
Here is the code:
sub sendemail(byval fromemail as string, byval toemail as string, byval cc as string, byval bcc as string)
Dim msgSummary As String
msgSummary=comments ' (comments is a text field from the database containing text and HTML tags)
Dim OpenEmailFormatting As String
OpenEmailFormatting =
""
OpenEmailFormatting +=
"<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
OpenEmailFormatting +=
"<HTML><HEAD><TITLE></TITLE>"
OpenEmailFormatting +=
"<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">"
OpenEmailFormatting +=
"</HEAD><BODY>"
Dim CloseEmailFormatting As String
CloseEmailFormatting =
"</BODY></HTML>"
'TO
MsgSubject = "DEAP Signoff-- Test-Disregard"
MsgBody = OpenEmailFormatting & msgSummary & CloseEmailFormatting
'SEND
If Not appemail Is Nothing Then
Services.Mail.Mail.SendMail(fromemail, toemail, cc, bcc, Services.Mail.MailPriority.Normal, MsgSubject, Services.Mail.MailFormat.Html, System.Text.Encoding.UTF8, MsgBody, "", SMTPServer, SMTPAuthentication, SMTPUsername, SMTPPassword)
End If
End Sub
Thanks for helping.