Mellisa - ze zákulisí viru - Builder.cz - Informacni server o programovani

Odběr fotomagazínu

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

Tématické zařazení:

 » Rubriky  » Visual Basic  

 » Rubriky  » Windows  

 

 

 

Nejčtenější články
Nejlépe hodnocené články

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: