Der nachfolgende Code ermöglicht es, eine Mail über VBA-Code aus Access zu erstellen:
Sub Mailversand(str_empfaenger, str_betreff, str_Dateiname, str_Vorname, str_Nachname, str_Telefon, str_Mail) ' Diese SUB erstellt eine Mail mit Anhang Dim OL_App As Object Set OL_App = CreateObject("Outlook.Application") With OL_App.CreateItem(0) .BodyFormat = 3 .GetInspector.Display .To = str_empfaenger .Subject = str_betreff .htmlBody = "Hallo,<br><br>im Anhang findest Du die im Betreff genannte Datei.<br><br>Mit freundlichen Grüßen<br><br>" & str_Vorname & " " & str_Nachname & "<br>" & str_Telefon & "<br>" & str_Mail .Attachments.Add str_Dateiname End With End SubDie Routine erstellt eine Mail mit Anhang, die aus einem übergeordneten Modul aufgerufen wird. Nach Erstellung wird die Mail in Outlook aufgerufen, bevor diese versendet wird.
