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 = "[email protected]"
 '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.