Good mail forwarding agent

View member feedback to this tip.

The following agent makes a copy of a new e-mail, strips it of the CC and BCC fields (to prevent duplicate e-mails to people), inserts the original "Send to" field and then sends the e-mail to any e-mail address specified. This lets a user see who the original sender is. Otherwise, if you're forwarding e-mails to a handheld, the "From" field will always be you.

This new e-mail will also contain a "Header" that gives the user additional information (original recipient, recipients who were copied on the original e-mail, etc.)

This agent must run on the "Before New Mail Arrives" event. Also, set the runtime security level to "2."

Have fun.

Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 Dim forward As NotesDocument
 Dim forwardaddress As String
 Dim rtitem As NotesRichTextItem
 Dim rtnav As NotesRichTextNavigator
 
 forwardaddress = "recipient@test.com"
 'set to the address that you would like 
to forward mail to
 Set db = s.currentdatabase
 Set doc = s.DocumentContext
 
 Set forward = New NotesDocument(db)
 Call doc.CopyAllItems(forward, True)
 Set rtitem = forward.GetFirstItem( "Body" )
 Dim newtext As String
 
 Set rtnav = rtitem.CreateNavigator
 Call rtnav.FindFirstElement(RTELEM_
TYPE_TEXTPARAGRAPH) 'navigation element in 
order to place header in front of body text
 
 Dim nn As New NotesName(doc.
GetItemValue("From")(0)) 'determines if this is 
an internal message or not
 Dim cc As New NotesName(doc.
GetItemValue("CopyTo")(0))  
 Dim sto As New NotesName(doc.
GetItemValue("SendTo")(0)) 
 
 
'Set up a header that will be attached 
to the email which specifies additional 
info about the original email
 Dim testcopy As String
 If doc.GetItemValue("CopyTo")(0) = "" Then
  testcopy = "no one."
 Else
  
  Forall x In doc.GetItemValue("CopyTo")
   If testcopy = Null Then
    testcopy = x
   Else
    testcopy = testcopy + x + ", "
   End If
   
  End Forall
  
 End If
 
 
 If nn.IsHierarchical Then 'if it is then get 
their internet address
  If nn.Addr821 <> Null Then 'if they 
have one then use this as the from 
address
   
   Call rtitem.BeginInsert(rtnav)
   Call rtitem.AddNewLine( 1 )
   Call rtitem.AppendText( "Original message 
sent to " + sto.Addr821 + " and 
copies were sent to " + testcopy)
   Call rtitem.AddNewLine( 3 )
   Call rtitem.EndInsert
   
   Call forward.RemoveItem("CopyTo")
   Call forward.RemoveItem("BlindCopyTo")
   Call forward.ReplaceItemValue
("From", nn.Addr821)
   Call forward.Save( True, True )
   
  Else
   Call rtitem.BeginInsert(rtnav)
   Call rtitem.AddNewLine( 1 )
   Call rtitem.AppendText( "Original message 
sent to " + sto.Addr821 + " and 
copies were sent to " + testcopy)
   Call rtitem.AddNewLine( 3 )
   Call rtitem.EndInsert
   
   Call forward.RemoveItem("CopyTo")
   Call forward.RemoveItem("BlindCopyTo")
   Call forward.ReplaceItemValue("iNetFrom",
 nn.Addr821)
   Call forward.Save( True, True )
  End If 'otherwise if this is an internal
 message and the internet address of 
that user is not populated, use the agent 
signer's return address
 Else 
  Call rtitem.BeginInsert(rtnav)
  Call rtitem.AddNewLine( 1 )
  Call rtitem.AppendText( "Original message 
sent to " + doc.GetItemValue
("SendTo")(0) + " and copies were sent to " 
+ testcopy)
  Call rtitem.AddNewLine( 3 )
  Call rtitem.EndInsert
  
  Call forward.RemoveItem("CopyTo")
  Call forward.RemoveItem("BlindCopyTo")
  Call forward.ReplaceItemValue("iNetFrom", 
doc.GetItemValue("From")
(0)) 'otherwise this came in from the internet, 
so just use the from address 
as the inetfrom
  Call forward.Save( True, True )  
 End If
 forward.Send False, forwardaddress 
 Call forward.RemovePermanently(True)
 
End Sub

MEMBER FEEDBACK TO THIS TIP

It's a great script, but is there a possibility to forward without an attachment?

—Ronald V.

******************************************

I haven't tested this, but this may work with a little modification. This routine checks for embedded objects and then deletes them.

  If forward.HasEmbedded Then 
    Forall x In forward.EmbeddedObjects 
      call x.remove 
    End Forall 
  Else

—Steve Pitcher, tip author

Do you have comments on this tip? Let us know.

This tip was submitted to the SearchDomino.com tip exchange by member Steve Pitcher. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.

Rate this Tip To rate tips, you must be a member of SearchDomino.com. Register now to start rating these tips. Log in if you are already a member. Digg This!     StumbleUpon     Del.icio.us    RELATED CONTENT LotusScript Extracting attachments from a Lotus Notes rich-text field Programmatically replace the design of Lotus Notes databases Reading a binary field in an Oracle database with LotusScript LotusScript equivalent of @Picklist for Lotus Notes Launch large attachments within an email from a Notes database How to find files on a hard drive or mapped network with LotusScript Update the ACL from the Roles view with LotusScript LotusScript agent moves tagged spam email to junk mail folder Create a personalized greeting for Lotus Notes database users Fail-safe rich-text validation using LotusScript LotusScript Extracting attachments from a Lotus Notes rich-text field Programmatically replace the design of Lotus Notes databases Reading a binary field in an Oracle database with LotusScript LotusScript equivalent of @Picklist for Lotus Notes Launch large attachments within an email from a Notes database How to find files on a hard drive or mapped network with LotusScript Update the ACL from the Roles view with LotusScript LotusScript agent moves tagged spam email to junk mail folder Set a value in a field existing in another Lotus Notes database Create an automatic scheduled view export in Excel RELATED RESOURCES 2020software.com, trial software downloads for accounting software, ERP software, CRM software and business software systems Search Bitpipe.com for the latest white papers and business webcasts Whatis.com, the online computer dictionary DISCLAIMER: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.