在 Visual Basic 中通过一个按钮发送包含文本框内容的电子邮件
Send email with contents of text box in one button in Visual Basic
我正在制作的应用程序的一部分,我希望制作一个一键式电子邮件发件人,它将向我发送用户在文本框中输入的内容的副本。
我不希望他们因为必须填写要发送电子邮件的表格而陷入困境。
关于如何实现这个的任何想法?
(我使用的是 Visual Basic)
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Set the caption bar text of the form.
Me.Text = "tutorialspoint.com"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
e_mail = New MailMessage()
e_mail.From = New MailAddress(txtFrom.Text)
e_mail.To.Add(txtTo.Text)
e_mail.Subject = "Email Sending"
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
MsgBox("Mail Sent")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub
来源:http://www.tutorialspoint.com/vb.net/vb.net_send_email.htm
将 Smtp_Server.credentials 替换为您自己的 gmail 电子邮件和密码。
YouTube 上也有很多教程,搜索 "visual basic email sender" 即可查看。
我正在制作的应用程序的一部分,我希望制作一个一键式电子邮件发件人,它将向我发送用户在文本框中输入的内容的副本。 我不希望他们因为必须填写要发送电子邮件的表格而陷入困境。
关于如何实现这个的任何想法? (我使用的是 Visual Basic)
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Set the caption bar text of the form.
Me.Text = "tutorialspoint.com"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
e_mail = New MailMessage()
e_mail.From = New MailAddress(txtFrom.Text)
e_mail.To.Add(txtTo.Text)
e_mail.Subject = "Email Sending"
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
MsgBox("Mail Sent")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub
来源:http://www.tutorialspoint.com/vb.net/vb.net_send_email.htm
将 Smtp_Server.credentials 替换为您自己的 gmail 电子邮件和密码。
YouTube 上也有很多教程,搜索 "visual basic email sender" 即可查看。