imported>mutante mNo edit summary |
(No difference)
|
Latest revision as of 18:26, 28 August 2006
< mutante>
the task was: If mail comes from certain external adress and has attachments, go thru all attachments and save them to path on local disk. like user gets a .csv report mailed every monday from external adress and he wants them to end up on disk fully automatic so that other application can open up-to-date .csv and do something with it. i had found a code snippet that checked for inline attachments, but i think it failed cause "inline attachment" != "attachment"
< cubert>
You want to use a NotesRichTextItem and then loop through the EmbeddedObjects property, which is an array of NotesEmbeddedObject.
Dim rtBody As NotesRichText Item : Set rtBody = doc.GetFirstItem("Body") : Forall embedded In rtBody.EmbeddedObjects : If embedded.Type = EMBED_ATTACHMENT Then embedded.ExtractFile(path) : End Forall
< mutante>
wow ,service :) logs cubert to a wiki if he doesnt mind