vcf bulk export

Jul-13th-2005

Egy valami kis kézi eszköz egyszeri szinkronizációjához szükségem volt arra hogy az Outlook névjegyalbumból kipakoljam a bejegyzéseket vcf formátumba. Ahogy elnéztem ezt a drága Outlook csak egyesével hajlandó előadni. Gyorsan összedobtam egy scriptet rá. Azt, ha keletkezett név nem felel meg a fájlnév konvencióknak nem kezeli le, de egyenlőre nekem ennyi elég volt. Minden egyéb magyarázat helyett itt a kód:

var olFolderContacts = 10;
var olContact = 40;
var olVCard = 6;
var Application;
var Namespace;
var ContactsFolder;
var TargetFolder;
Application = new ActiveXObject("Outlook.Application");
Namespace = Application.GetNamespace("MAPI");
ContactsFolder = Namespace.GetDefaultFolder(olFolderContacts);
TargetFolder = "c:\\work\\vcf\\";
e = new Enumerator(ContactsFolder.Items);
for(;!e.atEnd();e.moveNext())
{
    Item = e.item();
    if(Item.Class == olContact)
    {
        Item.SaveAs(TargetFolder + Item.FileAs + ".vcf",olVCard);
    }
}

 

Add A Comment

Subscribe feed