Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!
Zadejte Vaši e-mailovou adresu:
Kamarád fotí rád?
Přihlas ho k odběru fotomagazínu!
Zadejte e-mailovou adresu kamaráda:
Visual Basic
Mellisa - ze zákulisí viru
14. května 1999, 00.00 | O Makroviru Mellisa se již napsalo hodně, my se podíváme jak vlastně funguje odesílání pošty pomocí Outlooku. Rozhodně to neberte jako návod na tvorbu dalších makrovirů!
Není to tak dlouho co se světem rozšířil makrovir Mellisa, který sám sebe posílal e-mailem. Nebudeme zde rozebírat jak je to ohavné, ale jak je to udělané. Na následujících řádcích najdete kód, který odešle e-mail pomocí Outlooku. Tento kód neberte jako návod k vytváření nových Mellis.Private Sub Odeslat() ' Vytvoření objektu Outlooku Dim objOutlook As New Outlook.Application ' Objekt pro e-mailovou zprávu Dim objEMail As Outlook.MailItem ' Vytvoření nového e-mailu Set objEMail = objOutlook.CreateItem(olMailItem) ' Nastavení vlastností e-mailu With objEMail ' Přidání adresáta .Recipients.Add "" ' Předmět e-mailu .Subject = "Zpráva" ' Text e-mailu .Body = "Nazdárek!" ' Odeslání .Send End With ' Vyprázdnění objektů Set objEMail = Nothing Set objOutlook = Nothing End Sub
Pozn.: Nezapomeňte v editoru VBA a VB nastavit odkaz na objektovou knihovnu Outlooku (nabídka Nástroje, příkaz Odkazy...)
Testováno a odladěno: MS Office 97/2000, Visual Basic 6.0
Diskuse k článku
-
25. listopadu 2012
-
30. srpna 2002
-
10. října 2002
-
4. listopadu 2002
-
12. září 2002
-
25. listopadu 2012
-
28. července 1998
-
31. července 1998
-
28. srpna 1998
-
6. prosince 2000
-
27. prosince 2007
-
4. května 2007