发送邮件模板
1.制作邮件模板。
2需要填充的数据用英文单词表示。如UserName
3然后用程序把相关数据替换这些单词。
核心代码如下：
Public Shared Function BingEmail(ByVal EmailFrom As String, ByVal EmailTo As String, ByVal Subject As String, ByVal Body As String, ByVal UserName As String, ByVal Pwd As String, ByVal SMTPServer As String, ByVal BodyFormat As String) As Boolean
Try
Dim myEmail = New MailMessage
myEmail.From = EmailFrom
myEmail.To = EmailTo
myEmail.Subject = Subject
If BodyFormat.ToUpper = "HTML" Then
myEmail.BodyFormat = System.Web.Mail.MailFormat.Html
Else
myEmail.BodyFormat = System.Web.Mail.MailFormat.Text
End If
myEmail.Body = Body
myEmail.Fields.Add(CdoConfiguration.cdoSMTPAuthenticate, "1")
myEmail.Fields.Add(CdoConfiguration.cdoSendUserName, UserName) \'用户名
myEmail.Fields.Add(CdoConfiguration.cdoSendPassword, Pwd) \'密码
SmtpMail.SmtpServer = SMTPServer
SmtpMail.Send(myEmail)
Return True
Catch ex As Exception
Return False
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim body As String
Dim sb As New StringBuilder
Dim sr As StreamReader = File.OpenText("C:\Inetpub\wwwroot\WebApp\aa.html")
Do Until sr.Peek = -1
sb.Append(sr.ReadLine)
Loop
body = sb.ToString().Replace("UserName", Me.txtSubject.Text.Trim)
If (SendEmail.BingEmail("aduan1026@126.com", Me.TextBox1.Text, Me.txtSubject.Text, body, "djw", "", "192.168.4.1", "html")) Then
Response.Write("发送成功")
End If
End Sub