disable visual update duting control of outlook

[MTD072]

Good afternoon vaunted experts



I'm not sure if what I'm asking is possible, as I've never seen reference to it.

As a part of an application, I am downloading attachments from a collection of mail items within outlook from Access. I have no issue with doing this, but am wondering if there is a way to supress the screen updating during this processing. As things stand, the user will sit there and see 20+ emails open and the spawned save window run its course.

Any ideas?

[June7]

Post your code for review.

I tested some code. I don't see any windows opening.

[MTD072]

Hi June.

Sample code is as follows

'Build collection
For Each olmail In olnb.items
For Each MsgAttachment In olmail.Attachments
If Right(MsgAttachment.DisplayName, 3) = "TXT" Then
collItems.Add olmail

End If
Next
Next
'Download txt files
For Each olmail In collItems
For Each olitm In olmail.Attachments
olitm.SaveAsFile atchpth & i & ".txt"
i = i + 1
Next olitm
Next

[June7]

Really should post the object variable declaration and set lines as well.

Here is my procedure that worked:

Sub SaveEmailAtt()
Dim objNS As Outlook.NameSpace: Set objNS = GetNamespace("MAPI")
Dim olFolder As Outlook.MAPIFolder: Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Dim objAttachments As Outlook.Attachments
Dim oMail As Outlook.MailItem
Dim Item As Object
Dim lngCount As Long, i As Integer
For Each Item In olFolder.Items
    If TypeOf Item Is Outlook.MailItem Then
        Set oMail = Item
        Set objAttachments = oMail.Attachments
        lngCount = objAttachments.Count
        If lngCount > 0 Then
            ' We need to use a count down loop for removing items
            ' from a collection. Otherwise, the loop counter gets
            ' confused and only every other item is removed.
            For i = lngCount To 1 Step -1
                objAttachments.Item(i).SaveAsFile "C:\Users\June\Forums\" & objAttachments.Item(i).FileName
            Next i
        End If
    End If
Next
End Sub

[MTD072]

Apologies, June. I'm still familiarising myself with the forum rules and operation. I will endeavour to include variable declaration in the future.

Thankyou for your assistance. I have adapted the code you provided and it has worked without issue.

Regards