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