Auto-forwarding agent with reply to correct including attachments
Posted on 2006-07-23
We are running Notes Domino 6.5.1 on Windows 2000 Server.
I need to be able to forward email to another address for some executives for their mobile devices. Until recently the code we were using was working fine. Unfortunately with technology getting more advanced the executives can now open attachments and would like us to include attachments as well.
The following code has been great except for it does not include attachments:
Dim s As New NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Dim maildoc As NotesDocument
Set db = s.currentdatabase
Set col = db.unprocesseddocuments
Set doc = col.getfirstdocument
While Not (doc Is Nothing)
Set maildoc = db.createdocument
maildoc.From = doc.From
maildoc.Principal = doc.From
maildoc.ReplyTo = doc.From
maildoc.SendTo = "<User's E-Mail Account>"
maildoc.CopyTo = "<User's E-Mail Secondary Account (if applicable)>"
maildoc.Subject = doc.Subject
maildoc.Body = doc.Body
maildoc.Form = "Memo"
Call s.UpdateProcessedDoc( doc )
Set doc = col.getnextdocument( doc )
Can anyone tell me how to include attachments with this code?