

December 4, 2021

I have a functional VBA script I found online. However I would like to add one more task to this macro, but I have never done anything like this. When a folder is created via this macro, I would like it to also create a folder of the same name within Outlook. The folder would be in a subfolder within my archive folder called "Projects". So for example, in Outlook based on how this sheet is completed there would be 2 folders created.
Archive > Projects > 34 - Template in Word
Archive > Projects > 38 - Training Manual
The above format is only to show the path of the new folders. The existing portion to create the Windows folders works perfectly.
* Please note, I looked for special code tags for my VBA script that I am sharing, but did not see them anywhere.
Option Explicit
Sub MakeFolders()
Dim Folder As Range
Dim FolderPath As String
FolderPath = Range("MakeFolderPath").Value
On Error Resume Next
For Each Folder In Range("MakeFolderNames[Folder Name]")
MkDir FolderPath & "\" & Folder.Text
Next Folder
End Sub


Trusted Members
Moderators

November 1, 2018

You'll need something like this:
Option Explicit
Sub MakeFolders()
Dim Folder As Range
Dim FolderPath As String
FolderPath = Range("MakeFolderPath").Value
Dim OutlookApp As Object
Set OutlookApp = GetObject(, "Outlook.Application")
Dim ProjectsFolder As Object
Set ProjectsFolder = OutlookApp.GetNamespace("MAPI").Folders("your email address here").Folders("Archive").Folders("Projects")
On Error Resume Next
For Each Folder In Range("MakeFolderNames[Folder Name]")
MkDir FolderPath & "\" & Folder.Text
ProjectsFolder.Folders.Add Folder.Text
Next Folder
End Sub

Answers Post
1 Guest(s)
