Outlook VBA to move selected email to a public folder

aaroncrt · #1 10-21-2013, 05:11 PM

Thanks for the reply.

I managed to get it working by searching the Public Folders sub folders for a match to the input variable string.
I added the following.

Code:

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, UBound(sArray) + 1)
        ReDim Preserve sArray(iElement) As String
        sArray(iElement) = fld.Folders(i).Name
    End If
  Next i

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Forwarding email from a public folder to my Inbox	ray500	Outlook	2	08-23-2016 07:20 AM
how to move the email directly to secondary mailbox sent item folder	gregory	Outlook	2	04-28-2012 01:21 AM
Outlook for Mac 2011 - public folder drag/drop	LakeShoreDriving	Outlook	0	04-09-2012 11:27 PM
User cannot move email messages within Outlook Inbox folder and sub-folders.	Darsss	Outlook	5	06-06-2011 11:37 PM
Forwarding email from a Public Folder	ray500	Outlook	1	08-20-2010 03:06 PM