Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Download:

Datei 1: axEmail_Send.zip

 

 

Im Beispiel wird gezeigt, wie man in Microsoft Access, Excel oder anderen MS Office Programmen direkt eine Email versendet werden kann.

Dabei verwendt man die axEmail_Sende Komponente, welche direkt Emails aus dem Programm heraus versenden kann.

 

Die Komponente ist in vb.net Framework 4.6 geschrieben und kann kostenlos verwendet werden.

Im Anhang: ActiveX COM Contol axEmail_Send.dll

 

 

Zum Verwenden unter den Office Anwendungen muss man die COM Komponente erst als Admisitrator installieren, indem man die Datei register_axEmail_Send ausführt.

 

In der Registrierungsdatei wird der Registrierungsmanager  regasm.exe aufgerufen zum Installieren der axSend_Send.dll.

C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe "C:\_Daten\Desktop\Demo\Access\2017-11-22 AxEmail Send\axEmail_Send.dll" /tlb /codebase

pause

 

 

 

Komplettes Code Beispiel in vba

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 axEmail_Send.axEmail_Send

    Set objEmail = New axEmail_Send.axEmail_Send

   

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

    Dim sAddress_REPLYTO As String, sAttach_File 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

    sAddress_CC = tbxEmail_Cc

    sAddress_REPLYTO = tbxReplyTo

    sAttach_File = tbxAttach_File

 

    Enable_SSL = True

    sPort = tbxPort

    sSubject = tbx_Subject

    sText = tbxText

 

    '< SEND >

    '*send with axEmail_Send.dll Control

    objEmail.Send_Email sAddress_TO, sAddress_CC, sAddress_FROM, sAddress_REPLYTO, sAttach_File, sPassword, SMTP_Address, sPort, Enable_SSL, sSubject, sText

    '</ SEND >

   

    '--< Email einstellen >--

   

    '< Abschluss >

    Set objEmail = Nothing

    '</ Abschluss >

   

    MsgBox "fertig"

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

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

End Sub

 

 

 Anhang: ActiveX Komponente und Beispiel in Access Datenbank

Mobile
»
Email aus Excel und Access senden

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de