Nuestros mejores programadores agotaron sus provisiones de café, buscando noche y día por la respuesta, hasta que Carmen halló el resultado en Gitea y hoy la compartimos contigo.
Ejemplo: enviar correo electrónico desde vb.net
'You will need the following tools:'5 textboxes (txtFrom, txtPass, txtTo, txtSubject, txtMessage)'5 labels (labelling each of the text boxes)'2 buttons (btnSend, btnExit)Imports System.Net.Mail
PublicClass Form1
PrivateSub Form1_Load(sender AsObject, e As EventArgs)HandlesMyBase.Load
txtPass.PasswordChar = Chr(149)EndSubPrivateSub btnSend_Click(sender AsObject, e As EventArgs)Handles btnSend.Click
TryDim mail AsNew MailMessage
'this program will send an email to another user via Outlook'as shown belowDim smtpServer AsNew SmtpClient("smtp.outlook.com")'you can change 'outlook' with another email sending website, such as Gmail
mail.From =New MailAddress(txtFrom.Text)
mail.To.Add(txtTo.Text)
mail.Subject = txtSubject.Text
mail.Body = txtMessage.Text
'checking the user's details
smtpServer.Port =587
smtpServer.Credentials =New System.Net.NetworkCredential(txtFrom.Text, txtPass.Text)
smtpServer.EnableSsl =True
smtpServer.Send(mail)'confirmation message to the user
MsgBox("Your email has been sent", MessageBoxIcon.Information, MessageBoxButtons.OK)Catch ex As Exception
MsgBox(ex.Message, vbCritical)EndTryEndSub'exit buttonPrivateSub btnExit_Click(sender AsObject, e As EventArgs)Handles btnExit.Click
Me.Close()EndSubEndClass
Si te ha resultado provechoso este artículo, nos gustaría que lo compartas con el resto seniors de esta manera nos ayudas a dar difusión a nuestra información.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)