Serienmail(Serienbrief) mit personalisierte-Anhang

[DAU-in]

Was willst du damit sagen?

[Thomas Schulte]

Dein Fehler ist immer noch dersselbe. In deiner Variable attachment steht was drin, was KEINE Entsprechung zu einer Datei und einem Pfad auf deinem Dateisystem hat. Schmeiß deinen debugger in Excel an und schau dir den Wert da drin an.

Der wird vermutlich "anlagen" heisen, weil du auch vermutlich die erste Zeile deiner Excel Datei mit verwurstest. Und damit verwendest du die Überschrift zum Erstellen eines Mails.

[Boulbadaoui]

Danke nochmal und das stimmt auch wie du sagst: c3 hat die Überschrift: anlagen

wie kann ich das sauber lösen!

[ascabg]

Einfachste Variante.

In dem Du einfach mal so festlegst, dass in der ersten Zeile der Excel-Datei die Ueberschrift steht (zu stehen hat) und Dein Code einfach erst in der zweiten Zeile anfaengt die Daten auszulesen.


Andreas

[Boulbadaoui]

Vielen Dank,
erste Lauf (erste Zeile hat funktioniert, leider beim zweiten lauf, excel meldet

Laufzeitfehler 7368: Rich text item u:\info\schlarb.pdf alredy exists!

[DAU-in]

Vielen Dank,
erste Lauf (erste Zeile hat funktioniert, leider beim zweiten lauf, excel meldet

Laufzeitfehler 7368: Rich text item u:\info\schlarb.pdf alredy exists!

dann ist dort schon ein File mit gleichem Namen.

dann weisst du jetzt, dass der erste Lauf funktioniert hat.


Edith: ist das oben der gesamte Code, den du da hast?

[Boulbadaoui]

Hallo,
Die Datei existiet schon, soll auch als Anhang geschickt! siehe Teil1, Teil 2.

[DAU-in]

erste Lauf (erste Zeile hat funktioniert, leider beim zweiten lauf, excel meldet

Laufzeitfehler 7368: Rich text item u:\info\schlarb.pdf alredy exists!

Ich  bin jetzt nicht der Programmiercrack, aber wenns im ersten Lauf durchläuft und beim 2. lauf meckert, dass dass etwas bereits da ist mit einer Pfadangabe, sieht es für mich so aus, dass du beim ersten Mal ein File abspeicherst(dein Maildokument?) und beim zweitenmal er halt einen anderen Filenamen haben will.

[Boulbadaoui]

Danke,
wenn du das anschaust:
For Each Attachment In ArrAttachment
        If Attachment <> "" Then
            Set AttachME = MailDoc.CREATERICHTEXTITEM(Attachment)       
               
                Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
                MailDoc.CREATERICHTEXTITEM (anlagen)
        End If
        Next
die Schleife soll weiter zum next"Attachment! laufen!

[DAU-in]

Kurz gefragt:

an welcher Zeile tritt der Laufzeitfehler auf?

[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]

Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") kommt die Fehlermeldung!

Prüf doch vorher ab, ob die Datei existiert, wenn ja dann lösche diese o.ä.

will ich die gern, wenn es geht direkt verschicken!

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)

[ascabg]

Hallo,

Ist ja nun ein anderer Fehler als vorher (oder habe ich etwas verpasst).

Vor allem waere interessant, an welcher Stelle dieser Fehler ausgeloest wird?


Andreas

[Boulbadaoui]

hallo,
immer noch beim zweiten Ablauf

Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")

[ascabg]

Na der Fehler kommt ganz einfach daher, dass Du hier Deine benoetigten Objekte platt machst.

Code

        Set Maildb = Nothing
        Set MailDoc = Nothing
        Set AttachME = Nothing
        Set Session = Nothing
        Set EmbedObj = Nothing

Da dies innerhalb der For ... Each-Schleife passiert, ist es nur logisch, dass dieser Fehler auftaucht.


Andreas

[ascabg]

Ich habe mir mal die Problematik intensiver angesehen.

Diesen Code, erhebt keinen Anspruch auf Vollstaendigkeit.
(Schon vorab, es ist keine Fehlerbehandlung  vorhanden. Diese muesste noch eingebaut werden)
- Code ist in der Datei mail_aus_excel.txt

In der folgenden Konstellation funktioniert dieser Code bei mir ohne Probleme.
Excel 2000
LN Client 7.0.1
LN-Server 7.0.3

Im VBA-Editor muss ueber "Extras - Verweise" der Verweis auf die "Lotus Domino Objects" aktiviert sein. (siehe Screenshot)


Andreas

[Boulbadaoui]

Danke,
bekomme ich keine Fehlermeldung, leider schickt notes keine Mail!