This code sample uses a default Outlook folder:
Sub Whatever()
Dim Ns As Outlook.NameSpace
Set Ns = Application.GetNamespace("MAPI")
'use the default folder
Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items
'do whatever
End Sub
To use a folder at the same level as the Default folders (such as Calendar, Inbox etc), use this in place of Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items, where SharedCal is the folder name:
Set Items = Session.GetDefaultFolder(olFolderCalendar).Parent._
Folders("SharedCal").Items
When the folder is a subfolder under the default Calendar folder, use this instead:
Set Items = Session.GetDefaultFolder(olFolderCalendar)._
Folders("SharedCal").Items
To use the currently selected folder, you'll need to use:
Set Items = Application.ActiveExplorer.CurrentFolder.Items
Use a folder in another pst or mailbox
To use a specific folder in another data file in the profile, you need to use a function. Call the function in your macro in this manner, where GetFolderPath is the function name:
Set Items = GetFolderPath("New PST\Test Cal").Items
After adding the function to ThisOutlookSession:
Function GetFolderPath(ByVal FolderPath As String) As Outlook.Folder
Dim oFolder As Outlook.Folder
Dim FoldersArray As Variant
Dim i As Integer
On Error GoTo GetFolderPath_Error
If Left(FolderPath, 2) = "\\" Then
FolderPath = Right(FolderPath, Len(FolderPath) - 2)
End If
'Convert folderpath to array
FoldersArray = Split(FolderPath, "\")
Set oFolder = Application.Session.Folders.item(FoldersArray(0))
If Not oFolder Is Nothing Then
For i = 1 To UBound(FoldersArray, 1)
Dim SubFolders As Outlook.Folders
Set SubFolders = oFolder.Folders
Set oFolder = SubFolders.item(FoldersArray(i))
If oFolder Is Nothing Then
Set GetFolderPath = Nothing
End If
Next
End If
'Return the oFolder
Set GetFolderPath = oFolder
Exit Function
GetFolderPath_Error:
Set GetFolderPath = Nothing
Exit Function
End Function
Use a shared folder (Exchange mailbox)
To access a shared folder in another user's Exchange server mailbox, you need to use GetSharedDefaultFolder to reference the mailbox, after resolving the address to the folder. If the shared folder was opened from a sharing invitation (or Open Other User's folder command), you may need to use the method in the next section.
You can use the mailbox owner's display name, alias, or email address when resolving the recipient.
Dim NS As Outlook.NameSpace
Dim objOwner As Outlook.Recipient
Set NS = Application.GetNamespace("MAPI")
Set objOwner = NS.CreateRecipient("maryc")
objOwner.Resolve
If objOwner.Resolved Then
'MsgBox objOwner.Name
Set newCalFolder = NS.GetSharedDefaultFolder(objOwner, olFolderCalendar)
End If
To add an item to a folder in a shared mailbox, use Items.add:
Set objAppt = newCalFolder.Items.Add(olAppointmentItem)
Default Folder Names
The following are the default folder names to use when referencing Outlook's default folders.
| Name | Value | Description |
|---|---|---|
| olFolderCalendar | 9 | Calendar folder |
| olFolderContacts | 10 | Contacts folder |
| olFolderDeletedItems | 3 | Deleted Items folder |
| olFolderDrafts | 16 | Drafts folder |
| olFolderInbox | 6 | Inbox folder |
| olFolderJournal | 11 | Journal folder |
| olFolderJunk | 23 | Junk E-Mail folder |
| olFolderNotes | 12 | Notes folder |
| olFolderOutbox | 4 | Outbox folder |
| olFolderSentMail | 5 | Sent Mail folder |
| olFolderSuggestedContacts | 30 | Suggested Contacts folder |
| olFolderTasks | 13 | Tasks folder |
| olFolderToDo | 28 | To Do folder |
| olPublicFoldersAllPublicFolders | 18 | All Public Folders folder in Exchange Public Folders store (Exchange only) |
| olFolderRssFeeds | 25 | RSS Feeds folder |
Access a Folder Opened from a Sharing Invitation
In order to access a folder received from a folder Invitation (or using Open Other User's folder command), you need find the folder on the navigation pane. This will work with default folders opened using Open Other User's Folder command or any folder shared from a sharing invitation.
Dim objPane As Outlook.NavigationPane
Dim objModule As Outlook.CalendarModule
Set objPane = Application.ActiveExplorer.NavigationPane
Set objModule = objPane.Modules.GetNavigationModule(olModuleCalendar)
With objModule.NavigationGroups
For g = 1 To .Count
Set objGroup = .Item(g)
For i = 1 To objGroup.NavigationFolders.Count
Set objNavFolder = objGroup.NavigationFolders.Item(i)
' need to use the calendar name as displayed in calendar list
If objNavFolder = "Philip Poremsky - Test" Then
Set CalFolder = objNavFolder.Folder
End If
Next
Next
End With
My office uses OUTLOOK Office 365.I have my personal account and secondary shared account "DSC Ethernet Design" that I want to write a VBA macro that runs a rule on the shared account's inbox to move to another folder and forward the email to another email address.
I have no idea what I'm doing, or how to do it, but there has to be a simpler way to automate it instead of click, forward, move manually.
Hi,
I am trying to use your code as it is relevant to what I want to do with outlook. Would you mind taking a look at my stackoverflow question which references your code : https://stackoverflow.com/questions/55526145/excel-vba-create-meeting-in-non-default-calendar
Is the account an exchange account? Use the shared mailbox sample - and after setting the accounts, you set the sub folder:
Set newCalFolder = NS.GetSharedDefaultFolder(objOwner, olFolderCalendar).Folders("calendar name")
It's actually recommended to use fewer dots, so this is better:
Set CalFolder = NS.GetSharedDefaultFolder(objOwner, olFolderCalendar)
set newCal = calfolder.Folders("calendar name")
using a folder at the same level as the calendar using parent.folders("calendar name")
You can also use the GetFolderPath macro (for exchange accounts, or pst) and would put the calendar path when you call it.
Hi Diana,
I am trying to move items from my default sent folder to my default inbox and mark them as unread (without getting the stupid notification for emails that I sent)
I tried to use this with no luck. I am very new to VBA but i know how to pull information from the web i need together to make things happen the way i want it to. That isn't the case today :
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Set Items = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub Items_ItemAdd(ByVal Item As Object)
Set MovePst = GetFolderPath(olFolderInbox)
Item.UnRead = False
Item.Move MovePst
End Sub
I am getting the error "compile error: sub or function not defined" at the 6th line at "GetFolderPath" which VBA highlights.
Could you help me out with this?
You need the GetFolderPath function in the Use a folder in another pst or mailbox section above.
Hi Diane, thank you for putting all these materials together! I'm quite new to this, and am trying to combine the "Send Meeting Requests" code with the "Use a shared folder (Exchange mailbox)" code. Everything works great when using my default email, but I'm having difficulties with the shared folder code. Below is the combination of the two. It's resulting in a compile error: Variable not defined from "newCalFolder" listed in the "shared folder" code set. Am I missing something? Option Explicit Public Sub CreateOutlookAppointments() Sheets("Sheet1").Select On Error GoTo Err_Execute Dim olApp As Outlook.Application Dim olAppt As Outlook.AppointmentItem Dim blnCreated As Boolean Dim olNs As Outlook.Namespace Dim CalFolder As Outlook.MAPIFolder Dim i As Long On Error Resume Next Set olApp = Outlook.Application If olApp Is Nothing Then Set olApp = Outlook.Application blnCreated = True Err.Clear Else blnCreated = False End If On Error GoTo 0 'Beginning of "Use a shared folder (Exchange mailbox)" code Dim NS As Outlook.Namespace Dim objOwner As Outlook.Recipient Set NS = Application.GetNamespace("MAPI") Set objOwner = NS.CreateRecipient("maryc") 'Is "maryc" the Shared folder name? objOwner.Resolve If objOwner.Resolved Then 'MsgBox objOwner.Name Set newCalFolder = NS.GetSharedDefaultFolder(objOwner, olFolderCalendar) End If 'End of "Use a shared folder (Exchange mailbox)" code i =… Read more »
This is the mailbox name or alias -
Set objOwner = NS.CreateRecipient("maryc") 'Is "maryc" the Shared folder name?
The problem is here -
Set olAppt = CalFolder.Items.Add(olAppointmentItem)
it should be newCalFolder, not calfolder.
I want to apply this to a subfolder that is on the exchange, how do I get the name of this folder to put into the line " Set Items = NS.GetSharedDefaultFolder(objOwner, olFolder4. SiSTER Emails - Sent).Items" in this case the folder name is "4.SiSTER Emails - Sent" but this doesn't work. Can somebody please help me get the right folder name?
Hello,
I have a big problem
In the company where I work, we use Outlook 2010.
Problem description:
We use a generic email box "Plataforma.Comercial@domínio.com.br", this email is used by approximately 20 people.
Every day we receive about 200 e-mails in this e-mail.
I created a rule for when a new email arrives to be verified, where:
The email address of the email must contain "@ domínio.com.br" or "@ domínio2.com.br", and in the sequence it categorizes the email as "Consultant Diamond".
However, the rule only runs "on this computer" and does not run in the shared email box.
I thought about creating a macro to run whenever a new email enters the generic box, calling the "Plataforma_Comercial" rule and executing it only on new (unread) emails.
Is there a way to do this?
Hi Diane,
Thank you for this tutorial.
Is it possible to use a PickFolder dialog box with a non default folder?
I have two exchange accounts at work and incidentally the account I use more often is a one that my team member I use (just the two of us). And I am trying to use the PickFolder function to open a clients folder which is a subfolder under our team email's inbox. But as the PickFolder must normally look like NameSpace.PickFolder statement, the mailbox selected is always my main official email box and not our team's mail box. Can you suggest an alternate to make the PickFolder open a non default folder when it starts?
Thank you.
Reuben
Hi Diane,
I have a query that im using office multiple mailbox in outlook... One is my personal and rest is Business shared mailbox which is added with option Add Account in Settings then Data Files. Im able to extract mailbox details of my default account which is personal but not able to reach if im using shareddefaultfolder and them name of mailbox "BCs@abc.com". Please help me to get Bcs shared mailbox inbox item in excel.