
Sub add_pst()
Set mapiNamespace = Application.GetNamespace("MAPI")
mapiNamespace.AddStore([path]\archive.pst")
End Sub
Mindezt be kell másolni az Outlook Extras->Macros->Visual Basic Editor, ott egy új Modul-t kell hozzáadni. A fenti kódot bemásolni, a [path]-ot és a pst file nevét módosítani, futtatni, máris van saját file-unk. Örülönk.
Kinek kell? Akinek a sysadminja úgy gondolja, hogy 100mb tárhely elég, de lokális archivot nem hozhat létre, és ő úgy gondolja, hogy mégis inkább lokális archivot akar.