using Folders.Count in Excel Vba

Status
Not open for further replies.
M

Mark Scholes

Member
Outlook version
Outlook 2013 32 bit
Email Account
Office 365 Exchange
Hi,

I am using outlook 2013 (32 bit) and I have this piece of code in my Excel spread sheet. It finds a e-mail in a folder opens it and extracts the spread sheet. The part of the code which finds the folder now doesn't work, it did work in outlook 2010 (32Bit)

Set mynamespace = Outlook.Application.GetNamespace("MAPI")
' Set the Source to the mail Inbox folder for AFMA Green data
' Set the Target to the mail sub folder for archiveing
Set SourceFolder = mynamespace.Folders("Risk Quantitative")
' Find the Inbox
iLoopcounter = 1
Do Until iLoopcounter > SourceFolder.Folders.Count
If SourceFolder.Folders(iLoopcounter) = "Inbox" Then
Set SourceFolder = SourceFolder.Folders(iLoopcounter)
Exit Do
End If
iLoopcounter = iLoopcounter + 1
Loop

When you run ? SourceFolder.Folders.count you should get 13, I now only get 0 and so the next piece of code fails
' Find AFMA Green
iLoopcounter = 1
Do Until iLoopcounter > SourceFolder.Folders.Count
If SourceFolder.Folders(iLoopcounter) = "AFMA Green" Then
Set SourceFolder = SourceFolder.Folders(iLoopcounter)
Exit Do
End If
iLoopcounter = iLoopcounter + 1
Loop

To add to the problem I have Four mailboxes

Any thought would be great
Mark Scholes
 
I added debug prints after the loop counter is set, and after each increment. I get:
1 Start
2 Inbox
14afma green

The only change I made was to change the mailbox name and the folder names to ones that exist here.
 
I have several e-mail accounts in the same profile. If I have only one email account in the profile it works fine.
You get a error 'Run-time error '440': Array index out of bounds.' which is reasonable as the line reads 'Set TargetFolder = SourceFolder.Folders(1)'
 
Silly thought, Where do I fine which version of outlook 2013 I have and what is the latest version. IT update out software and we don't use Microsoft update, and I don't know if it up to date.

Thanks for your reply
 
I'd don't think the version matters - the code should work in all versions but you can look in File, Office account.

The problem is that 'Set TargetFolder = SourceFolder.Folders(1)' is having problems finding the right folders, I'm sure its related to the # of mailboxes, although I have 3 + a bunch of shared mailboxes and it worked for me.
 
I have updated to the latest version and this problem has gone. I have no idea if it was the Office 2013 updates or the Windows 8.1 updates that they did at the same time
 
I wouldn't want to even guess which updates fixed it. :)
 
Status
Not open for further replies.
< Trying to check for the absence of mail. | Nested distribution lists: how to count UNIQUE # of people... >
Similar threads
Thread starter Title Forum Replies Date
I Outlook for Mac 2019 using on desktop and laptop IMAP on both need help with folders Using Outlook 1
A Can i apply mail rules to inbox sub folders using VBA Outlook VBA and Custom Forms 2
N Using Categories & Search Folders with multiple accounts Using Outlook 4
D folders are missing using imap outlook 2007 Using Outlook 1
P move folders in outlook using vba Outlook VBA and Custom Forms 1
H using VBA to edit subject line Outlook VBA and Custom Forms 0
e_a_g_l_e_p_i Need clarification on 2-Step Verification for Gmail using Outlook 2021 Using Outlook 10
e_a_g_l_e_p_i Outlook 2021 not letting me setup my Gmail using pop Using Outlook 1
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
O How to find out the domain and server settings that my Outlook is using? Using Outlook 2
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
D Outlook 2021 Using vba code to delete all my spamfolders not only the default one. Outlook VBA and Custom Forms 0
M using excel to sort outlook appointment items Outlook VBA and Custom Forms 4
R Advise on using multiple instances of network files based on customers Outlook VBA and Custom Forms 8
HarvMan Using Emojis in Outlook 365 Using Outlook 3
T Outlook 2019 Not Using Auto Compete After Deletion of 365 Using Outlook 1
M USING INITIALS AS RECIPIENTS Using Outlook 1
T Outlook 2019 Using Gmail aliases in Outlook Using Outlook 6
M Saving emails using Visual Basic - Selecting folder with msoFileDialogFolderPicker Outlook VBA and Custom Forms 6
Z Import Tasks from Access Using VBA including User Defined Fields Outlook VBA and Custom Forms 0
justicefriends How to set a flag to follow up using VBA - for addressee in TO field Outlook VBA and Custom Forms 11
M Extract "Date sent" from emails (saved to folder using drag and drop) Outlook VBA and Custom Forms 1
David McKay VBA to manually forward using odd options Outlook VBA and Custom Forms 1
H Stationery using between OL 2019 and OL 2010 Using Outlook 0
P Prevent Outlook 2016 from using DASL filter Using Outlook 4
O Calendar - Location: what happens when using my own way of entering locations Using Outlook 1
M Disable Contact Card Results when using "Search People" in Outlook Ribbon Using Outlook 7
K can't get custom form to update multiple contacts using VBA Outlook VBA and Custom Forms 3
S Outlook VBA How to adapt this code for using in a different Mail Inbox Outlook VBA and Custom Forms 0
pcunite Outlook 2019/O365 Build 13127.20408 errors when using MAPI calls Using Outlook 1
B Change Font and Font size using VBA Outlook VBA and Custom Forms 9
M Outlook 2013 reminder email by using Outlook vba Outlook VBA and Custom Forms 2
X Using Outlook 2013 and Outlook 365 Using Outlook 1
A Going to folder using shortcuts Using Outlook 3
A Outlook replies not using "delivered to" address in From Using Outlook 1
Terry Sullivan E-Mails Sent Using a Group Box Result in 70 Kickbacks Using Outlook 4
O Email not leaving Outbox when using Excel VBA to sync Outlook account Outlook VBA and Custom Forms 4
K Using Outlook 2016 to draw Using Outlook 1
O Outlook 365 - suddenly unable to send using Gmail POP3 Using Outlook 10
N Disable Auto Read Receipts sent after using Advanced Find Using Outlook 4
G Outlook 2016 sync contacts directly between phone and computer using outlook 2016 Using Outlook 0
L Moving emails with similar subject and find the timings between the emails using outlook VBA macro Outlook VBA and Custom Forms 1
O Save attachments using hotkey without changing attributes Outlook VBA and Custom Forms 1
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
A Edit subject - and change conversationTopic - using VBA and redemption Outlook VBA and Custom Forms 2
A Using or not using apostrophes in search terms has this changed? Using Outlook 0
O Office 365 using POP3 on both laptop and desktop Using Outlook 0
M Using field names to capture a data element Using Outlook 0
B Vba to monitor time to respond to emails using a shared mailbox Outlook VBA and Custom Forms 5
B Looking to get the Recipient email address (or even the "friendly name") from an email I am replying to using VBA Outlook VBA and Custom Forms 4

Similar threads

Back
Top