|
The EmbedObject Method of the NotesRichtext class allows you to create attachments and other embedded objects. However, it doesn't let you move one from one document to another. We use code below to copy a file from an e-mail to a new document. I would also add a shell commend to delete the detached file once created.
Set rtiFile = doc.GetFirstItem("$File")
Set embobjReport = doc.GetAttachment(rtiFile.Values(0))
strFilePath = Environ("temp") & ""
strFileName = doc.Subject(0) & " " & "." & Right(embobjReport.Name, 3)
Call embobjReport.ExtractFile(strFilePath & strFileName)
Call rtiBody.EmbedObject(EMBED_ATTACHMENT, "", strFilePath & strFileName,
strFileName)
|
