Private VorButton1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnSend.Click
Schwache Msg als neues MailMessage
Msg. Von = neues MailAddress (txtFrom.Text)
Msg. To.Add (txtTo.Text)
msg.CC.Add (txtCC.Text)
Msg. Bcc.Add (txtBCC.Text)
Msg. Priorität = C ([Enum]. (GetType (MailPriority), cboPriority.Text), MailPriority) analysieren
Msg. Thema = txtSubject.Text
Msg. Körper = txtBody.Text
'Msg.
'Wenn txtAttachment.Text.Length > 0 dann
'Schwaches Zubehör als neues MailAttachment (txtAttachment.Text)
'Msg. Attachments.Add (Zubehör)
'Beenden wenn
Versuch
Schwaches smtp als SmtpClient = neues SmtpClient („smtp.att.yahoo.com“)
smtp.EnableSsl = richten aus
'Die Authentisierungs-Bescheinigungen betreten
Verdunkeln cred als neues System.Net.NetworkCredential („******** @sbcglobal.net“,“ ******** ")
smtp. Bescheinigungen = cred
smtp. Hafen = 465
smtp. Senden (Msg)
Ex als HttpException sich verfangen
MsgBox (ex. Mitteilung)
Enden-Versuch
Enden-Unterseeboot
|