System.Net.Mail 帮助答案

【问题标题】：Help with System.Net.MailSystem.Net.Mail 帮助
【发布时间】：2011-10-04 08:04:00
【问题描述】：

我正在尝试从我的网页发送电子邮件，所以我尝试了这个：

Imports System.Net.Mail

Dim mSmtpClient As SmtpClient
Dim MMsg As MailMessage

Sub SendEmail()
        MMsg = New MailMessage()

        MMsg.From = New MailAddress(txtFrom.Text)
        MMsg.To.Add(txtTo.Text)

        MMsg.Subject = txtSubject.Text
        MMsg.Body = txtBody.Text

        MMsg.IsBodyHtml = True
        MMsg.Priority = MailPriority.Normal

        mSmtpClient = New SmtpClient("host_name_goes_here")
        mSmtpClient.Send(MMsg)
End Sub

但这不起作用。我不断收到以下错误：

Type 'SmtpClient' is not defined.

Line 7: Dim mSmtpClient As SmtpClient

有人知道我做错了什么吗？

我看过：

http://msdn.microsoft.com/en-us/library/system.net.mail(v=VS.90).aspx

但似乎无法弄清楚。

【问题讨论】：

使用 dim mSmtpClient 作为新的 SmtpClient
@Bhargav Mistri，我刚刚尝试过，但仍然收到相同的错误消息。
更改类的创建点在此实例中不会产生任何影响。

标签： asp.net vb.net .net-3.5 asp.net-3.5 system.net.mail

【解决方案1】：

这是新代码...

Dim mSmtpClient As New SmtpClient
Dim MMsg As New MailMessage

Sub SendEmail()
    MMsg = New MailMessage()

    MMsg.From = New MailAddress(txtFrom.Text)
    MMsg.To.Add(txtTo.Text)

    MMsg.Subject = txtSubject.Text
    MMsg.Body = txtBody.Text

    MMsg.IsBodyHtml = True
    MMsg.Priority = MailPriority.Normal

    mSmtpClient = New SmtpClient("host_name_goes_here")
    mSmtpClient.Send(MMsg)
End Sub

【讨论】：

【解决方案2】：

您的代码需要位于容器中，例如类或模块。所以试试这个：

Imports System.Net.Mail

public module mymail

    Dim mSmtpClient As SmtpClient
    Dim MMsg As MailMessage

    Sub SendEmail()
        MMsg = New MailMessage()

        MMsg.From = New MailAddress(txtFrom.Text)
        MMsg.To.Add(txtTo.Text)

        MMsg.Subject = txtSubject.Text
        MMsg.Body = txtBody.Text

        MMsg.IsBodyHtml = True
        MMsg.Priority = MailPriority.Normal

        mSmtpClient = New SmtpClient("host_name_goes_here")
        mSmtpClient.Send(MMsg)
    End Sub
end module

如果你愿意，你也可以使用一个类。

西蒙

【讨论】：