Sujet Précédent Sujet Suivant

MAIL ANONYME AVEC WINSOCK

cs_steven007 Messages postés 150 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 27 avril 2007 - 17 août 2003 à 11:41
fretman92 Messages postés 19 Date d'inscription mardi 21 novembre 2006 Statut Membre Dernière intervention 1 juillet 2007 - 13 sept. 2007 à 14:34

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8241-mail-anonyme-avec-winsock

fretman92 Messages postés 19 Date d'inscription mardi 21 novembre 2006 Statut Membre Dernière intervention 1 juillet 2007
13 sept. 2007 à 14:34

Salut OXID,

Juste un truc,

VB me met une erreur disant que Winsock1 n'est pas déclaré ...
Comment fais tu pour le mettre : je ne trouve pas la form
Begin MSWinsockLib.Winsock Winsock1
Left = 120
Top = 4200
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
dans la boite a outils ... :-(

Surtout je vois pas ce que ça représente.

Voila, j'aimerais juste savoir comment tu fais pour l'incorporer dans le formulaire

Merci bien

cs_oxid Messages postés 43 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 6 mars 2007
4 mars 2005 à 22:05

Si ca ne marche jamais dans ton cas, as tu penser que ctait peut etre toi le probleme?

Peut etre que tu ne sait pas comment ca marche et que tu met nimporte quelle adresse smtp. D'habitude ton fai t'en donne une.

cs_stillfelil Messages postés 108 Date d'inscription samedi 31 juillet 2004 Statut Membre Dernière intervention 12 septembre 2009 3
4 mars 2005 à 20:59

ca marche po koi,tjr le mm prob avec vo applications

cs_pledoux Messages postés 147 Date d'inscription mardi 12 octobre 2004 Statut Membre Dernière intervention 6 mars 2007
15 déc. 2004 à 16:20

OK, super pour le code mais je n'arrive pas à mettre le boby de mon message
(
Winsock1.SendData "Content-type:text/html" & vbCrLf
Winsock1.SendData " " & msg & vbCrLf
ne marche pas mais je recois bien le message avec le sujet)
et comment fait-on pour mettre une pièce jointe.

cs_gognole Messages postés 9 Date d'inscription samedi 14 octobre 2000 Statut Membre Dernière intervention 26 octobre 2005
12 août 2004 à 14:56

Pour certains serveur smtp, il faut modifier les deux lignes suivantes :

Winsock1.SendData "mail from: <" & deki & ">" & vbCrLf
Winsock1.SendData "rcpt to: <" & aki & ">" & vbCrLf

matrix301 Messages postés 6 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 7 août 2004
7 août 2004 à 02:21

Marceh super bien à part que jai pas eux le text dans message, mais jai bien recu le email :P

TopperFr > on sans criss, tant que sa marche...

cs_oxid Messages postés 43 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 6 mars 2007
9 juin 2004 à 00:31

non pas besoin, moi jai xp pro pis jai aucun problème, c'est peut-etre juste le smtp de ton fai qui chie.

gold0member Messages postés 2 Date d'inscription mercredi 25 juin 2003 Statut Membre Dernière intervention 9 juin 2004
9 juin 2004 à 00:27

ok pareil chez moi ca fuse pas non plus, sous xp pro, ni avec mon smtp ni avec le tien ...

je vai peut etre passer pour un zombie, mai y' a pas besoin d'un password d'identification pour le serveur smtp ?

cs_oxid Messages postés 43 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 6 mars 2007
28 févr. 2004 à 16:26

C'est peut etre parce que tu utilise pas ton serveur smpt que ton fournisseur d'internet ta donné

TheOnlyMaX Messages postés 37 Date d'inscription lundi 6 octobre 2003 Statut Membre Dernière intervention 26 avril 2010
28 févr. 2004 à 02:08

encore un mail anonyme ki marhce pas chez moi... pkoi ca marche ke chez les autres ?

Scooby1 Messages postés 48 Date d'inscription dimanche 12 mai 2002 Statut Membre Dernière intervention 26 novembre 2003
7 nov. 2003 à 01:34

ça marche pas
+++

cs_oxid Messages postés 43 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 6 mars 2007
22 août 2003 à 17:21

cmt ca ke tu dit ke c du copier coller?? c pareil que quand on utilise telnet pour envoyer des mail c just ke la ca pase par un programme pis ya pas gran chose a comptrendre dans ce programme

cs_steven007 Messages postés 150 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 27 avril 2007
22 août 2003 à 14:56

possible, on appel ça des variables local mec une varriable non déclaré dans une structure de controle

cs_steven007 Messages postés 150 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 27 avril 2007
22 août 2003 à 14:56

possible, on appel ça des variables local mec une varriable non déclaré dans une structure de controle

TopperFr Messages postés 6 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 22 août 2003
22 août 2003 à 12:13

Je vois vraiment pas l'intérêt de créer des variables (en plus non déclarées) pour passer le contenu de tes TextBox en paramètre. Je ne vois pas non plus l'intérêt de placer des Chr(32) alors que le caractère 32 du code ASCII est un simple espace.
Pareil pour l'ajout d'un caractère "Null" à la ligne : Winsock1.SendData "" & msg & vbCrLf

Ainsi ton code que voici :

aki = akitext.Text
deki = dekitext.Text
sujet = sujettext.Text
msg = msgtext.Text
servt = servtxt.Text
xma = xmailtxt.Text

Winsock1.SendData "HELO oxidrulz" & vbCrLf
Winsock1.SendData "mail from:" & Chr(32) & deki & vbCrLf
Winsock1.SendData "rcpt to:" & Chr(32) & aki & vbCrLf
Winsock1.SendData "data" & vbCrLf
Winsock1.SendData "X-Mailer:" & Chr(32) & xma & vbCrLf
Winsock1.SendData "Subject:" & Chr(32) & sujet & vbCrLf
Winsock1.SendData "Content-type:text/html" & vbCrLf
Winsock1.SendData "" & msg & vbCrLf
Winsock1.SendData "." & vbCrLf
Winsock1.SendData "QUIT"

Peut être réduit sans réfléchir des heures ainsi :

Winsock1.SendData "HELO oxidrulz" & vbCrLf
Winsock1.SendData "mail from: " & dekitext.Text & vbCrLf
Winsock1.SendData "rcpt to: " & akitext.Text & vbCrLf
Winsock1.SendData "data" & vbCrLf
Winsock1.SendData "X-Mailer: " & xmailtxt.Text & vbCrLf
Winsock1.SendData "Subject: " & sujettext.Text & vbCrLf
Winsock1.SendData "Content-type:text/html" & vbCrLf
Winsock1.SendData msgtext.Text & vbCrLf
Winsock1.SendData "." & vbCrLf
Winsock1.SendData "QUIT"

Un gros 0 au niveau de l'optimisation !!! Je doute que ce soit vraiment toi qui ais codé cette source. Ca sent le copié-collé sans avoir trop essayé de comprendre ce que le code fait réellement.
A bon entendeur ...

cs_oxid Messages postés 43 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 6 mars 2007
18 août 2003 à 15:12

smtp1.sympatico.ca

apxa Messages postés 188 Date d'inscription mercredi 15 mai 2002 Statut Membre Dernière intervention 25 avril 2009
18 août 2003 à 11:25

C'est ki ton serveur smtp ?
Comme meme chez la majorité des serveur smtp l'ip apparait mais bon.

cs_oxid Messages postés 43 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 6 mars 2007
17 août 2003 à 21:03

c le exe ki fonctione po j'avait deja corigé l'erreur mais je n'avait pas mit la bone version du exe dans le zip. Jai remi le bon exe dans le zip

cs_oxid Messages postés 43 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 6 mars 2007
17 août 2003 à 20:58

ca fonctione tres bien chez moi. pis pour la nonyme, ca depent de ton serveur smtp. le mien quan jenvoit des messages on ne peut pas avoir mon ip

cs_steven007 Messages postés 150 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 27 avril 2007
17 août 2003 à 11:41

ça marche pas chez moi y doit y avoir un prob quelque part, erreur exécution 13, un petit resume next fera l'affaire pour la solution a la bourrain.

p.s t'es sur que c'est de l'annonymous ? ^^

Discussions similaires

Envoi de mail en TLS par Gandi, quelle fonction?

Script : Mail automatique de rappel

lien vers adresse mail

Formulaire en Flash qui génère un email

Comment mettre un lien vers une adresse mail dans un site flash??????!!!!

Votre réponse

Discussions similaires