Lotus Notes / Domino 10 > ND10: Administration & Userprobleme

Serien-Mail aus Excel mit LN

<< < (3/3)

Werner Götz:
Die Mails werden nach wie vor im Notes Client geöffnet und müssen dort dann noch manuell versendet werden?
Das dürfte der Zeitfresser sein und dürfte doch gar nicht notwendig sein?

Viele Grüße
-Werner

VBAstler:
Hallo Werner,

vielen Dank für den Hinweis und ich stimme Dir vollumfänglich zu: Entweder ab mit den MultiMails in die Entwürfe, wo ggf. mal noch eine individuelle Ergänzung vorgenommen werden kann, Ansonsten Direktversand. Aber auf jeden Fall alle ungeöffnet.

Wie kann ich das im Code abbilden (bin, wie gesagt, ohne jede Testumgebung ... :()?

Schöne Grüße

Werner Götz:
Ich würde mal folgendes ausprobieren:

Entweder

--- Code: ---            With LN_Document
                .Form = "Memo"
                .sendTo = sMailTo
                .copyTo = sCopyTo
                .Subject = sSubject
                .body = sBody
                .SaveMessageOnSend = True
                .PostedDate = Now()
                Call .Save(True, True)
            End With
 
            'Jetzt Notes es los ...!
            'Set LN_Workspace = CreateObject("Notes.NotesUILN_Workspace")
            'Call LN_Workspace.EDITDOCUMENT(True, LN_Document).GOTOFIELD("Body")

--- Ende Code ---
also am Ende des With das .Save und die beiden Zeilen LN_Workspace auskommentieren

oder

--- Code: ---            With LN_Document
                .Form = "Memo"
                .sendTo = sMailTo
                .copyTo = sCopyTo
                .Subject = sSubject
                .body = sBody
                .SaveMessageOnSend = True
                .PostedDate = Now()
                Call .Send(False)
            End With
 
            'Jetzt Notes es los ...!
            'Set LN_Workspace = CreateObject("Notes.NotesUILN_Workspace")
            'Call LN_Workspace.EDITDOCUMENT(True, LN_Document).GOTOFIELD("Body")

--- Ende Code ---
also am Ende des With das .Send und die beiden Zeilen LN_Workspace wieder auskommentieren.

Hierbei sind die Mails also sofort versendet ...



Viel Erfolg / Glück ;)
-Werner

VBAstler:
Moin Werner,

Du siehst mich bass erstaunt! Hatte ich doch gerade diese beiden Zeilen für den eigentlichen Trigger des Versands gehalten. Und dann alles noch ohne CreateWorkSpace ...?

LN macht mich fättisch (besser gesagt meine Unkenntnis darin;)). Aber es wird unverzagt (Dritt-)getestet und sobald ein Ergebnis zu haben ist, ist es hier verfügbar.

Herzlichen Dank und einen schönen Abend!

Navigation

[0] Themen-Index

[*] Vorherige Sete