Hallo community.
Ich habe mir gedacht, da das Tutrials von Haxxed etwas veraltet ist und der Code nicht der beste ist, dass ich ein neues mit Bildern, etc schreiben werde. Ich hoffe, dass ich euch helfen kann damit.
:. Schritt 1.:
Als erstes erstellt ihr in Microsoft Visual Basic 2008 ein Neues Projekt und wählt Windows Form und bennent das Projekt wie ihr wollt.
:. Schritt 2 .:
Im zweiten Schritt erstellt ihr auf eurer Windows Form eine richtextbox, einen Button, zwei normale textboxen und zwei Labels. Dann ordnet ihr sie inetwa so wie ich an:
:. Schritt 3 .:
So nun kommen wir zum Code! Ihr macht einen Doppelklick auf den Button und kommt zum Code fenster, das sollte ungf. so aussehen: So zu aller erst müssen wir System.Net.Mail Importieren. Dazu gehen wir ganz an den anfang des Codes (noch vor Puplic Class Form1) und geben folgenden Code ein: Imports System.Net.Mail es sollte jetzt so aussehen:Codefenster
:. Schritt 4 .:
So jetzt kommen wir zum hauptcode. Dim eMail As New MailMessage So jetzt kommen wir dazu den Absender zu bestimmen, hierzu geben wir folgenden Code ein: myCredentials.UserName = " " 'account Name des senders Msg.IsBodyHtml = False Dim mySmtpsvr As New SmtpClient() mySmtpsvr.UseDefaultCredentials = False How to: myCredentials.UserName = " " <-- hier kommt eure Absender email Adresse hin Msg.IsBodyHtml = False <-- HTML Codes erlaubt (False= Nein / True = Ja) mySmtpsvr.Host = "" <-- hier kommt der SMTP Server hin (postausgangsserver) eine Liste aller ausgangsserver findet ihr hier Wenn ihr alles nach anweisung gemacht habt dann sieht es so aus:
Als erstes müssen wir ein paar Variablen sezten und zwar:
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.Password = "" 'account passwort
mySmtpsvr.EnableSsl = True 'SSL aktivieren
mySmtpsvr.Host = "" '
mySmtpsvr.Port = 25
mySmtpsvr.Credentials = myCredentials
myCredentials.Password = "" <-- Hier kommt das Accountpasswort des Absenders hin
mySmtpsvr.Port = 25 <-- der Postausgangsserver Port steht auch auf der Seite
:. Schritt 5 .:
so als nächstes müssen wir den Empfänger und den Email text bestimmen. Hierzu müssen wir unter den schon vorhandenen Code folgendes schreiben: Try How to: Msg.From = New MailAddress("moogle_google@gmx.de") <-- Absender Adresse Msg.To.Add (TextBox1.Text) <-- Empfänger Adresse Msg.Subject = TextBox2.Text <-- Betreff Msg.Body = richTextBox1.Text <-- Email Body
Msg.From = New MailAddress("moogle_google@gmx.de")
Msg.To.Add (TextBox1.Text)
Msg.Subject = TextBox2.Text
Msg.Body = TextBox1.Text
:. Schirtt 6 .:
Als nächstes kommen wir zum Schluss des Codes. Ihr schreibt unter das vorherige folgenden code: mySmtpsvr.Send(Msg) Dieser Code sagt an, ob die Email übertragung funktioniert hat oder nicht. So jetzt müsst ihr euer Programm nur noch ausführen und fertig ist es. Wenn ihr fragen oder Probleme habt könnt ihr sie gerne stellen. MfG
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
Das wars auch schon mit dem Code wenn ihr meinen Schritten sorgfältig gefolgt sein dann sieht euer Code so aus:endcode
