{"id":55000109,"date":"2017-12-01T00:00:00","date_gmt":"2020-03-27T19:29:18","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=109"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"EMails_mit_Outlook_verschicken","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/EMails_mit_Outlook_verschicken\/","title":{"rendered":"E-Mails mit Outlook verschicken"},"content":{"rendered":"

Wer Anwendungen mit Visual Studio programmiert, die Daten wie etwa die von Kunden verwaltet, kommt früher oder später nicht um eine Funktion zum Versenden von E-Mails herum. Da gibt es nun zwei Möglichkeiten: Sie verwenden eine eigene SMTP-Klasse, um die E-Mails zu versenden. Das klappt mit .NET-Projekten viel einfacher als etwa unter Access, weil es hier schon fertige Klassen für diesen Anwendungszweck gibt. Allerdings werden die gesendeten Mails dann nicht in Outlook im Ordner “Gesendete Elemente” gespeichert. Deshalb schauen wir uns in diesem Artikel den Versand von Mails per Outlook an. In einem anderen Artikel gehen wir dann auf die Verwendung einer SMTP-Klasse ein.<\/b><\/p>\n

Beispielanwendung<\/h2>\n

Wir wollen als Beispiel für diesen Artikel eine kleine WPF-Anwendung programmieren, mit der Sie die Daten des E-Mail-Empfängers sowie Betreff, Inhalt und weitere Informationen eingeben können. Eine Schaltfläche soll dann die eingegebenen Daten an eine Outlook-Instanz schicken und die E-Mail versenden.<\/p>\n

Also legen Sie zunächst eine WPF-Anwendung in der von Ihnen bevorzugten Sprache an (also etwa VB oder C#). Das Fenster MainWindow.xaml <\/b>ist dann auch gleich das Element, das wir mit den benötigten Steuerelementen versehen wollen. Dieses gestalten wir wie in Bild 1.<\/p>\n

\"Einfaches<\/p>\n

Bild 1: Einfaches Formular zum Versenden von E-Mails<\/span><\/b><\/p>\n

Der dazu notwendige XAML-Code sieht gekürzt so aus (es gibt noch einige Steuerelement-spezifische Eigenschaftsdefinitionen, die wir nicht abbilden):<\/p>\n

<Window x:Class=\"MainWindow\" ... Title=\"MainWindow\" Height=\"250\" Width=\"466\">\r\n     <Grid HorizontalAlignment=\"Stretch\" Margin=\"10\" VerticalAlignment=\"Stretch\" ClipToBounds=\"true\" >\r\n         <Grid.RowDefinitions>\r\n             <RowDefinition Height=\"Auto\"\/>\r\n             <RowDefinition Height=\"Auto\"\/>\r\n             <RowDefinition\/>\r\n             <RowDefinition Height=\"Auto\"\/>\r\n             <RowDefinition Height=\"Auto\"\/>\r\n         <\/Grid.RowDefinitions>\r\n         <Grid.ColumnDefinitions>\r\n             <ColumnDefinition Width=\"Auto\"\/>\r\n             <ColumnDefinition Width=\"*\"\/>\r\n         <\/Grid.ColumnDefinitions>\r\n         <Label x:Name=\"label1\" Content=\"An:\" \/>\r\n         <Label x:Name=\"label2\" Content=\"Betreff:\" Grid.Row=\"1\"\/>\r\n         <Label x:Name=\"label3\" Content=\"Inhalt:\" Grid.Row=\"2\"\/>\r\n         <TextBox x:Name=\"txtAn\" Grid.Column=\"1\" HorizontalAlignment=\"Stretch\"\/>\r\n         <TextBox x:Name=\"txtBetreff\" Grid.Row=\"1\" Grid.Column=\"1\" HorizontalAlignment=\"Stretch\"\/>\r\n         <TextBox x:Name=\"txtInhalt\" Grid.Row=\"2\" TextWrapping=\"Wrap\" Grid.Column=\"1\" VerticalAlignment=\"Stretch\" \r\n             HorizontalAlignment=\"Stretch\" Height=\"Auto\" AcceptsReturn=\"True\"\/>\r\n         <StackPanel Orientation=\"Horizontal\" Grid.Row=\"3\">\r\n             <Button x:Name=\"btnSenden\">Senden<\/Button>\r\n             <Button x:Name=\"btnAnzeigen\">Anzeigen<\/Button>\r\n         <\/StackPanel>\r\n     <\/Grid>\r\n<\/Window><\/pre>\n
Dadurch, dass wir für die dritte Zeile den Wert der Eigenschaften Height <\/b>und Width <\/b>auf Auto <\/b>eingestellt haben, wird diese Zeile gemeinsam mit dem Fenster vergrößert. Damit wir im Textfeld txtInhalt <\/b>mehrzeilige Texte eingeben können, haben wir die Eigenschaft TextWrapping <\/b>auf Wrap <\/b>und AcceptsReturn <\/b>auf True <\/b>eingestellt.<\/p>\n
Verweis auf Outlook hinzufügen<\/h2>\n
Damit wir Outlook von einer WPF-Anwendung aus programmieren können, fügen wir den entsprechenden Verweis auf die Outlook-Bibliothek Microsoft.Office.Interop.Outlook <\/b>hinzu. Dazu öffnen Sie den Verweise-Manager <\/b>über den Menüeintrag Projekt|Verweis hinzufügen… <\/b>und suchen im nun erscheinenden Dialog nach dem Wort Outlook<\/b>.<\/p>\n
Selektieren Sie den Eintrag Microsoft.Office.Outlook.Interop <\/b>(siehe Bild 2) und schließen Sie den Dialog mit OK<\/b>. Sollten Sie, wie im obigen Dialog der Fall, mehrere gleichnamige Einträge vorfinden, handelt es sich um verschiedene Versionen. Wählen Sie dann die aktuellere Version aus.<\/p>\n
\"Erweitern<\/p>\n
Bild 2: Erweitern der Verweise des Projekts um die Outlook-Bibliothek<\/span><\/b><\/p>\n
Dann statten wir die Schaltfläche cmdSenden<\/b> mit der Ereigniseigenschaft Click <\/b>aus. Nach der Eingabe des Gleichheitszeichens können Sie mit der Tabulator-Taste automatisch die entsprechende Ereignismethode anlegen, indem Sie aus der dann erscheinenden Auswahlliste den Eintrag  <\/b>auswählen:<\/p>\n
<Button x:Name=\"btnSenden\" Click=\"btnSenden_Click\">Senden<\/Button><\/pre>\n
In der Code behind-Klasse erscheint dann die folgende Methode:<\/p>\n
Private Sub <\/span>btnSenden_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\nEnd Sub<\/span><\/pre>\n
In der Klasse fügen wir nun zunächst eine Imports<\/b>-Anweisung hinzu, mit der wir den Outlook-Namespace verfügbar machen:<\/p>\n
Imports Outlook = Microsoft.Office.Interop.Outlook<\/pre>\n
Damit greifen wir über das Schlüsselwort Outlook <\/b>auf Elemente dieses Namespaces zu.<\/p>\n
Textfelder mit Beispiel füllen<\/h2>\n
Bevor wir uns auf die Outlook-Programmierung stürzen, legen wir noch eine Ereignismethode für das Ereignis Loaded <\/b>des Window<\/b>-Elements an. Diese soll die drei Textfelder mit Beispieltexten füllen, damit das Fenster beim Öffnen gleich wie in Bild 3 aussieht:<\/p>\n
\"Beispielfenster<\/p>\n
Bild 3: Beispielfenster zum Versenden von E-Mails<\/span><\/b><\/p>\n
Private Sub <\/span>Window_Loaded(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n     txtAn.Text = \"andre@minhorst.com\"\r\n     txtBetreff.Text = \"Testmail\"\r\n     txtInhalt.Text = \"Hallo Herr Minhorst,\" & vbCrLf<\/span> _\r\n         & vbCrLf<\/span> _\r\n         & \"dies ist eine Testmail.\" & vbCrLf<\/span> _\r\n         & vbCrLf<\/span> _\r\n         & \"Mit freundlichen Grüßen\" & vbCrLf<\/span> _\r\n         & \"André Minhorst\"\r\nEnd Sub<\/span><\/pre>\n
Outlook-Mail erzeugen<\/h2>\n
Danach kümmern wir uns um den Code, der die Mail mit den angegebenen Daten versenden soll. Dazu füllen wir die bereits angelegte Ereignismethode btnSenden_Click <\/b>wie folgt:<\/p>\n
Private Sub <\/span>btnSenden_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n     Dim <\/span>objOutlook As <\/span>Outlook.Application\r\n     Dim <\/span>objMailItem As <\/span>Outlook.MailItem\r\n     objOutlook = New<\/span> Outlook.Application\r\n     objMailItem = objOutlook.CreateItem(Outlook.OlItemType.olMailItem)\r\n     With<\/span> objMailItem\r\n         .To = txtAn.Text\r\n         .Subject = txtBetreff.Text\r\n         .Body = txtInhalt.Text\r\n         .Send()\r\n     End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t