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
|