Envoi de mails anonymes

Soyez le premier à donner votre avis sur cette source.

Vue 8 639 fois - Téléchargée 1 516 fois

Description

Juste un petit programme qui envoie des e mails venant de l adresse que l on veut.Ca marche en envoyant les commandes smtp tout seul au lieu d'utiliser un webmail ou outlook.

Source / Exemple :


' SMTP_SERVER est le serveur a utiliser pour envoyer le message
' Souvent mail.FAI.fr ou smtp.FAI.fr
' pour club-internet :
Const SMTP_SERVER = "mail.club-internet.fr"

Private Sub Command1_Click()
    ' Protocole SMTP sur le port 25
    Winsock1.RemotePort = 25
    Winsock1.RemoteHost = SMTP_SERVER
    ' On se connecte au serveur
    Winsock1.Connect
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Winsock1.Close
    MsgBox "Envoi d'e-mails anonymes par MetalDwarf" & vbCrLf & vbCrLf & "MetalDwarf 2003", vbInformation
End Sub

Private Sub Winsock1_Connect()
    ' La connection est etablie on envoie maintenant les données
    Dim Send(1 To 9) As String
    ' Les donnees a envoyer
    Send(1) = "HELO " & Text4.Text & vbCrLf
    Send(2) = "MAIL FROM:" & "<" & Text2.Text & ">" & vbCrLf
    Send(3) = "RCPT TO:" & "<" & Text3.Text & ">" & vbCrLf
    Send(4) = "DATA" & vbCrLf
    Send(5) = "from: " & Chr$(34) & Text1.Text & Chr$(34) & "<" & Text2.Text & ">" & vbCrLf
    Send(6) = "to: " & "<" & Text3.Text & ">" & vbCrLf
    Send(7) = "subject: " & Text5.Text & vbCrLf & vbCrLf
    Send(8) = Text6.Text & vbCrLf & "." & vbCrLf
    Send(9) = "QUIT"
    ' maintenant on les envoie en verifiant qu'il n'y a pas d'erreur
    On Error GoTo Erreur
    For x = 1 To 9
        Winsock1.SendData Send(x)
        DoEvents
    Next x
    Winsock1.Close
    MsgBox "Envoi effectué avec succès!"
Erreur:
    Exit Sub
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox "Erreur de communication : " & Description
    Winsock1.Close
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

filotto
Messages postés
91
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
21 août 2011

Bonsoir à tous,
Et pour envoyer une piece jointe?
merci pou la reponse
Cordialement
Gerard filotto
cs_guyvdv
Messages postés
101
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
19 mai 2011
1
J'oubli encore de dire qu'il fonctionne en vb.net parfaitement
A+
Guy van der Velden
cs_guyvdv
Messages postés
101
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
19 mai 2011
1
Bonjour a tous,
Oui je eu le meme probleme que les autre mais c'est que je croiai que l'adresse du destinaire ete "TO", mais rien de cela
La seule chose TRES IMPORTANT est le sytaxt de RCPT TO: car ca c'est l'adresse du dest.
Les autre no sont pas sensible a la bonne reusite.

Merci MetalDwarf, un NEUF/10 pour manque de cette explication

A+
GUY van der Velden
cs_keks
Messages postés
34
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
24 janvier 2008

bonjour tout le monde
est-il possible de faire une boucle de ce code afin d'envoyer plusieurs mails a la suite?
Lorsque j'essaie j'ai une erreur qui me dit "operation non valide a ce stade".
merci de votre aide
cs_keks
Messages postés
34
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
24 janvier 2008

jai repris ce code ds un autre projet et jai un petit souci.
j'ai l'erreur suivante lorsque je compile:"Etat de connexion ou de protocole erroné pour la transaction ou la requete requise".
De plus je ne comprends pas quand et ou est appelé la fonction winsock1_connect() et mon erreur viens peut etre de la.
merci de me repondre svp.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.