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
#

Email mit Lotus Notes versenden

 

Aus Excel vba

Mit dem folgenden Code kann man in Windows 7,8, 10 aus Excel heraus in Lotus Notes Emails versenden.

Dabei muss man nur noch den Text, den  Email-Verteiler und eventuell Dateianhänge mit angeben

 

'<< Email_senden >>

            Email_senden_mit_Lotus_Email sEmail_Verteiler, sSubject, sText, sDatei

            '<</ Email_senden >>

 

 

 

Option Explicit

 

 

Public Sub Email_senden_mit_Lotus_Email(ByVal sEmpfaenger As String, ByVal sSubject As String, ByVal sBodyText As String, ByVal sAttachement As String)

    '-----------------< send_Lotus_Email() >-----------------

    '< Korrektur >

'    sBodyText = Replace(sBodyText, vbCrLf, "vbcrlf", , , vbBinaryCompare)

'    sBodyText = Replace(sBodyText, vbLf, "vblf", , , vbBinaryCompare)

'    sBodyText = Replace(sBodyText, vbCr, "vbcr", , , vbBinaryCompare)

'    sBodyText = Replace(sBodyText, vbNewLine, "vbnewline", , , vbBinaryCompare)

'    sBodyText = Replace(sBodyText, Chr$(13), "13", , , vbBinaryCompare)

'    sBodyText = Replace(sBodyText, Chr$(10), "10", , , vbBinaryCompare)

'    sBodyText = Replace(sBodyText, Chr$(7), "7", , , vbBinaryCompare)

    '</ Korrektur >

   

    '--< Mail_Anwendung_starten >--

    'Die Session starten

    Dim Session As Object 'Die Notes Session

    Set Session = CreateObject("Notes.NotesSession")

 

    'Den Benutzernamen auslesen und den Dateinamen

    'der MailDB errechnen

    'Dies wird nicht überall benötigt. Auf manchen

    'Systemen kann auch ein leerer String übergeben werden

    Dim UserName As String 'Der Benutzername

    UserName = Session.UserName

   

    Dim MailDbName As String 'Oeffnen Lotus Mail. Beim Oeffnen muss Email-Kennwort eingegeben werden

    MailDbName = "mail\saog.nsf"

    '</ Mail_Anwendung_starten >

  

    'Datenbank öffnen

    Dim Maildb As Object 'Die Datenbank

    Set Maildb = Session.GETDATABASE("", MailDbName)

    If Maildb.IsOpen = False Then

        Maildb.OPENMAIL

    End If

    '----</ Mail_Anwendung_starten >----

   

    '----< Mail_Document_erstellen >-- --

    'Ein neues Maildokument erstellen

    Dim MailDoc As Object

    Set MailDoc = Maildb.CREATEDOCUMENT

    MailDoc.Form = "Memo"

    MailDoc.sendto = sEmpfaenger

    MailDoc.Subject = sSubject

    MailDoc.body = sBodyText

    MailDoc.SAVEMESSAGEONSEND = True

   

    '< Anhang_anfuegen >

    '*Eingebettete Objekte und Anhänge hinzufügen

    Dim objAttachment

    Dim objEmbedded

    If sAttachement <> "" Then

        Set objAttachment = MailDoc.CREATERICHTEXTITEM("Attachment")

        Set objEmbedded = objAttachment.EMBEDOBJECT(1454, "", sAttachement, "Attachment")

    End If

    '</ Anhang_anfuegen >

 

    '< Email_in_App_einfuegen >

    Dim Workspace As Object

    Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE")

    Call Workspace.editdocument(True, MailDoc).GOTOFIELD("Body")

    '</ Email_in_App_einfuegen >

 

 

    '< Abschluss >

    Set Maildb = Nothing

    Set MailDoc = Nothing

    Set objAttachment = Nothing

    Set Session = Nothing

    Set objEmbedded = Nothing

    '</ Abschluss >

    '-----------------</ send_Lotus_Email() >-----------------

End Sub

 

 

Mobile
»
Email mit Lotus Notes versenden mit Excel vba Makros
»
Vba Code zum serienmässigen Versenden von Emails aus Excel
»
Serien-Email mit optionalen Dateianhängen
»
Emails automatisch mit Excel versenden anhand einer Datenliste
»
Serien-Emails senden mit Excel. Version 39
»
Excel Vorlage zum Versenden mehrer Emails mit verschiedenen Text-Vorlagen pro Zeile
»
Excel Vorlage: Automatisch eine Email versenden bei einer bestimmten Eingabe in Excel
»
Emails versenden aus Excel

.

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