asked on From msAccess find correct email account in outlook
Access 2010 vba
outlook
What Am I trying to do:
Trying to perform a search in the correct "Inbox"
First. : When i open my outlook I have several Profiles under my Primary profile
>fordraiders@zzzz.com
Inbox
>bluebook
Inbox
>redbook
Inbox
I tried to access the profile directly but it still only searches in the main "InbOx" (fordraiders@zzzz.com)
Before I perform a search I need to make sure I'm looking in the correct profile ?
before i execute any code..
I'm trying to loop through each profile but this is not working ?
' LOOK FOR OUTLOOK OPEN
Dim objOL As Outlook.Application
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myInbox As Outlook.MAPIFolder
Dim myitems As Outlook.Items
Dim myitem As Object
Dim objInsp As Outlook.Inspector
Dim oAccount As Outlook.Account
For Each oAccount In myOlApp.Session.Accounts
If oAccount = "redbook" Then
' code here
end if
next
Thanks
fordraiders
outlook
What Am I trying to do:
Trying to perform a search in the correct "Inbox"
First. : When i open my outlook I have several Profiles under my Primary profile
>fordraiders@zzzz.com
Inbox
>bluebook
Inbox
>redbook
Inbox
I tried to access the profile directly but it still only searches in the main "InbOx" (fordraiders@zzzz.com)
Before I perform a search I need to make sure I'm looking in the correct profile ?
before i execute any code..
I'm trying to loop through each profile but this is not working ?
' LOOK FOR OUTLOOK OPEN
Dim objOL As Outlook.Application
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myInbox As Outlook.MAPIFolder
Dim myitems As Outlook.Items
Dim myitem As Object
Dim objInsp As Outlook.Inspector
Dim oAccount As Outlook.Account
For Each oAccount In myOlApp.Session.Accounts
If oAccount = "redbook" Then
' code here
end if
next
Thanks
fordraiders
OutlookVBAMicrosoft Access
Last Comment
John Tsioumpris
ASKER
John,
I did , it will not loop
fordraiders
I did , it will not loop
fordraiders
ASKER
it finds my main fordraiders@zzz.com
but will not find the others.
dp
but will not find the others.
dp
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
That was it ...even my admin for outllok kept calling them profiles. I knew their had to be a specific profile name under current session "Stores"...Phew..
That worked.. had to change a set statement but it listed the stores(profiles).
Dim colStores As Outlook.Stores
Dim oStore As Outlook.Store
Dim oRoot As Outlook.folder
Set colStores = Outlook.Application.Sessio
For Each oStore In colStores
Set oRoot = oStore.GetRootFolder
Debug.Print (oRoot.FolderPath)
Next
Thanks !
fordraiders
That worked.. had to change a set statement but it listed the stores(profiles).
Dim colStores As Outlook.Stores
Dim oStore As Outlook.Store
Dim oRoot As Outlook.folder
Set colStores = Outlook.Application.Sessio
For Each oStore In colStores
Set oRoot = oStore.GetRootFolder
Debug.Print (oRoot.FolderPath)
Next
Thanks !
fordraiders
Glad it worked out like you wanted
Open in new window
and check from the watch window what properties and methods are available...maybe it needs a different approach...