MsgBox

[JohanKotze]

Operating system::    Window 10 Pro
Outlook version:     Outlook 2021
Email type or host:    IMAP

---

Hi Dianne
I want to add "sName" message box. Is that possible

Function BrowseForFolder(Optional OpenAt As Variant) As Variant
Dim ShellApp As Object
Set ShellApp = CreateObject("Shell.Application"). _
BrowseForFolder(0, "You want to save this email to "sName" FOLDER if not select CANCEL", 0, OpenAt)

 

[JohanKotze]

I want to add "sName" to the message box. Is that possible.

 

[Diane Poremsky]

The name folders will all be a subfolder of the same parent folder?

Add it to the folder path -
strFolderpath = BrowseForFolder("C:\Users\username\documents\" & sName & "\")