So Senden Sie E-mail aus visual basic 2010 professional

Ich möchten, senden Sie eine E-mail Verwendung von Google Mail-id, mein code ist wie hier unter, aber seine Fehler...bitte helfen Sie mir aus diesem Problem.

Importe System.Net
Importe System.Net.E-Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox("This will send a mail...")
    Try

        Dim smtpserver As New SmtpClient()
        Dim mail As New MailMessage()
        smtpserver.Credentials = New Net.NetworkCredential("[email protected]", "password")
        smtpserver.Port = 465
        smtpserver.Host = "smtp.gmail.com"
        mail = New MailMessage()
        mail.From = New MailAddress("[email protected]")
        mail.To.Add("to mail id")
        mail.Subject = "Test by bharat"
        mail.Body = "hello ooooooooooooooooooooooo"
        smtpserver.Send(mail)
        MsgBox("Mail Sent")
    Catch ex As Exception
        MsgBox(ex.ToString)
        Close()
    End Try


End Sub

Ende Klasse

  • was ist der Fehler u haben???
InformationsquelleAutor Bharat Bhatia | 2013-02-22
  1. 0

    Unten ist ein Beispiel der Versand einer E-Mail mit visual basic 10, müssen Sie Zunächst ein Formular erstellen mit den Feldern an,von,text,und email_send button " jetzt den code unten

    Private Smtp_Server As New SmtpClient()

Private Sub email_send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles email_send.Click
Try

Dim e_mail As New MailMessage()
Smtp_Server.Credentials = New Net.NetworkCredential("[email protected]", "password")
Smtp_Server.Port = 25
Smtp_Server.Host = "mail.v-basic.net"
e_mail = New MailMessage()
e_mail.From = New MailAddress(from_txt.Text)
e_mail.To.Add(to_txt.Text)
e_mail.Subject = "VB.NET Email Sending"
e_mail.Body = text_txt.Text
Smtp_Server.Send(e_mail)

Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub
    InformationsquelleAutor Sanjeev Neupane
  2. 0

    Können Sie eine neue Klasse namens "E-Mail".
    Wenn Sie eine Klasse, die Sie nicht haben, um geben Sie den code erneut, wenn Sie wollen, um zu schicken mehr als 1 E-Mail. 

    Imports System.Net.Mail
Public NotInheritable Class Mail
    Public Property subject As String
    Public Property body As String
    Public Property receiver As String

    Public Sub send()
        Try
            Dim smtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            smtpServer.UseDefaultCredentials = False
            smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "password"))
            smtpServer.Port = 587
            smtpServer.EnableSsl = True
            smtpServer.Host = "smtp.gmail.com"

            mail = New MailMessage()
            mail.From = New MailAddress("[email protected]")
            mail.To.Add(receiver)
            mail.Subject = subject
            mail.Body = body
            smtpServer.Send(mail)
        Catch ex As Exception
            MsgBox(ex.Message & vbNewLine & ex.StackTrace)
        End Try

    End Sub
End Class

    Und dann machen Sie ein neues Objekt in Ihrem code, wo und Wann Sie möchten, senden Sie die E-Mail:

    Dim email as new Mail
email.receiver = "[email protected]"
email.subject = "Subject"
email.body = "Message"
email.send()
    InformationsquelleAutor TuurN
  3. -1
    Imports System.Net.Mail
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("[email protected]", "Password")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"

            e_mail = New MailMessage()
            e_mail.From = New MailAddress(TextBox1.Text)
            e_mail.To.Add(TextBox2.Text)
            e_mail.Subject = "Email Sending"
            e_mail.IsBodyHtml = False
            e_mail.Body = txtmsg.Text
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent")

        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try

    End Sub

End Class
    InformationsquelleAutor Emeka
Schreibe einen Kommentar