I have a shared database that receives emails with attachments. I want to creat a reply agent that replies to the sender with the email but without the attachment. I am not an expert in LotusScript. I have only been able to create a simple agent which sends the entire email back including the attachment. I have searched but have not found an example of what I am trying to achieve.
Subject: Try the Remove method of NotesEmbeddedObject
Copied from Designer 8 help:
This script removes the “City picture” embedded object from the Body item in a document.
Dim doc As NotesDocument
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
'…set value of doc…
Set rtitem = doc.GetFirstItem( “Body” )
If ( rtitem.Type = RICHTEXT ) Then
Set object = rtitem.GetEmbeddedObject( “City picture” )
Call object.Remove
Call doc.Save( True, True )
End If
HTH,
Subject: Agent reply without attachment
I do not have any LotusScript for the reply with history. This appears to be a solution for extracting the attachment. I take it that this code removes the attachment but does it remove it from the reply or from the inbox copy also? If that is the case then it would not work for this instance. I would’ve thought there is already code behind the standard reply without attachment that can be accessed somehow.
Subject: Automated Reply without attachment
I have found someone to script this for me. The issue for me is now closed.