vcf bulk export

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); 
    } 
}

 

This entry was posted in outlook.

Leave a Reply

Your email address will not be published. Required fields are marked *