Kleines VB Tut für einen E-Mail Sender
lima-city → Forum → Sonstiges → Spam und sonstiges Unvergütetes
adresse
anbieter
anwendung
aussehen
betreff
brauchen
button
code
doppelklick
email
form
http
port
senden
server
system
url
verschicken
weben
zeile
-
Tag leute,
Also in diesem Tutorial zeige ich euch wie ihr einen leinen E-Mail Sender machen könnt, wie meinen.
Als erstes erstellen wir eine neue Windows Forms Anwendung (Logik ;) )
Nun brauchen wir folgendes:
6 Textboxes für
-SMTP Port
-SMTP-Adresse
-Login-Mail
-Mail-Passwort
-Empfänger
-Betreff
Nun brauchen wir noch eine RichTextBox für die Nachicht/Mail
Sowie einen Button (E-Mail Senden)
Außerdem noch 7 Labels für die Beschreibungen
Dann gehen wir bei einer textbox (Passwort) noch ins Eigenschaftsfenster und geben unter "Password Char" ein "*" ein, damit das Passwort zensiert wird.
So sollte die Benutzeroberfläche dann aussehen (Natürlich könnt ihr es verschönern etc.) :
http://img195.imageshack.us/img195/1285/aufzeichnend.gif
Nun kommen wir zum Code:
Wir machen einen Doppelklick auf die Form und geben ganz oben über dem gesamten Quelltext folgendes ein:
Imports System.Net.Mail
Ist dies geschehen, gehen wir zurück zur Form und machen einen Doppelklick auf den Button und geben dort nun folgendes ein:
Dim mailsmg As New MailMessage Try
Dieser Code sorgt dafür das wir eine Variable mit dem namen "mailsmg" haben, und das diese Variable eine eine neue EMail sein soll.
Nun geben wir
mailsmg.From = New MailAddress(Absender) mailsmg.To.Add(Empfänger) mailsmg.Subject = Betreff mailsmg.Body = Nachicht
Dieses ein, das bewirkt folgendes:
mailsmg.from == Von wem die E-Mail verschickt wird.
mailsmg.to.add == Der Empfänger der Mail
mailsmg.subject = betreff der EMail
mailsmg.body == Nachicht in der EMail
Nun geben wir
Dim smtp As New SmtpClient("SMTP Adresse")
ein
Diese zeile legt eine neue Variable namens smtp an, und in den klammern steht dann die SMTP Adresse.
z.b. "smtp.web.de" wäre der SMTP Server für web.de.
Die Server-Adresse findet ihr auf der Seite die da unten irgendwo verlinkt ist^^
So als nächstes geben wir
smtp.Port = SMTP Port
ein, Diese zeile gibt dem SMTP Server seinen port. also wenn ihr diese zeile in den Quelltext übernehmt, sollte dies so aussehen:
smtp.Port = 587
Diese zeile wäre ebenfalls für Web.de
Nun kommt folgendes:
smtp.EnableSsl = True smtp.Credentials = New System.Net.NetworkCredential(E-Mail, Passwort) smtp.Send(mailsmg)
"smtp.enablessl" bringt das wenn der Anbieter mit der SMTP Adresse eine SSL Verbindung verwendet, dies auch Funktioniert und das programm auch über den Verschlüsselten Server senden kann.
"smtp.credentials = ..." bewirkt das sich der Client (Die Anwendung) in euer E-mail Konto einloggen kann damit er die Mail verschicken kann.
"smtp.send(mailsmg)" sendet nun die EMail, da nun alle erforderlichen Daten vorliegen.
Nun geben wir darunter noch diese 3 zeilen ein:
MsgBox("E-Mail wurde Erfolgreich verschickt") Catch ex As Exception End Try
Die erste zeile sorgt dafür, das wenn die EMail verschickt wurde eine Messagebox kommt in der steht: "E-Mail wurde Erfolgreich verschickt"
Die andern 2 zeilen schließen den Code ab.
Zu SMTP-Zeug: Klick Hier findet ihr die SMTP Adressen der Anbieter.
So das Wars eigentlich auch schon, jetzt könnt ihr es Debuggen und starten, eine Mail schreiben und verschicken.
Falls ein Error kommen sollte, schreibt ein Kommentar und ich werde auch Supporten^^
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage