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