Program Beispiel Formular Outlook Anruf

Hallo Allen!

Ich dachte unterstehende Email Funktion mal mit euch zu teilen. Als Ergänzung von die Helpfunktion …

  • Funktioniert super mit Mailings, Offene Posten usw.
  • Anruf geht mittels SendEmail(), eventuell mit Variablen usw.
  • Was man nicht braucht einfach löschen.

mfg,
Menno


'///////////////////////////////////////////////////////////////////////////////////////////////////////////
'MS Outlook Email Routine, basiert auf OLE
function SendEmail()
Dim OutlookApp as Object = CreateObject(„Outlook.Application“)
Dim objMail as Object = OutlookApp.CreateItem(0)
Dim To_Str as string = „test@domain.com
Dim Cc_Str as string = „“
Dim Bcc_Str as string = „“
Dim Betr_Str as string = „“
Dim EmailBodyTxt as string = „“
Dim EmailSignatureTxt as string = „“

'Outlook initialisation
On Error Do
if Errornumber = 2 then
StopMsg(„Outlook ist nicht installiert! Dieser Bericht kann nicht angezeigt werden.“)
end if
End Error

'Email Header
objMail.To = To_Str 'Recipients To
objMail.Cc = Cc_Str 'Recipients Cc
objMail.Bcc = Bcc_Str 'Recipients Bcc
Betr_Str = „Ein Emailbetreff …“
objMail.Subject = Betr_Str

'Email Body
EmailBodyTxt = „Dies ist ein Emailbodytext Beispiel…“

'Signature
EmailSignatureTxt = „\n\nFirmaname\nKontaktname\nAdresse\nPlz Stad\nTelefon Fax\nEmail Webseite“

'Mailbody Senden und freigeben
’ objMail.Attachments.Add(„C:\Test.doc“, olByValue, 1, „Test“) 'Insert attachment, see also: Attachments.Add method (Outlook) | Microsoft Docs
objMail.HTMLBody = EmailBodyTxt + EmailSignatureTxt 'Create HTML body of mail message
objMail.Body = EmailBodyTxt + EmailSignatureTxt 'Create non-HTML body of mail message

’ objMail.Send 'Send DIRECT the mail message from Outlook
objMail.display 'Open and display the mail message in Outlook
ReleaseObject(OutlookApp) 'freigeben Outlook
End function

'///////////////////////////////////////////////////////////////////////////////////////////////////////////

habe die Hinweis vergessen:

Ihr müsst wählen zwischen ein HTML Email oder nicht-HTML Email:

objMail.HTMLBody = EmailBodyTxt + EmailSignatureTxt 'Create HTML body of mail message
oder
objMail.Body = EmailBodyTxt + EmailSignatureTxt 'Create non-HTML body of mail message

beide geht nicht, also ein von 2 löschen :wink: