VBA - Retrieve emails Attachment & Download

TTC-BlueHill1 

It seems like you are encountering a couple of issues. Let us address them step by step:

1. 'User-defined type not defined' error: This error typically occurs when the necessary Outlook object library reference is not added to your VBA project. To resolve this, you need to ensure that the Microsoft Outlook Object Library is referenced in your VBA project. Here's how you can do it:

• In the VBA editor, go to the "Tools" menu and select "References."
• In the References dialog box, find and check "Microsoft Outlook xx.x Object Library" (where xx.x represents the version number).
• Click "OK" to save the changes.

After adding the reference, the 'Outlook' objects should be recognized without errors.

2. Downloading only unread messages: To modify the code to download only unread messages, you can add a condition to check if the email is unread before processing it. Here's how you can do it:

Vba code is untested please backup your file

Sub RetrieveAttachments()
    Dim olApp As Outlook.Application
    Dim olNs As Outlook.NameSpace
    Dim olFolder As Outlook.MAPIFolder
    Dim olMail As Outlook.MailItem
    Dim olAttachment As Outlook.Attachment
    Dim strFolderPath As String
    
    ' Initialize Outlook Application
    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    
    ' Access the client's mailbox folder
    Set olFolder = olNs.Folders("Troy Corporation").Folders("Inbox")
    
    ' Specify the network folder path to save attachments
    strFolderPath = "\\network\folder\path\"
    
    ' Loop through each email in the folder
    For Each olMail In olFolder.Items
        ' Check if the email is unread and from a specific sender
        If olMail.UnRead And olMail.SenderEmailAddress = "email address removed for privacy reasons" Then
            ' Loop through attachments and save them to the network folder
            For Each olAttachment In olMail.Attachments
                olAttachment.SaveAsFile strFolderPath & olAttachment.FileName
            Next olAttachment
        End If
    Next olMail
    
    ' Cleanup
    Set olAttachment = Nothing
    Set olMail = Nothing
    Set olFolder = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
End Sub

With this modification, the code will only process unread emails from the specified sender and download their attachments to the specified network folder. Make sure to replace "email address removed for privacy reasons" with the actual sender's email address.

3. Specifying username and password: If you are accessing an Exchange server mailbox using VBA, typically, it will use the credentials of the currently logged-in user. However, if you need to specify a different username and password, you might need to use different methods, such as Exchange Web Services (EWS) or Outlook REST API, which would involve more complex authentication mechanisms. For simplicity, the provided code assumes access using the currently logged-in user's credentials. The text, steps and code were created with the help of AI.