asp.net 使用gmail寄信－單純、幸福

昨天試過asp的cdo寄信。今天就來試試.net的寄信。

最上方要先imports System.Net 與System.Net.Mail

Dim MyMail As New MailMessage
Dim MySMTP As New SmtpClient
Dim strRec() As String = Me.txtRecMail.Text.Trim().Split(";".ToCharArray())'讀出多個收件者
Dim i As Integer
Try
MyMail.From = New MailAddress(Me.txtSenderMail.Text, Me.txtSenderName.Text)

For i = 0 To strRec.Length - 1 '將多個收件者塞入to裡
MyMail.To.Add(New MailAddress(strRec(i)))
Next

If Me.txtCC.Text <> "" Then
MyMail.CC.Add(New MailAddress(Me.txtCC.Text))
End If
If Me.txtBCC.Text <> "" Then
MyMail.Bcc.Add(New MailAddress(Me.txtBCC.Text))
End If
If Me.ddlPriority.SelectedValue <> 1 Then '設定Priority
Select Case Me.ddlPriority.SelectedValue
Case 0
MyMail.Priority = MailPriority.High
Case 2
MyMail.Priority = MailPriority.Low
End Select
End If
MyMail.Subject = Me.txtSubject.Text
MyMail.Body = Me.txtBody.Text
MyMail.IsBodyHtml = True

MySMTP.Host = "smtp伺服器"
MySMTP.Port = port
MySMTP.Credentials = New NetworkCredential("完整帳號", "密碼")
MySMTP.EnableSsl = True '要不要啟用ssl
MySMTP.DeliveryMethod = SmtpDeliveryMethod.Network
MySMTP.Send(MyMail)

Me.Label1.Text = "已成功寄出!!"

Catch ex As Exception
MsgBox(ex.Message)
End Try