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