Domino 9 und frühere Versionen > ND8: Entwicklung

LotusScript: Mailanhang auslesen

(1/3) > >>

magic_halli:
Hallo,

ich versuche mich gerade an LotusScript-Agents... soweit sogut.
Ich bin jetzt an der Stelle, wo ich von einer selectierten Mail gern den Anhang auslesen und ggf. speichern will.
Leider finde ich in der Designerhilfe zum Attachment auslesen nicht wirklich was.
Könnt ihr mir weiterhelfen, wie ich mir ein Attachment aus einer Mail hole?

Danke und Gruß

m3:
Dann hast entweder in der falschen Hilfe oder einfach falsch gesucht. Du willst Dir "notesEmbeddedObject.ExtractFile( path$ )" ansehen.

magic_halli:

--- Zitat von: m3 am 20.11.08 - 15:04:13 ---Dann hast entweder in der falschen Hilfe oder einfach falsch gesucht. Du willst Dir "notesEmbeddedObject.ExtractFile( path$ )" ansehen.

--- Ende Zitat ---
Ah ok, danke.

magic_halli:
Ok, habe das Beispiel aus der Hilfe für mich umgesetzt umgesetzt:

--- Code: ---Sub Initialize

Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument

Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument

'-----Attachment extrahieren und speichern-----
Dim attachment As Variant
Dim fileCount As Integer
fileCount = 0
Set attachment = doc.GetFirstItem("Body")
If ( attachment.Type = RICHTEXT ) Then
Forall o In attachment.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
fileCount = fileCount + 1
Call o.ExtractFile( "D:\temp\attachment" & Cstr(fileCount) )
Messagebox("Attachment gespeichert.")
End If
End Forall
End If

End Sub

--- Ende Code ---
Was mich aber hier stört ist:
Der Anhang wird als 'attachment1' gespeichert (gut, ist syntaktisch so festgesetzt). Ich hätte es aber unter dem Dateinamen, wie er wirklich ist und auch in der Mail zu sehen ist gern gespeichert. Heißt hier bei mir 'Testfile.txt'.
Wie stelle ich das an?

Ich muss ja hier irgendwie aus dem Body das EMBED_ATTACHMENT "picken" und dessen Name+Filetype ermitteln und dann abspeichern, oder?! Dann kann ich nämlich auch den Murks mit dem fileCount weglassen...

Gruß

magic_halli:
So, habs hinbekommen:
Habe die Zeile

--- Code: ---Call o.ExtractFile( "D:\temp\attachment" & Cstr(fileCount) )
--- Ende Code ---
durch

--- Code: ---Call o.ExtractFile( "D:\temp\" & o.Name )
--- Ende Code ---
ersetzt und den fileCounter rausgehauen. Funktioniert - ich kann nun das Attachment korrekt speichern!

Gruß

Navigation

[0] Themen-Index

[#] Nächste Seite