![\"Hinzufügen](\"..\/tl_files\/images\/pic_202_001.png\")
<\/a><\/p>\nBild 1: Hinzufügen einer Schaltfläche zum Versenden der Rechnung per E-Mail<\/p>\n
Dieser fügen Sie die Anweisung aus Listing 1 hinzu. Sie stellt die Eigenschaft Enabled <\/b>der Schaltfläche cmd-RechnungSenden <\/b>auf den Wert True ein, wenn das Feld Rechnungsdatei <\/b>der Datenherkunft des Formulars bereits den Namen der erstellten Rechnung im PDF-Format enthält.<\/p>\n Listing 1: Aktivieren und Deaktivieren der Schaltfläche zum Versenden einer Rechnung per E-Mail<\/p>\n Den eigentlichen Rechnungsversand löst der Benutzer durch einen Klick auf die neu hinzugefügte Schaltfläche aus. Damit dies geschieht, stellen Sie die Eigenschaft Beim Klicken <\/b>der Schaltfläche cmdRechnungSenden <\/b>auf den Wert [Ereignisprozedur] <\/b>ein, klicken auf die Schaltfläche mit den drei Punkten rechts von der Eigenschaft und ergänzen die nun im VBA-Editor erscheinende Ereignisprozedur wie in Listing 2.<\/p>\n Listing 2: Zusammenstellen und Anzeigen der E-Mail mit der Rechnung als Anhang<\/p>\n Die Prozedur deklariert ein Outlook<\/b>-Objekt und ein MailItem<\/b>-Objekt sowie eine String-Variable, in welcher der Inhalt der E-Mail zusammengestellt wird. Damit die beiden Objekttypen zur Verfügung stehen, benötigen Sie einen entsprechenden Verweis auf die Outlook-Bibliothek – mehr dazu erfahren Sie im Artikel E-Mails mit Outlook versenden<\/b>.<\/p>\n Danach füllt die Prozedur die Objektvariable objOutlook <\/b>mit einem Verweis auf das mit New <\/b>erhaltene Outlook.Application<\/b>-Objekt und erzeugt mit der CreateItem<\/b>-Methode dieses Objekts ein neues Objekt des Typs MailItem<\/b>.<\/p>\n Anschließend muss die E-Mail mit den entsprechenden Daten gefüllt werden:<\/p>\n Die Empfänger-Adresse liefert das Feld EMail <\/b>des Unterformulars mit den Kundendaten zur aktuell angezeigten Bestellung. Den Betreff stellen wir aus einem Text, der Bestellnummer und dem Bestelldatum zusammen, sodass dieser etwa Rechnung zur Bestellung 1234 vom 1.2.2013 <\/b>lautet.<\/p>\n Den Inhalt der E-Mail fügen wir der übersicht halber zeilenweise zusammen. Auch hier integrieren wir wieder die Bestellnummer und das Bestelldatum. Der Inhalt von strBody <\/b>landet schließlich in der Eigenschaft Body <\/b>des MailItem<\/b>-Objekts.<\/p>\n Fehlt noch der Rechnungsbericht: Diesen fügt die Prozedur mit der Add<\/b>-Methode der Attachments<\/b>-Auflistung hinzu.<\/p>\n Den Pfad der Rechnungsdatei entnimmt sie dem Feld Rechnungsdatei <\/b>der Datenherkunft des Formulars.<\/p>\n Zu guter Letzt stellen wir die Priorität der E-Mail mit der Rechnung auf Hoch ein und fordern vom Empfänger eine Empfangsbestätigung an – beides ist optional.<\/p>\n Wenn Sie eine solche Funktion neu zu einer Anwendung hinzufügen, wollen Sie die E-Mails vermutlich zunächst per Sichtkontrolle prüfen.<\/p>\n Daher zeigt die Prozedur die E-Mails zunächst mit der Display<\/b>-Methode an, der Benutzer kann diese dann mit einem Klick auf die Senden-Schaltfläche der E-Mail absenden.<\/p>\n Wenn Sie sich später vom ordnungsgemäßen Zusammenstellen der E-Mails überzeugt haben, ersetzen Sie die Display<\/b>-Methode durch die Send<\/b>-Methode – die E-Mails werden dann direkt verschickt.<\/p>\n Das Ergebnis sieht schließlich wie in Bild 2 aus: Eine sendebereite E-Mail mit allen benötigten Daten.<\/p>\n Bild 2: Anzeige einer E-Mail mit Rechnung vor dem Versand<\/p>\n Hier noch der Hinweis, dass zu einer gewerblich versendeten E-Mail noch eine entsprechende Signatur gehört.<\/p>\n Wenn Sie die Rechnung versenden, sollten Sie noch das Versanddatum notieren. Dazu fügen Sie der Tabelle tblBestellungen <\/b>ein Feld namens Rechnungsversand<\/b>, welches das Versanddatum der Rechnung speichert (siehe Bild 3).<\/p>\n Bild 3: Entwurfsansicht der Tabelle tblBestellungen<\/p>\n Mit steigender Anzahl der zu versendenden Rechnungen möchten Sie diese Aufgabe vielleicht automatisieren und gleich mehrere Rechnungs-E-Mails auf einen Schlag versenden. Kein Problem: Wir erstellen ein neues Formular, das alle Bestellungen anzeigt, deren Rechnung noch nicht versendet wurde.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Private Sub <\/span>SchaltflaechenAktivieren()\r\n Dim <\/span>bol As Boolean<\/span>\r\n bol = Len<\/span>(Nz(Me!Rechnungsdatei, \"\")) > 0\r\n ...\r\n Me!cmdRechnungSenden.Enabled = bol\r\n ...\r\nEnd Sub<\/span><\/pre>\nRechnung senden per Mausklick<\/h2>\n
Private Sub <\/span>cmdRechnungSenden_Click()\r\n Dim <\/span>objOutlook As <\/span>Outlook.Application\r\n Dim <\/span>objMail As <\/span>Outlook.MailItem\r\n Dim <\/span>strBody As String<\/span>\r\n Set<\/span> objOutlook = New<\/span> Outlook.Application\r\n Set<\/span> objMail = objOutlook.CreateItem(olMailItem)\r\n With<\/span> objMail\r\n .Recipients.Add Me!sfmKundendaten.Form!EMail\r\n .Subject = \"Rechnung zur Bestellung \" & Me!BestellungID & \" vom \" & Me!Bestelldatum\r\n strBody = \"Hallo!\" & vbCrLf<\/span> & vbCrLf<\/span>\r\n strBody = strBody & \"Hiermit erhalten Sie die Rechnung zu Ihrer Bestellung mit der Nummer \" _\r\n & Me!BestellungID & \" vom \" & Me!Bestelldatum & \".\" & vbCrLf<\/span> & vbCrLf<\/span>\r\n strBody = strBody & \"Mit freundlichen Grüßen\" & vbCrLf<\/span>\r\n strBody = strBody & \"Ihr Hans Muster\"\r\n .Body = strBody\r\n .Attachments.Add CStr(Me!Rechnungsdatei)\r\n .Importance = olImportanceHigh\r\n .ReadReceiptRequested = True<\/span>\r\n .Display\r\n '.Send\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
Rechnungsbericht hinzufügen<\/h2>\n
<\/a><\/p>\nRechnungsversand notieren<\/h2>\n
<\/a><\/p>\nMehrere Rechnungen auf einmal senden<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 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