Dim mStr, mItem(), mailF, mailT, mailC, mailB, mailN As String
Dim iFile As System.Int32
Dim msgTo As New MailMessage
mailF = mfrom.Text
mailT = mto.Text
mailC = mcc.Text
mailB = mbody.Text
mailN = msubject.Text
Try If bodyf.SelectedValue = "html" Then
msgTo.BodyFormat = MailFormat.Html
Else
msgTo.BodyFormat = MailFormat.Text
End If
Select Case mpro.SelectedValue
Case "low"
msgTo.Priority = MailPriority.Low
Case "normal"
msgTo.Priority = MailPriority.Normal
Case "high"
msgTo.Priority = MailPriority.High
End Select msgTo.Subject = mailN
msgTo.Body = mailB
msgTo.From = mailF
msgTo.To = mailT
msgTo.Cc = mailC
msgTo.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
msgTo.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", TextBox1.Text) 'set your username here
msgTo.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", TextBox2.Text) 'set your password here
SmtpMail.SmtpServer = spserver.Text
SmtpMail.Send(msgTo)
Dim iFile As System.Int32
Dim msgTo As New MailMessage
mailF = mfrom.Text
mailT = mto.Text
mailC = mcc.Text
mailB = mbody.Text
mailN = msubject.Text
Try If bodyf.SelectedValue = "html" Then
msgTo.BodyFormat = MailFormat.Html
Else
msgTo.BodyFormat = MailFormat.Text
End If
Select Case mpro.SelectedValue
Case "low"
msgTo.Priority = MailPriority.Low
Case "normal"
msgTo.Priority = MailPriority.Normal
Case "high"
msgTo.Priority = MailPriority.High
End Select msgTo.Subject = mailN
msgTo.Body = mailB
msgTo.From = mailF
msgTo.To = mailT
msgTo.Cc = mailC
msgTo.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
msgTo.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", TextBox1.Text) 'set your username here
msgTo.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", TextBox2.Text) 'set your password here
SmtpMail.SmtpServer = spserver.Text
SmtpMail.Send(msgTo)
'Fields' 不是 'System.Web.Mail.MailMessage' 的成員。