recupérer les pièces jointes de mes message outlook ( Cela je l'effectue deja )
Ensuite je voudrai garder le message dans Outlook tout en supprimer le fichiers joint et en rajoutant un autre fichier qui me dit ou a été sauvegarder mon fichier joint auparavant
Voici mon code :
Code :
cpt ="0"
debut = Timer
pst = InputBox ("Entrer le nom du fichier de dossiers personnels (pst)" & vbCrLf & _
"Exemple : Dossiers personnels, Archive, Outlook Connector For Mdaemon", _
"Sélection du dossiers personnels - Service MCO" )
dossier_outlook = InputBox ("Entrer le nom du dossier Outlook à extraire les fichiers joints" & vbCrLf & _
"Exemple : Boîte de réception" & vbCrLf & "Seul les fichiers doc, docx, xls, xlsx, pdf seront extraits ", _
"Sélection du dossier Outlook - Service MCO" )
sous_dossier_outlook = InputBox ("Entrer le nom du sous-dossier Outlook à extraire les fichiers joints" & vbCrLf & _
"Exemple : année 2007" & vbCrLf & vbCrLf & "Si vous n'avez pas de sous-dossier, cliquer sur OK ou ANNULER", _
"Sélection du sous-dossier Outlook - Service MCO" )
Target_Folder = InputBox ("Entrer le chemin complet du répertoire de destination (il doit être créé préalablement)" & vbCrLf & "exemple : c:\mailbox\extract\", _
"Choix du répertoire cible – Service MCO" )
Set oOutLookObject = Createobject("Outlook.Application" )
Set objFolder = oOutLookObject.GetNameSpace("MAPI" ).Folders(pst)
Set objFolder = objFolder.Folders(dossier_outlook)
If Not sous_dossier_outlook = False Then
If Not sous_dossier_outlook = "" Then
Set objFolder = objFolder.Folders(sous_dossier_outlook)
End If
End IF
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Je ne sais pas. (Je réponds sans pouvoir vérifier )
Mais je te vois, ligne 55, faire un objMail.Delete() Vérifie si tu ne peux pas faire la même chose ou un équivalent sur objMail.attachment.Items(x).Delete()
)
