kostenloser Webspace werbefrei: lima-city


Kleines VB Tut für einen E-Mail Sender

lima-cityForumSonstigesSpam und sonstiges Unvergütetes

  1. Autor dieses Themas

    snowi

    snowi hat kostenlosen Webspace.

    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^^
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!