[tacoyac]

this is what we used:

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim mail As NotesDocument
Dim user As NotesName
Dim sName As String

Set db = session.CurrentDatabase
Set mail = db.CreateDocument
Set doc = session.DocumentContext
Set user = session.CreateName(doc.From(0))

Call doc.CopyAllItems(mail, True)

mail.Form = "Memo"
mail.SendTo = "email-address@mycingular.blackberry.net"
mail.CopyTo = ""
mail.BlindCopyTo = ""

If doc.INetFrom(0) = "" Then
mail.INetFrom = doc.From
Else
mail.INetFrom = doc.INetFrom
End If

Call mail.Send(True, False)

Call session.UpdateProcessedDoc(doc)
End Sub