[VB.Net] Email via SMTP senden

[*GuideMan*]

Schritt 1:
Zuerst muss man Imports System.Net.Mail in die Kopfzeile schreiben.

Schritt 2:
Der Code (Beispielsweise bei einem Button Klick):

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = ""
myCredentials.Password = "Passwort des Absenders"

Msg.IsBodyHtml = False

Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "pop.gmx.at"
mySmtpsvr.Port = 25

mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials

Try
  Msg.From = New MailAddress("")
  Msg.To.Add("")
  Msg.Subject = "Betreff"
  Msg.Body = "Inhalt"
  mySmtpsvr.Send(Msg)
  MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
  MsgBox (Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try

Erklärung des Codes:

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = ""
myCredentials.Password = "Passwort des Absenders"

Hier werden die Anmeldedaten des Absender bestimmt.

  Msg.From = New MailAddress("")
  Msg.To.Add("")

In der 1. Zeile kommt nochmal eure Email Adresse, und in der 2. die Email des Empfängers.

Msg.Subject = "Betreff"
  Msg.Body = "Inhalt"
  mySmtpsvr.Send(Msg)

In der ersten Zeile wird der Betreff angeben, und in der zweiten der Inhalt der Email. Zum Schluss wird die Email noch gesendet.

Erstellt von *GuideMan*.

Liebe Grüße, Michael.

[Oreagel]

Das ganze mit Textboxen und nem Timer verfeinern und daraus lässt sich ein prima Email Bomber machen *hust*

aber nice tutorial für die die es noch nicht können kriegstn thanks

[MyMaStEr]

Login Funktion?
Hier mal n beispiel code:

Try
                Dim TestServer As New SmtpClient("smtp.gmail.com")
                TestServer.Port = 587
                TestServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.Text)
                TestServer.EnableSsl = True
                TestServer.Send(usernamebox.Text,"", "TEST", "TEST")
                MsgBox("Viel Spaß!")
                usernamebox.ReadOnly = True
                passwordbox.ReadOnly = True
                startbtn.Enabled = True
                stopbtn.Enabled = True
                exitbtn.Enabled = True
            Catch ex As Exception
                MsgBox("Fehler beim Log-In.")
            End Try

Grüße MyMaStEr

[Yakiyo]

Den gleichen Code hab ich auch für VB08 gefunden.
bei welchem vb funzt es denn jezz?

[ax5]

Does it work ?

[Visonar]

bei mir klappt's nicht

[Reextion]

Ohh super! Du kannst ja die C&P Funktion benutzen! Villeicht auch mal den Code beschreiben?!
Ein funktionierender Code würde ca. so aussehen!

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim text As String
            text = z.btextbox1.text & vbLf
            Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
            myClient.Credentials = New NetworkCredential("SENDMAILADRESSE", "SENDMAIL PASSWORT")
            myClient.Send("SENDMAILADRESSE", "ZIELMAIL", "BETREFF", text)
         End Sub
End Class

Einfach, unkompliziert und funktioniert! Dieser code ist aber nur für web... andre poserver müsst ihr euch raussuchen. Am besten auf der Seite:

Versuchts mal damit
Sollte funktionieren...
An den Theardersteller, das ist kein Tutorial sondern eigentlich nur nen C&P code, und geschrieben was er macht! Villeicht den Code ausseinander nehmen?!

[shareplay]

@Wer Sich AUSKENNT:

Ich würde mich freuen, wenn du noch folgendes ergänzen würdest:

Blindcopy

Dateien anhängen

Anzeige eines eingegebenen Namens anstatt der sender email adresse( der erhalter kennt ggf nicht die mail adresse, wenn ich aber "Marc Schönfeld" reinschreiben könnte, weiss er, wer ihm hier geschrieben hat.

Priorität (Niedrig, Normal, Hoch)

Gruß
shareplay

[☻!Frei.Wild!☻]

Wie Wäre der Code wenn es mit 2 Testboxen Wäre? Das Würde mir Weiter Helfen


Edit: Habs mal Selber Umprogrammiert

text = TextBox1.Text & textbox2.text & vbLf

dann könnt ihr z.b wenn ihr Phishing wollt(illegal) dann könnt ihr mit 2 textboxen eine Labend vor text box 1 ID und 1 vor textbox 2 PW Aber Naja Ich hafte für Nichts