#

Download:

Datei 1: Email_Send4_COM_Control.zip

 

 

ActiveX COM Control in Net-Framework 4 für Office Anwendungen

Mit der Email_Send4 Komponente kann man Emails direkt aus Microsoft Access, Word oder Excel heraus automatisiert senden, ohne dass man eine Bestätigung von Outlook drücken müsste.

 

Hier ein Beispiel in MS Acess 2016

 

Verweise auf .tlb

Die Email_Send komponente muss in vba (Alt-F11) unter Menü->Extras->Verweise mit Durchsuchen auf den lokalen Pfad der Datei Email_Send4.tlb eingebunden werden

 

 

 

Download, Benötigte Dateien

Für die Email_Send Komponente benötigt man die Datei Email_Send4.dll. Diese kann man hier herunterladen und auf einem lokalen Pfad speichern.

Zudem befinden sich im Download die register bat und unregister.bat Dateien zum Anmelden als ActiveX Control im Computer, damit die Komponente auch in Access und Excel gesehen werden kann.

 

 

Makro Code

Hier folgt als Beispiel der vba Makro Code, mit welchem das Email Senden in Microsoft Access ausgeführt wird.

Die Funktion funktioniert auch in MS Excel, Word und Powerpoint

Option Compare Database

Option Explicit On

 

Private Sub btnSend_Click()

    '---------------< btnSend_Click() >----------------

    fx_Email_Senden()

    '---------------</ btnSend_Click() >----------------

End Sub

 

 

Private Sub fx_Email_Senden()

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

    '--< Email einstellen >--

    Dim objEmail As Email_Send4.Email_Send4

    Set objEmail = New Email_Send4.Email_Send4

   

    Dim sAddress_TO As String, sSubject As String, sText As String

    Dim sAddress_FROM As String, sPassword As String, SMTP_Address As String, sPort As String, Enable_SSL As Boolean

    sAddress_FROM = tbxEmail_From

    sPassword = tbxPassword

    SMTP_Address = tbxDomain

 

    sAddress_TO = tbxEmail_To

    Enable_SSL = True

    sPort = tbxPort

    sSubject = tbx_Subject

    sText = tbxText

 

    '< SEND >

    '*send with Email_Send4.dll Control

    objEmail.Send_Email sAddress_TO, "", sAddress_FROM, sPassword, SMTP_Address, sPort, Enable_SSL, sSubject, sText

    '</ SEND >

   

    '--< Email einstellen >--

   

    '< Abschluss >

    Set objEmail = Nothing

    '</ Abschluss >

   

    MsgBox "send"

    '----</ mit Outlook senden >----

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

End Sub

 

 

 

Komponente registrieren.

Email_Send4.dll

Damit die Email_Send4.dll als ActiveX COM Control in Microsoft Office erkannt wird, muss man die Datei Register.bat als Administrator ausführe.

 

Register.bat anpassen

In der Register.bat wird die .NET Registrierung mit regasm.exe ausgeführt. Man muss den folgenden Pfad anpassen wo die aktuelle Komponente installiert werden soll.

 

C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe "C:\_Daten\Desktop\Demo\Access\2017-10-27 Email_Send4\Email_Send4.dll" /tlb /codebase

pause

 

 

Unregister.bat

Zum Deinstallieren muss man ebenfalls die Unregister.bat als Administrator ausführen.

Auch hier muss der Dateipfad zur aktuellen Email_Send4.dll angepasst werden

C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe /u "C:\_Daten\Desktop\Demo\Access\2017-10-27 Email_Send4\Email_Send4.dll"

pause

 

Mobile

.

yesmovies