Vb.net 如何在隐藏窗口中发送电子邮件（不可见）

-很抱歉编辑了标题-

我需要创建一个文件以在隐藏模式不可见窗口中发送电子邮件

我有一个代码可以在单击按钮时发送电子邮件 这是密码

Imports System.Net.Mail

公开课表格1

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

末级

我想修改此代码，以便在运行文件时直接在隐藏窗口中不可见地发送电子邮件 请帮忙

---

很抱歉更改了标题

这里是一个从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

---

如果你真的想从gmail发送邮件，而不是通过SMTP发送看起来像是从gmail发送的邮件，那么你必须使用.NET的gmail API。你可以找到一些，你也可以找到。

请告诉我你在使用这段代码时遇到的问题，可能需要一些调整。@VishalKM我可以问一下，为什么你有一个Try-Catch，但在捕获异常时抛出ex？这毫无意义，会使代码更难调试。