Помощь с System.Net.Mail

Question

Я пытаюсь отправить электронную почту со своей веб-страницы, поэтому я попробовал это:

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

Но не могу понять это.

Answer 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

Answer 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

Вы также можете использовать класс, если хотите.

Симон