如何在隐藏窗口中发送电子邮件(不可见)
如何在隐藏窗口中发送电子邮件(不可见)
提问于 2017-02-28 04:19:33
--很抱歉编辑了标题--
我需要创建一个文件，以便在隐藏模式(不可见窗口)下发送电子邮件
我有一个代码，当点击一个按钮时发送电子邮件这是代码
Imports System.Net.Mail公共类Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mail As New MailMessage
Mail.Subject = "test email"
Mail.To.Add("youremail@googlemail.com")
Mail.From = New MailAddress("youremail@googlemail.com")
Mail.Body = "This is an ownage email using VB.NET"
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("username", "password")
SMTP.Port = "587"
SMTP.Send(Mail)
End Sub结束类
我想修改这个代码，以便在运行文件时直接在隐藏窗口中隐形发送电子邮件，请帮助并为更改标题而道歉
回答 2
Stack Overflow用户
发布于 2017-02-28 05:41:58
如果你想真正从gmail发送一条消息(而不是通过SMTP发送一条看起来像是来自GMail的消息)，你必须使用.NET的GMail API，你可以找到一些sample code that uses the Gmail API for .NET here，你可以找到information about using the API to send messages here。
Stack Overflow用户
发布于 2017-02-28 05:01:19
这是一个从VB发送带有附件的邮件的代码片段。
Public Sub SendMail(ByVal From As String, _
ByVal sendTo As String, ByVal Subject As String, _
ByVal Body As String, _
Optional ByVal AttachmentFile As String = "", _
Optional ByVal CC As String = "", _
Optional ByVal BCC As String = "", _
Optional ByVal SMTPServer As String = "")
Dim myMessage As MailMessage
Try
myMessage = New MailMessage()
With myMessage
.To = sendTo
.From = From
.Subject = Subject
.Body = Body
.BodyFormat = MailFormat.Text
'Custom mail message
If CC <> "" Then .Cc = CC
If BCC <> "" Then .Bcc = ""
If FileExists(AttachmentFile) Then _
.Attachments.Add(AttachmentFile)
End With
If SMTPServer <> "" Then _
SmtpMail.SmtpServer = SMTPServer
SmtpMail.Send(mailMessage)
Catch ex As Exception
Throw ex
End Try
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42500159
复制相关文章
相似问题
腾讯云开发者
