Hej! Du väljer själv om du vill skicka som text eller html. Detta gör du med msg.BodyFormat. Se nedan på ett exempel av en funktion jag använderMailkomponent
Har tidigare använt system.web.mail för att skicka våra orderbekräftelser och nyhetsbrev.
Problemet är att jag vill kunna skicka multipart mail (både html + text) vilket inte fungerar så bra i system.web.mail
Är det jmail man skall köpa eller hur löser man det bäst?
Tacksam för idéer!
peterSv: Mailkomponent
Imports System.Web.Mail
Shared Function SendMail(ByVal From As String, ByVal MailTo As String, ByVal Subject As String, ByVal
Message As String, ByVal sendtype As MailFormat, Optional ByVal relay As Boolean = True) As Boolean
Dim svr As SmtpMail
Dim msg As New MailMessage
If relay = True Then
msg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = MailAuthenticationType.Basic
msg.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx"
msg.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
Message = Replace(Message, vbCrLf, "<br>")
Else
Message = Replace(Message, "<br>", vbCrLf)
End If
msg.From = From
msg.To = MailTo
msg.Subject = Subject
msg.Body = Message
msg.BodyFormat = sendtype
Try
svr.SmtpServer = pellesoft.Site.GetSmtpServer
svr.Send(msg)
Catch ex As Exception
Dim msg As String = "Från - " & From & " Till -" & MailTo & "." & _
ex.Message & " " & ex.Source & " " & ex.TargetSite.ToString & " " & ex.StackTrace & "."
Throw New Exception(msg)
Return False
End Try
Return True
End Function