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