freiberuflicher Software Entwickler C#, vb.Net, vba, UWP, WPF, WinForms, SQL Server, Access, Excel, ASP.Net Core MVC Telefon: 07022/9319004   Kontakt
#

Download:

Datei 1: 2017-10-10_Email_senden.accdb

 

 

Als Outlook eingebunden.

Code Beispiel in vba Programmierung

 

Man kann direkt in Microsoft Access Datenbanken Emails versenden.

Alles was man dazu benötigt ist die Email-Adresse, ein Email Titel als Subject und ein Email Text.

 

Hierzu empfiehlt es sich Outlook als Standard-Email Programm zu verwenden. Man kann die Emails als reinen Text oder als HTML versenden und sogar PDF Dokumente automatisiert anfügen wie zum Beispiel bei Rechnungen.

 

Als Video Tutorial

 

Ein kleines Beispiel ist hier angefügt zum Testen.

 

Wenn man auf den Button Email senden klickt, dann wird die Email automatisch aus dem eigenen Email-Account versendet an die gewünschte Adresse.

 

 

Vba Makro Code zum Einfügen in das eigene Datenprogramm und Microsoft MsAccess

Option Compare Database

Option Explicit On

 

Private Sub btnSend_Click()

    fx_Email_Senden()

End Sub

 

 

 

Private Sub fx_Email_Senden()

    '-------------< fx_Email_Senden() >-------------

 

    Dim sEmail_Adress As String

    sEmail_Adress = ctlEmail_Address.Value

 

    Dim sTitle As String

    sTitle = ctlTitle.Value

 

    Dim sText As String

    sText = ctlText.Value

 

    '----< USE OUTLOOK APP >----

    Dim app_Outlook As Outlook.Application

    Set app_Outlook = New Outlook.Application

   

    '--< Email einstellen >--

    Dim objEmail As Outlook.MailItem

    Set objEmail = app_Outlook.CreateItem(olMailItem)

    objEmail.To = sEmail_Adress

    objEmail.Subject = sTitle

 

    objEmail.HTMLBody = sText

    objEmail.Display False

 

    objEmail.Send

    '--< Email einstellen >--

   

    '< Abschluss >

    Set objEmail = Nothing

    Set app_Outlook = Nothing

    '</ Abschluss >

   

    '----</ USE OUTLOOK APP >----

    '-------------</ fx_Email_Senden() >-------------

End Sub

 

 

 

 

 

Falls Sie eine Email versenden und eine Meldung von Microsoft Outlook vor dem Senden erscheint, dann liegt das an den Sicherheitseinstellungen in Microsoft Outlook.

Im Standard dürfte der Email-Versand ohne Zwischenmeldung geschehen.

 

 

Folgende Email Outlook-Datei->Trust Center Einstellungen sind gesetzt:

Unter Outlook Optionen im Trust Center

Sind Makroeinstellungen auf Benachrichtigung für digital signierte Makros gesetzt und Add-Ins sind ausgeschaltet.

 

Mobile
»
Access: Emails direkt aus der Datenbank senden
»
Access: Export Access Tabelle direkt in Excel
»
Access, vba: Import einer Textdatei mit Umlauten und Trennzeichen
»
Access: Import Datei auf UTF-8 einstellen, Umlaute in Importspezifikationen
»
Access: Datum erhöhen oder verkleinern
»
Microsoft Access: Feedback und Vorschläge für Microsoft Access einreichen
»
Wie sortiert man einen Access Bericht
»
Wie erstellt man eine einfache Ribbonbar unter Microsoft Access 20007-2016
»
Einbinden von Pivot-Auswertungen unter Access 2016
»
Access: HTML Emails automatisch versenden mit Microsoft Access

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Raimund.Popp@Microsoft-Programmierer.de