0

Hi

I am not familiar in how to create HTML Embeded emeil.
Currently I am using below code, It is work fine and send email
with plain text. It is not look nice. I need to formated embeded
email with logo and below information together to the email. I have
tried in Google. But could not find proper solution. I am also getting confusion

Pls advice me.

Thank you in advance

Maideen

Below is code ( currently I am using , it is fine)

Private Sub SendEmail(EmailAddress As String)

        Dim mail As New MailMessage()
        mail.To.Add(EmailAddress)
        mail.From = New MailAddress("xxxxxx@xxx.com")
        mail.CC.Add(Me.txtSAgentEmail.Text)
        mail.Subject = "Complaint"
        mail.Body = "Thank you for your suggession " & "<br>"
        mail.Body = mail.Body & " Date:- " & Date & "<br>"
        mail.Body = mail.Body & " Case ID:- " & caseid & "<br>"
        mail.Body = mail.Body & " Pakcage:- " & txtPKCode & "<br>"
        mail.Body = mail.Body & " Subscriber ID:- " & Code & "<br>"
        mail.Body = mail.Body & " Subscriber Name:- " & Name & "<br>"
        mail.Body = mail.Body & " Company:- " & Company & "<br>"
        mail.Body = mail.Body & " Job Title:- " & JobTitle & "<br>"
        mail.Body = mail.Body & " Address:- " & Address1 & "<br>"
        mail.Body = mail.Body & " Address:- " &BAddress2 & "<br>"
        mail.Body = mail.Body & " Post Code:- " & PosCode & "<br>"
        mail.Body = mail.Body & " City:- " & City & "<br>"
        mail.Body = mail.Body & " State:- " & State & "<br>"
        mail.Body = mail.Body & " Country:- " & Country & "<br>"
        mail.Body = mail.Body & " Tel:- " & TelNo & "<br>"
        mail.Body = mail.Body & " HP:- " & HPNo & "<br>"
        mail.Body = mail.Body & " Compalints:- " & Me.txtComplaints.Text & "<br>"
        mail.Body = mail.Body & " Status:- " & Status & "<br>"

        mail.IsBodyHtml = True

        Dim smtp As New SmtpClient()
        smtp.Host = "smtp.xxxx.com"
        smtp.EnableSsl = True
        Dim NetworkCred As New System.Net.NetworkCredential()
        NetworkCred.UserName = mail.From.Address
        NetworkCred.Password = "password"
        smtp.UseDefaultCredentials = False
        smtp.Credentials = NetworkCred
        smtp.Port = 587
        smtp.Send(mail)


    End Sub
2
Contributors
1
Reply
14
Views
2 Years
Discussion Span
Last Post by djjeavons
0

Hi

Your code is sending HTML email and you have the IsBodyHtml property properly set so I am not sure why you think it is plain text. What I have noticed is that other than the inclusion of <br> tags, you are not using any other HTML markup which might be why you think it is plain text.

As a test, add some markup to your text, for example, change your first line to mail.Body = "<b>Thank you for your suggession</b> " & "<br />" and test it. You should then see that the email has the first line in bold.

Some other comments, your <br> tags should be <br /> (i.e. they are self closing).

Also, I would recommend using a StringBuilder to build your message, especially if the content of your email is going to be quite large as this has performance benefits.

HTH

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.