如何在vb.net中创建自动发送电子邮件？

你们能检查一下我的smtp是否有问题吗？然后我

---

想要为附件文件添加一些代码，有人能帮忙吗？

mailmessage对象有一个附件属性，您可以这样使用它：

Dim mailmsg As New System.Net.Mail.MailMessage()
    mailmsg.From = New MailAddress("yourname@domain.com")
    mailmsg.To.Add("to.domain.com")
    mailmsg.Subject = "Mail From .Net Application"
    mailmsg.IsBodyHtml = True
    mailmsg.Body = "Hi this is a mail from .net appl i have used same code......"
    mailmsg.Priority = MailPriority.Normal
    Dim client As New System.Net.Mail.SmtpClient()

    client.UseDefaultCredentials = False
    client.Credentials = New System.Net.NetworkCredential("yourname@domain.com", "password")
    client.Port = "587"
    client.Host = "smtp.gmail.com"
    client.EnableSsl = True
    Dim userstate As Object = mailmsg

    client.Send(mailmsg)

你确定你使用的是谷歌smtp的正确端口吗？我以为是465端口

---

要在不担心smtp问题的情况下测试邮件功能，可以尝试使用smtp4dev之类的工具，该工具为您提供本地smtp服务器目标。请参见此处：

欢迎来到StackOverflow。这个网站不是为plz给我的密码问题。请拿着这本书，仔细阅读，尤其是。谢谢。*尝试检查防火墙（windows防火墙将是第一个开始）。如果我的答案有效，请将其标记为已接受答案。

mailmsg.Attachments.Add(new Attachment(PathToAttachment))