Domino 9 und frühere Versionen > ND7: Entwicklung
Serienmail(Serienbrief) mit personalisierte-Anhang
Boulbadaoui:
Hallo,
nachdem ersten Lauf, soll die Schleife auf Next gehen und bei der Zeile
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") kommt die Fehlermeldung!
Laufzeitfehler 7368: Rich text item u:\info\schlarb.pdf alredy exists!
DAU-in:
Dann kontrolliere dieses Dokument. Und kontrolliere die Namen der Anhänge.
Speicherst du die Mails ab oder verschickst du die? Wenn du die Mails abspeicherst, un d im 2 Lauf wieder darauf zugreifst, kann es sein, dass das Ergebnis des ersten Laufes der Durchführung des 2. Laufes im Wege steht.
Boulbadaoui:
Danke,
will ich die gern, wenn es geht direkt verschicken!
dirk_2909:
--- Zitat ---Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") kommt die Fehlermeldung!
--- Ende Zitat ---
Prüf doch vorher ab, ob die Datei existiert, wenn ja dann lösche diese o.ä.
--- Zitat ---will ich die gern, wenn es geht direkt verschicken!
--- Ende Zitat ---
Dann verschicke die Mail nach jedem Lauf und lösche alle Objekte und Dateien, die du erzeigst hast
und erstelle sie im neuen Lauf neu
Boulbadaoui:
Danke,
habe folgende Änderung gemacht, daß erst verschicken, bereingen und dann die Schleife.
For Each Attachment In ArrAttachment
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment)
MailDoc.CREATERICHTEXTITEM (Attachment)
End If
If Entwurf Then
Call MailDoc.Save(True, True)
Else
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
MailDoc.Send 0, Recipient
End If
'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Next
End Sub
Trotzdem bekomme ich eine Fehlermeldung "Laufzeitfehler 91: (Objektvariable oder with-Blockvariable nicht festgelegt)
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln