En fait c'etait le Firewall du nForce4 qui est un peu pointilleux
Ca marche parfaitement maintenant!
Juste une derniere petite question, le code "final" est comme ca:
For Each Item In DAS.Items
A = False
If InStr(Item.Subject, "abc" ) > 0 Or _
InStr(Item.Subject, "ABC" ) > 0 Then
For Each Atmt In Item.Attachments
extension = Right(Atmt.FileName, 3)
If extension = "doc" Or extension = "htm" Or extension = "html" _
Or extension = "pdf" Or extension = "pps" Or extension = "ppt" _
Or extension = "xls" Then
A = True
FileName = "C:\ABC\" & _
Format(Item.CreationTime, "yymmdd_" ) & Atmt.FileName
Atmt.SaveAsFile FileName
i = i + 1
End If
Next Atmt
End If
If A Then
Item.UnRead = False
Item.Delete
End If
Next Item
Le probleme est que cela ne marche pas pour les fichiers joints de type "html" (extension de 4 caracteres), et si je change pour 4, les 3 (pdf etc.) ne sont pas sauvegardes
J'ai essaye de bidouiller un peu avec des boolean and/or mais ca ne m'a pas avance a grand chose...
Tu n'aurais pas une idee pour rajouter des extensions de fichiers de quatre lettres?
Merci encore,