View Single Post
Old 03-10-2006, 09:52 AM   #5 (permalink)
tacoyac
New Member
 
Join Date: Mar 2006
Model: 8700C
Posts: 4
Post Thanks: 0
Thanked 0 Times in 0 Posts
Default 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
Offline