Empfangsbereit

Teil 6: E-Mail-Client selbstgebaut

5.3.2007 von Redaktion pcmagazin und Peter Schnoor

ca. 1:35 Min
Ratgeber
  1. E-Mail-Client selbstgebaut
  2. Teil 2: E-Mail-Client selbstgebaut
  3. Teil 3: E-Mail-Client selbstgebaut
  4. Teil 4: E-Mail-Client selbstgebaut
  5. Teil 5: E-Mail-Client selbstgebaut
  6. Teil 6: E-Mail-Client selbstgebaut
  7. Teil 7: E-Mail-Client selbstgebaut
  8. Teil 8: E-Mail-Client selbstgebaut
  9. Teil 9: E-Mail-Client selbstgebaut

Mit einer neuen Schaltfläche namens btnSenden legen Sie die Funktionen zum Postversand fest. In der Code-Ansicht übernehmen Sie die String-Variablen Absender, Empfänger, Betreff und Inhalt mit deren Einträge aus den Textfeldern. Weil leere Eingabefelder das Programm abstürzen ließen, fangen Sie diese ab oder ergänzen sie durch sinnvolle Einträge. Weil es trotz dieser Vorgaben zu Fehlern kommen kann, behandeln Sie Fehler per try-Befehl. Damit fangen Sie Fehler in einem Codeblock ab, während dieser Code noch ausgeführt wird. Am Ende des Befehlsblocks setzen Sie Chatch ein. So folgt im Fehlerfall ein Hinweis, wenn eine Mail nicht verschickt wird:

E-Mail-Client selbstgebaut
Der erste Brief: Jetzt können Sie den Formularentwurf des Mail Clients testen.
© Archiv
?Fehlerfall
try
?
Catch ex As Exception
MsgBox(Die Nachricht wurde nicht
gesendet & vbCrLf & ex.Message)
End Try

Die E-Mail selbst betten Sie in einem Using- Block ein. Dieser gibt die Mailressourcen frei, wenn der Code den Block beendet. Die Mailfunktion arbeitet per MailMessage Member. Mit einer neuen Instanz dieser Klasse stellen Sie die Mail-Parameter ein:

Using EmailMsg As New
Net.Mail.MailMessage(Absender,
Empfänger, Betreff, Inhalt)

Wenn Sie einen Anhang anfügen wollen, muss dieser existieren. Nach dieser Prüfung lässt sich eine Datei anhängen:

?Anhang hinzufügen
Dim Datei As String
Datei = Me.txtAnhang.Text
If Datei > ?? Then Dim Anhangdatei
As New Net.Mail.Attachment(Datei)
EmailMsg.Attachments.Add(Anhangdatei)
End If

Der SmtpClient versendet die E-Mail. Die DeliveryMethod bestimmt, wie ausgehende EMails behandelt werden. Sie können folgende Übermittlungsmethoden einsetzen:

E-Mail-Client selbstgebaut
Labels von mailleser
© Archiv
  • Bei einem auf dem System laufenden IIS (Internet Information Server) verschieben Sie die Mail in das Pickup-Verzeichnis für IIS. Anschließend übermittelt der IIS die Nachricht.
  • Bei einem SMTP-Server verschieben Sie die Mail in ein von PickupDirectoryLocation angegebenes Verzeichnis für die spätere Übermittlung durch eine andere Anwendung.

Aus dieser Freiheit zeigt ein Beispiel den Versand für den IIS:

Dim EMAIL As New Net.Mail.SmtpClient
?Host hier lokaler PC
EMAIL.Host =?127.0.0.1?
?SMTP-Server hier IIS
EMAIL.DeliveryMethod =
Net.Mail.SmtpDeliveryMethod.PickupDirec
toryFromIis
?E-MAil senden
EMAIL.Send(EmailMsg)

Mit wenigen Befehlen ist Ihr Mailclient einsatzbereit. Zum Test legen Sie noch einen Button zum Schließen auf das Formular. Hierüber öffnen Sie das Start-Formular (MAILSTART. Show()) und schließen dann das aktuelle Formular (Me.Hide()).

Im Startformular belegen Sie jetzt die Schaltfläche Neue E-Mail erstellen mit dem Code MAIL.Show() und Me.Hide(). Schon können Sie testen!

Mehr lesen

Chronologische Liste und Netflix-Links

Marvel-Filme- und -Serien: Das ist die richtige Reihenfolge

Neuerscheinungen in der Übersicht

Netflix: Neue Filme und Serien

Vorschau auf Film- und Serien-Highlights

Amazon Prime Video: Neuheiten

Weiter zur Startseite  

Mehr zum Thema

So kündigen Sie Ihre ADAC-Mitgliedschaft online per E-Mail.

Automobilclub

ADAC-Mitgliedschaft kündigen: So einfach geht's online…

Wer seine ADAC-Mitgliedschaft kündigen möchte, bekommt hier aktuelle Tipps. Wir zeigen Ihnen, wie das online per Formular oder E-Mail möglich ist.

Netflix

Kosten, Apps, Kündigung und Co.

10 wichtige Fragen zu Netflix in Deutschland

Preise, kompatible Geräte, Datenrate, Serien- und Filmangebot von Netflix: Wir beantworten die wichtigsten Fragen rund um den Streaming-Dienst.

whatsapp alternativen

Für Android, iPhone, iPad & Co.

Whatsapp Alternativen: Die 10 besten Messenger-Apps

Es gibt keine Whatsapp-Alternative? Quatsch! Diese Messenger-Apps für Android, iOS und PC sind der perfekte Ersatz.

Spam-Mails

Sicherheit

Phishing-Mails erkennen: 6 Tipps gegen E-Mail Betrug

Betrüger versenden E-Mails, die es auf Ihre Daten und Ihr Geld abgesehen haben. Wie Sie Phishing-E-Mails erkennen und sich schützen.

Facebook-Betrug mit Fake-Profilen

Gefälschte Facebook-Konten

Facebook-Betrug mit Fake-Profilen - wie Sie sich und Ihre…

Betrüger nutzen gefälschte Facebook-Profile, um Geld zu ergaunern. Wir zeigen, wie Sie sich und auch Ihre Facebook-Kontakte gegen die Betrugsmasche…