OPTIONS
Option public
Option Declare

INITIALIZE
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim viewInbox  As NotesView
	
Dim tabItem As Variant, tabTemp As Variant
Dim sPathFichierExport  As String
Dim  sPlateForme As String
	
Set db = s.CurrentDatabase
Set viewInBox = db.GetView( "($InBox)"  ) 
	
sPlateForme = s.Platform
If splateForme <> "Windows/32" Then
	sPathFichierExport = "/MY_IFS_SHAREFOLDER_NAME/"
Else
	sPathFichierExport = "\MY_ISERIES_NAMEMY_IFS_SHAREFOLDER_NAME"
End If
	
Set doc = viewInBox.GetFirstDocument
Do While Not doc Is Nothing
	tabItem = doc.Items
	Forall ele In tabItem
		If ele.Type = RICHTEXT  Then
			tabTemp = ele.EmbeddedObjects
			If Not Isempty(tabTemp) Then
				Forall embobj In tabTemp
					If embobj.Type = EMBED_ATTACHMENT Then
						Call embObj.ExtractFile ( sPathFichierExport + embobj.Name ) 
						' If file exists on the disk, then the attachment is removed !
						If yaFichier( sPathFichierExport + embobj.Name ) = 1Then
							Call embObj.Remove
							Call doc.Save( True, False) 
						End If
					End If	
				End Forall
			End If
		End If
	End Forall
	Set doc = viewInBox.GetNextDocument( doc )
Loop
	
Quit:
	Exit Sub
	
ErrorHandler:
	Print "Erreur ligne " & Erl & " type " & Err  & " - " & Error 
	Goto Quit