This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(9.6, 76%, 10%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EPR%3C/text%3E%3C/svg%3E)
I need to refer to a sub-folder of outlook with VBA, how can I do It? I will insert some prints to help
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(121.6, 11%, 21%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ECM%3C/text%3E%3C/svg%3E)
Hi @Pedro Reis ,
Welcome to our forum!
What exactly do you want to do by referring to a sub folder for? If you want to create or move, maybe I can help.
In addition, considering that the screenshot you provided contains personal information, I have hidden it in order to avoid privacy disclosure. Please remember to hide your personal information before uploading.
I recieve an e-mail every day, with some information I need. But the infos are at the sub folder of Outlook, and I dont know How to refer to It.
Hi,
I think you can refer to it from the Folders object.
Public Sub Sample()
Dim fol As Outlook.Folder
With Application.Session.GetDefaultFolder(olFolderInbox)
Set fol = .Folders.Item("BTG")
Debug.Print fol.Items.Count
End With
End Sub