I am having the same problem but i cant use macros is there a way to do this with out using a macro.


Quote Originally Posted by PaulAJ4 View Post
Hi, I had the exact same problem and noticed that no one had answered you here, so when I figured out a solution, I figured I'd share it. For this to work, you'll have to copy and paste all the attached emails to a dedicated folder in your Outlook. Then, when you run the macro, it will prompt you to select a folder, and you just select whatever folder you put them in. You should make sure the folder only contains the emails you want to run the macro on, as it will run on every message in the folder. Make sure to put the path of the folder where you want your files to go in "quotes" after the equal sign in the macro before running it. This is also set up to save the attachment as a .pdf with its original name.


Sub SaveAttachments()
    Dim Inb As Folder
    Dim Msg As MailItem
    Dim Att As Attachment
    Dim Name As String
    Dim Path As String
    Set Inb = Outlook.Session.PickFolder
    Path = 
    On Error Resume Next
    For Each Msg In Inb.Items
        For Each Att In Msg.Attachments
            Name = Att.FileName
            Att.SaveAsFile Path & Name & ".pdf"
        Next Att
    Next Msg
End Sub