FYI I got this working by searching the public folders for a match with the input variable.
ReDim sArray(0) As String
If fld.Folders.Count Then
For i = 1 To fld.Folders.Count
If Left(fld.Folders(i).Name, 3) = strProject Then
iElement = IIf(sArray(0) = "", 0...
Thanks for the response Diane,
That won't work for this instance, as I'm already using an active selection for the email to be transferred. Basically I need to be able to click on an email and run the script, it prompts user which PF to transfer to and moves the email to it. This is to avoid...
it gives me
"Run-time error '440':
Array index out of bounds."
Debug then highlights "Set fld = nms.Folders(strFolder).Folders("All Public Folders").Folders("Backup Notifications").Folders(strProject)"
I was thinking a search might do it, but couldn't work out how to then make the...
First of all, I am new to VBA so hopefully this will be an easy fix.
I have created a VBA script to move a selected email to a public folder location. The script prompts using an inputbox (in this example it's a project folder "001") and moves the email to the public folder called...