#

 

 

 

Wenn man Emails direkt aus einer Microsoft Office anwendung versenden will, dann muss man auf einen Email Sende Client zurück greifen.

In der Regel verwendet man hier Outlook als Remote Objekt.

Dieses Beispiel verwendet einen .NET Client, der direkt die Emails versendet, ohne Outlook zu verwenden.

 

 

Im Beispiel wird eine Formular gegeben, welches die Felder FROM, TO als Email Adress-Eingabe hat. Zudem benötigt man die Adresse des Email-Servers oder der Domain, über welche man die Emails versenden möchte.

In kombination mit dem Passwort kann dann die eingegebenen Nachricht als Subject und Text versendet werden.

 

In der Code-Behind Seite wird als Control unter Menü->Extras->Verweise ein SMTP Sendecontrol eingebunden.

Das Control ist hier im Anhang zum Download beigelegt.

 

Man muss nur unter der Office Anwendung einen Verweis auf die  Datei: Office_Email_Send.tlb hinzufügen.

Hier unter Microsoft MSAccess.

 

 

Als Referenz wird auf die mitgelieferte .tlb Datei verwiesen. Diese enthält den Code zu einem einfachen .NET 4 Email SendClient.

 

 

Zur Laufzeit

 

 

Im Beispiel wird das Ergebnis nach dem erfolgreichen Senden mit True zurückgegeben

 

Option Compare Database

Option Explicit On

 

Private Sub btnSend_Click()

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

    '< variables >

    Dim TO_Email As String

    Dim FROM_Email As String

    Dim Password As String

    Dim SMTP_Domain As String

    Dim Subject_Title As String

    Dim Text_Body As String

    '</ variables >

 

    '< init >

    TO_Email = tbxEmail_To

    FROM_Email = tbxEmail_From

    Password = tbxPassword

    SMTP_Domain = tbxDomain

    Subject_Title = tbx_Subject

    Text_Body = Text_Body

    '</ init >

 

 

    '----< Send Email >----

 

    Dim objEmail_Sender As New Office_Email_Send.Email_Sender

    Dim IsSend As Boolean

 

    '< Send >

    IsSend = objEmail_Sender.Send_Email(TO_Email, "", FROM_Email, Password, SMTP_Domain, Subject_Title, Text_Body)

    '< Send >

 

    MsgBox "Result Email send is: ", vbInformation, "COM Result" & IsSend

    '----</ Send Email >----

 

 

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

End Sub

 

 

 

Stichworte:

MSAccess, Access, Excel Word, Office

Email Client EmailClient SMTP Mail Client SMTPClient COM Control ActiveX 

Mobile

.

0123movie.net