Private Okręt podwodny Button1_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się btnSend.Click
Ciemnawy msg Jako Nowy MailMessage
msg. Od = Nowy MailAddress (txtFrom.Text)
msg. To.Add (txtTo.Text)
msg.CC.Add (txtCC.Text)
msg. Bcc.Add (txtBCC.Text)
msg. Priorytet = CType ([Enum]. Parse (GetType (MailPriority), cboPriority.Text), MailPriority)
msg. Temat = txtSubject.Text
msg. Ciało = txtBody.Text
'msg.
'Jeżeli txtAttachment.Text.Length > (0) Wtedy
'Ciemnawy doczepianie Jako Nowy MailAttachment (txtAttachment.Text)
'msg. Attachments.Add (doczepianie)
'Kończyć Jeżeli
Próba
Ciemnawy smtp Jako SmtpClient = Nowy SmtpClient ("smtp.att.yahoo.com")
smtp.EnableSsl = Prawdziwy
'Wchodzić Do the Uwierzytelnienie Referencje
Ćmić cred Jako Nowy System.Net.NetworkCredential ("******** @sbcglobal.net"," ******** ")
smtp. Referencje = cred
smtp. Port = 465
smtp. Wysyłać (msg)
Łapać ex Jako HttpException
MsgBox (msgBox. Wiadomość)
Końcówka Próba
Końcówka Okręt podwodny
|