[visual basic] export degli allegati

[Dbz]

Ciao a tutti,
ho realizzato il seguente codice che esporta gli allegati dalle mail.
Public Sub SaveAutoAttach()
Dim OutlookApp As Object
Dim OlNs As Object
Dim OlFolder As Object
Dim x As Long
Dim att As Outlook.Attachment
Dim MItem As Outlook.mailitem


Set OutlookApp = New Outlook.Application
Set OlNs = OutlookApp.GetNamespace("MAPI")
Set OlFolder = OlNs.PickFolder


For Each MItem In OlFolder.Items

For Each att In MItem.Attachments
If InStr(att.DisplayName, ".pdf") Then
att.SaveAsFile ("D:\Allegati") & "\" & att.DisplayName
End If
On Error Resume Next
Next att
On Error Resume Next
Next MItem

End Sub


Quando scarico le PEC (formato .eml) il programma outlook non mi apre il file:mc: :mc: