Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Email mit Lotus Notes versenden aus Excel vba Makro

03.04.2019 (👁9697)


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