VBA for IMAP shared folder

[shin0bi]

The IMAP shared folder from email "abc@domain.ru" is connected to my Outlook imap account. And sometimes i need move there email from my IMAP account. I'd like to create a macro that I can move selected emails in this IMAP shared folder.

P.S. Folder Need, Its not subfolder!

Example script: 
 
[/FONT][/COLOR][COLOR=#333333]Sub need()[/COLOR] 
 
[COLOR=#333333]On Error Resume Next[/COLOR] 
 
[COLOR=#333333]Dim oApp As Outlook.Application[/COLOR] 
 
[COLOR=#333333]Dim objFolder As Outlook.MAPIFolder[/COLOR] 
 
[COLOR=#333333]Set oApp = New Outlook.Application[/COLOR] 
 
[COLOR=#333333]Set objFolder = oApp.GetNamespace("MAPI").Folders("NEED")[/COLOR] 
 
[COLOR=#333333]Dim oEmail As Outlook.MailItem[/COLOR] 
 
[COLOR=#333333]'Assume this is a mail folder[/COLOR] 
 
[COLOR=#333333]If objFolder Is Nothing Then[/COLOR] 
 
[COLOR=#333333]MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"[/COLOR] 
 
[COLOR=#333333]End If[/COLOR] 
 
[COLOR=#333333]If Application.ActiveExplorer.Selection.Count = 0 Then[/COLOR] 
 
[COLOR=#333333]'Require that this procedure be called only when a message is selected[/COLOR] 
 
[COLOR=#333333]Exit Sub[/COLOR] 
 
[COLOR=#333333]End If[/COLOR] 
 
[COLOR=#333333]For Each objItem In Application.ActiveExplorer.Selection[/COLOR] 
 
[COLOR=#333333]If objFolder.DefaultItemType = olMailItem Then[/COLOR] 
 
[COLOR=#333333]If objItem.Class = olMail Then[/COLOR] 
 
[COLOR=#333333]objItem.Move objFolder[/COLOR] 
 
[COLOR=#333333]End If[/COLOR] 
 
[COLOR=#333333]End If[/COLOR] 
 
[COLOR=#333333]Next[/COLOR] 
 
[COLOR=#333333]Set objItem = Nothing[/COLOR] 
 
[COLOR=#333333]Set objFolder = Nothing[/COLOR] 
 
[COLOR=#333333]Set objInbox = Nothing[/COLOR] 
 
[COLOR=#333333]Set objNS = Nothing[/COLOR] 
 
[COLOR=#333333]End Sub[/COLOR]

Make for this macro button and every time ERROR "This folder doesn't exist!".

 

[shin0bi]

Find working script on this site

'Outlook VB Macro to move selected mail item(s) to a target folder 
 
[I]Sub MoveToFolder(targetFolder) 
 
[I]On Error Resume Next 
 
[I]Dim ns As Outlook.NameSpace 
 
[I]Dim MoveToFolder As Outlook.MAPIFolder 
 
[I]Dim objItem As Outlook.MailItem 
 
[I]Set ns = Application.GetNamespace("MAPI") 
 
[I]'define path to the target folder; the following assumes the target folder 
 
[I]'is a sub-folder of the main Mailbox folder 
 
[I]'This is the original' 
 
[I]'Set MoveToFolder = ns.Folders("Mailbox").Folders(targetFolder)' 
 
[I]Set MoveToFolder = ns.GetDefaultFolder(olFolderInbox).Folders(targetF older) 
 
[I]If Application.ActiveExplorer.Selection.Count = 0 Then 
 
[I]MsgBox ("No item selected") 
 
[I]Exit Sub 
 
[I]End If 
 
[I]If MoveToFolder Is Nothing Then 
 
[I]MsgBox "Target folder not found!", vbOKOnly + vbExclamation, "Move Macro Error" 
 
[I]End If 
 
[I]For Each objItem In Application.ActiveExplorer.Selection 
 
[I]If MoveToFolder.DefaultItemType = olMailItem Then 
 
[I]If objItem.Class = olMail Then 
 
[I]objItem.Move MoveToFolder 
 
[I]End If 
 
[I]End If 
 
[I]Next 
 
[I]Set objItem = Nothing 
 
[I]Set MoveToFolder = Nothing 
 
[I]Set ns = Nothing 
 
[I]End Sub 
 
[I]Sub MoveToActive() 
 
[I]MoveToFolder ("Active") 
 
[I]End Sub 
 
[I]Sub MoveToAction() 
 
[I]MoveToFolder ("Action") 
 
[I]End Sub 
 
[I]Sub MoveToOnHold() 
 
[I]MoveToFolder ("OnHold") 
 
[I]End Sub[/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I]

I need make this macros for 40 people, how i can change

[I]Set MoveToFolder = ns.Folders("Mailbox")[/I]

that it wasn't necessary to specify each time the name of mailbox or the name of mailbox was added automatically.

 

[Diane Poremsky]

Do you want to move mail in to 40 different mailboxes or are their 40 people using the shared mailbox that want to move mail into it?

The move to folder will be the same for everyone. Even if they were moving from the shared mailbox to their own, it would be the default folder olFolderInbox.

 

[shin0bi]

Do you want to move mail in to 40 different mailboxes or are their 40 people using the shared mailbox that want to move mail into it?

The move to folder will be the same for everyone. Even if they were moving from the shared mailbox to their own, it would be the default folder olFolderInbox.

> >40 people using the shared mailbox that want to move mail into it! <<

hello !

everytime i need change 'Set MoveToFolder = ns.Folders("Mailbox").Folders(targetFolder)' for people personaly

for Example :

ns.Folders("user1").Folders(targetFolder)'

ns.Folders("user2").Folders(targetFolder)'

ns.Folders("user3").Folders(targetFolder)'

how to make so that script get ns.Folders("Mailbox") automatically.