code
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
|