Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
Answer = MsgBox("Create a new Outlook folder ?", vbYesNoCancel) If Answer = vbYes Then OutlookFolderName = teOrderNo & " " & coClientName & " - " & coHeading Set ol = CreateObject("Outlook.Application") Set ns = ol.GetNamespace("MAPI") ParentFolder = "Personal Folders" MainFolder = "_Toco Orders" Set fl = ns.Folders.Item(ParentFolder).Folders.Item(MainFolder) fn = OutlookFolderName If Len(fn) > 0 Then Set mf = fl.Folders.Add(fn) Set mf = Nothing Set fl = Nothing Set ns = Nothing Set ol = Nothing MsgBox "A new Outlook folder has been created successfully", vbInformation End If End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.