Yuri, thank you so much for the quick, complete response (even if it isn't quite the news I wanted *smile*)

Actually, this will help me convince the department asking for this to consider a different solution: one mailbox with multiple access and multiple subfolders. I don't think we ned a separate mailbox for each segment... A new mailbox means new user in ActiveDirectory, setting up right, etc. etc. If we make on egeneric inbox and let people manage it via concurrent access and subfolders, that might actually work better!

Thanks again!

JoeK

>Joe,
>
>I am afraid, automation does not include this option. See for example:
>http://www.devnewsgroups.net/group/microsoft.public.office.developer.outlook.vba/topic60088.aspx
>
>If you do not have other choice you could try something like below with sendkeys method invoking user dialogs one by one:
>

>loOutlook = GetOBJECT(,"outlook.application")
>oShell = CreateObject("WScript.Shell")
>IF oShell.AppActivate(loOutlook.ActiveWindow.Caption)
>	oShell.SendKeys("%TA") && tools -->e_mail accounts
>	oShell.SendKeys("eN")  &&  -->add new, click next
>......
>

>
>As usual with sendkeys, it is not reliable, there is no guarantee that hot keys on the dialogs are the same on different outlook versions, etc...
>
>Good Luck