Enregistrer automatiquement les pièces jointes dans Outlook 2010

Question

Mon objectif est de pouvoir enregistrer localement les pièces jointes d'une adresse e-mail spécifique dans un dossier. J'ai créé un script VB mais pour une raison quelconque, cela ne fonctionne pas.

Public Sub saveAttachtoDisk (itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
Dim dateFormat 
dateFormat = Format(Now, "dd-mm-yyyy H-mm") 
saveFolder = "c:\temp\" 
    For Each objAtt In itm.Attachments   
     objAtt.SaveAsFile saveFolder & "\" & dateFormate & objAtt.DisplayName   
     Set objAtt = Nothing  
    Next 
End Sub 

J'ai essayé de créer un nouveau module et une nouvelle règle il exécutera le script lorsque le message arrive à l'adresse spécifique. J'ai également essayé de mettre le script dans "ThisOutlookSession" mais rien ne fonctionne.

Answer 1

Avez-vous essayé d'exécuter le script manuellement sous le débogueur?

Essayez de choisir un autre lecteur. Le lecteur C: nécessite des privilèges d'administrateur pour l'écriture. L'article Getting Started with VBA in Outlook 2010 vous a aidé.