[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