This will convert attachments to embedded files in a notes document
dim fileName as string
Dim embedded As NotesEmbeddedObject
fileName = "InsertYourFileNameHere.txt"
Set embedded = doc.GetAttachment( fileName )
tempDir = Environ("TEMP")
extractPath = tempDir + "\" + fileName
Call embedded.ExtractFile( extractPath )
Call attachmentRTI.EmbedObject( EMBED_ATTACHMENT, "", extractPath )
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.