Domino 9 und frühere Versionen > ND9: Entwicklung

Ändern des Betreffes ohne "Zerstörung" des NotesDocument

<< < (2/3) > >>

Andrew Harder:
Also der Code ist unvollständig, vielleicht mag das Forum ja Überlängen nicht, am besten hängst Du den ganzen Agenten mal als .lss an.

Aber verstehe ich das richtig, Du möchtest die
1. Alle selektierte Dokumente durchlaufen?
2. Diese Dokumente als .eml exportieren
3. Das Subjekt ändern

Gehe ich weiterhin richtig in der Annahme, das Du zum aufrufen des Agenten eine einfach Aktion benutzt hast und daher das 'UpdateProcessedDoc' eingebaut hast?
Gehe ich weiterhin richtig in der Annahme, das der Code im Agent steckt und nicht in einer ScripbtLib, weil Du eh keine Versionsverwaltung für das Script geplant hattest?

Jens T.:
Hallo und danke für die nächsten Antworten,

ich habe mal den Code oben entfernt, da ich mittlerweile mitbekommen habe, wo der Fehler liegt.

Es liegt an dem ConvertToMime(3). Das Dokument ging nicht verloren, sondern es wurde ja durch das Konvertieren in eine EML umgewandelt.
Jetzt ist die Frage, wie ich dann am besten aus einer konvertierten EML Datei Anhänge auslese?

Dieser Code funktioniert nur, wenn das Dokument noch nicht konvertiert wurde...


--- Code: ---Set rtitem = currentdoc2.getfirstItem("Body")

Dim fileCount As Integer
fileCount=0

On Error Resume Next

Dim anhaengename(30) As String
Dim anhaenge(30) As String
If ( rtitem.Type = RICHTEXT ) Then
On Error Resume Next
ForAll o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) And ( o.FileSize > 0 ) Then
anhaengecount%=anhaengecount%+1
fileCount = fileCount + 1

Call o.ExtractFile (Environ("Temp")&"\" + o.Name )
anhaengename(anhaengecount%)=o.Name
anhaenge(anhaengecount%)= (Environ("Temp")&"\" + o.Name )
'Call currentDoc2.Save( false, True )
End If
End ForAll
End Error
End If

--- Ende Code ---


@ Andrew Harder

Du gehst mit der Annahmen richtig. Das einzige was in den Annahmen fehlt ist dass ich vorher die Anhänge exportiere.
Gruß Jens

Peter Klett:
Du willst also eine Mail in EML umwandeln und die in der Mail enthaltenen Dateianhänge separat speichern?

Du kannst die Mail in EML umwandeln und Du kannst aus der Mail die Dateianhänge speichern, solange sie noch nicht in EML umgewandelt ist?

Warum drehst Du die Reihenfolge nicht einfach um?

1. Dateianhänge speichern
2. Mail in EML umwandeln

Jens T.:
Hallo nochmal,

ich brauche die Email als exportierte EML Datei. Nachdem ich es exportiert habe kann ich dieses Dokument aber nicht mehr zurück konvertieren (oder doch?).
Das mit dem Umdrehen ist keine Option, wenn das Dokument nochmals verarbeitet werden soll, ist es ja dann bereits als EML Datei in der Datenbank vorhanden.

Gruß Jens

Peter Klett:
Also, habe das mal nachgebaut, weil das nicht wirklich mein Fachgebiet ist.

Mit diesem Agenten führe ich das ConvertToMime auf eine Mail mit Dateianhängen aus und ändere den Titel.


--- Code: ---Sub Initialize
        Dim session As New NotesSession
        Dim db As NotesDatabase
        Set db = session.CurrentDatabase
        Dim col As NotesDocumentCollection
        Set col = db.UnprocessedDocuments
        Dim doc As NotesDocument
        Set doc = col.GetFirstDocument
        Call doc.ConvertToMime (3)
        doc.Subject = "xxx" & doc.Subject (0)
        Call doc.Save (True, True)
End Sub

--- Ende Code ---

Mit diesem Agent zeige ich mir DANACH die in dem Body enthaltenen Dateien an.


--- Code: ---Sub Initialize
        Dim session As New NotesSession
        Dim db As NotesDatabase
        Set db = session.CurrentDatabase
        Dim col As NotesDocumentCollection
        Set col = db.UnprocessedDocuments
        Dim doc As NotesDocument
        Set doc = col.GetFirstDocument
        Dim rtitem As NotesRichTextItem
        Set rtitem = doc.Getfirstitem("Body")
        ForAll o In rtitem.Embeddedobjects
                MsgBox o.Name
        End ForAll
End Sub

--- Ende Code ---

Du schreibst, dass Du .eml-Dateien exportieren willst. Mit ConvertToMime (3) erzeugst Du aber keine .eml-Dateien, sondern wandelst Richtext in Mime um.

Die .eml-Datei würde auch nicht in der Datenbank vorhanden sein, die wird ja genutzt, um sie außerhalb von Notes als Datei abzulegen.

Sorry, ich kann Dir nicht wirklich folgen, was Du willst, was bereits funktioniert, und wo dabei das konkrete Problem ist.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete