Before New Mail on Attachments

I have an agent that was running on Ver. 7

The Agent strips an attachment and moves it to a shared folder on the network for pick-up by another application.

When we went to ver. 8 this stopped working. I am able to select the document and execute the agent by hand.

I have tried the following;

Changing the agent to run after new mail arrives

Changing the agent to run on a scheduled basis on every 15 min’s

Still reading and trying a few other things. If anyone has experienced this same problem and can help please let me know.

Code for the agent;

Sub Initialize

Dim session As NotesSession

Dim db As NotesDatabase  

Dim dc As NotesDocumentCollection

Dim doc As NotesDocument	

Dim body As NotesRichTextItem	

'SEND E-Mail Notifications out

Dim docMAIL As NotesDocument 



Set session = New NotesSession

Set db = session.CurrentDatabase	

Set doc = session.DocumentContext	

If Not doc.HasEmbedded Then 

'E-mail help desk if not attachment was found

	Set docMAIL = New NotesDocument( db ) 

	docMAIL.Form = "Memo"

	docMAIL.SendTo = " e-mail address"  

	docMAIL.Subject = "FAX NOTIFICATION - No Attachment was found on Document"		

End If	

Set body = doc.GetFirstItem("Body")	

’ Get attachments

Forall att In body.EmbeddedObjects

	If att.Type = EMBED_ATTACHMENT Then

		filepath$ = "\\Server\folder\Faxes\ Fax "+ Cstr(Doc.UniversalID)  + att.Source

		Call att.ExtractFile(filepath$)

		Print filepath$

	End If

End Forall

End Sub

Subject: Error log on the agent - Hoping this will Assist on Helping me with this Agent Issue. I have been fighting this all week.

07/31/2008 12:15:47 PM MIME to CD error (Process: Router (00000808:0000000C), Database: D:\Lotus\domino\data\Mail**.nsf, Note: 80000001): Invalid or nonexistent document07/31/2008 12:15:47 PM End MIME to CD Conversion (Process: Router (00000808:0000000C), Database: D:\Lotus\domino\data\Mail*.nsf, Note: 80000001)

07/31/2008 12:15:47 PM Router: Agent ‘Embedded Attachment’ error: Type mismatch

Another agent gives me this set -

line 16 =

Set body1 = doc.GetFirstItem( “Body” )

Error Msg:

07/31/2008 12:18:19 PM AMgr: Agent (‘Remove Fax to SI OnBase Folder’ in ‘Mail*****.nsf’) message box: Object variable not set on 16

07/31/2008 12:18:19 PM AMgr: Agent (‘Remove Fax to Folder’ in ‘Mail*******.nsf’) message box: Object variable not set on 17

07/31/2008 12:18:19 PM AMgr: Agent (‘Remove Fax to Folder’ in ‘Mail*****.nsf’) message box: FOR loop not initialized on 18

07/31/2008 12:18:19 PM AMgr: Agent (‘Remove Fax to Folder’ in ‘Mail*******.nsf’) message box: Object variable not set on 19

07/31/2008 12:18:19 PM AMgr: Agent (‘Remove Fax to Folder’ in ‘Mail*****.nsf’) message box: FOR loop not initialized on 20

07/31/2008 12:18:19 PM AMgr: Agent (‘Remove Fax to Folder’ in ‘Mail*****.nsf’) message box: Object variable not set on 21

Subject: set incoming mail style in users mailbox to rich text

hi,

we have the same problem since v 8.0.1. but the problem exists only if the mail was addressed in internet style. if i send an mail to the mailbox and set the adress like abc@test.com the agent doesnt’ work and the attachement will not detached. if i send the same mail adressed like abc/test/domain (hierachical) the agent works fine. the internet style message is a mime-style message and the hierachical mail is an rich text mail. now i have changed the setting format for incoming mail in domino directory on the user to “rich text format” and the agents works.

but a little bit strange. with domino 7.0 the agent works without this workaround.

hope this help…

regards,

Friesen Jung