[VB.Net] Email via SMTP senden

01/09/2010 01:14 *GuideMan*#1

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

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

Code:

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "[Only registered and activated users can see links. Click Here To Register...]"
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("[Only registered and activated users can see links. Click Here To Register...]")
  Msg.To.Add("[Only registered and activated users can see links. Click Here To Register...]")
  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:

Code:

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "[Only registered and activated users can see links. Click Here To Register...]"
myCredentials.Password = "Passwort des Absenders"

Hier werden die Anmeldedaten des Absender bestimmt.

Code:

  Msg.From = New MailAddress("[Only registered and activated users can see links. Click Here To Register...]")
  Msg.To.Add("[Only registered and activated users can see links. Click Here To Register...]")

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

Code:

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.

01/10/2010 13:59 Oreagel#2

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

02/11/2010 21:17 MyMaStEr#3

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,"[Only registered and activated users can see links. Click Here To Register...]", "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

02/20/2010 14:48 Yakiyo#4

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

02/20/2010 15:15 ax5#5

Does it work ?

03/25/2010 16:27 Visonar#6

bei mir klappt's nicht:(

04/01/2010 12:13 Reextion#7

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

Code:

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:
[Only registered and activated users can see links. Click Here To Register...]
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?!

05/01/2010 22:20 shareplay#8

@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

03/09/2011 17:07 ☻!Frei.Wild!☻#9

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