Mail anonyme

Soyez le premier à donner votre avis sur cette source.

Vue 9 052 fois - Téléchargée 1 436 fois

Description

Voila c'est ma premiere source, et comme ce site m'a beaucoup aidé à la mettre en oeuvre j'ai décidé de ne pas la garder pour moi.

Donc voila, ca permet d'envoyer des mails "anonymes" puisque vous pouvez choisir votre adresse d'expediteur (par contre pas d'anonymat au niveau de l'adresse ip bien sur).
Pour l'adresse serveur vous pouvez en trouver une qui soit libre, ou utiliser celle de votre fournisseur d'acces à internet (exemple avec club-internet je met mail.club-internet.fr ca marche tres bien).
J'ai pas réussi à faire en sorte que l'on puisse envoyer des mails en HTML tout en attachant un fichier, donc si vous connaissez un moyen vous pouvez evidemment le mettre a votre guise (et dans le cas ou vous connaissez le moyen, merci de me le donner svp ! Autre chose : j'ai bien evidemment cherché avant tout mais le seul site que j'ai trouvé me donne un exemple pas tres clair...).

Cette source fournit aussi une fonction mail-bomber mais ca je l'ai mise juste comme ca au cas ou ca en interresserai.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
44
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
28 février 2006

... Bizarre... ca ne fonctionne pas sous la 8, et j'ai du supprimer pas mal de trucs pour compiler sous la 7 (et ca marche presque pas du tout...)

Tant pis... j'ai fait la meme avec les composants Indy...
Messages postés
10
Date d'inscription
mardi 28 décembre 2004
Statut
Membre
Dernière intervention
22 avril 2005

Salut,

J'utilise delphi 6... mais je n'ai pas le souvenir d'avoir utilisé de TidText. Quant au TidGauge je l'ai eu directement avec delphi 6 donc ca doit venir de ta version.

SB
Messages postés
44
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
28 février 2006

Hu... je pense que ca vient de moi, mais je ne peux rien faire de ta source...

Je suis sous Delphi 8, et il me sort que la moitié des uses sont inconnues, et il refuse pas mal de Composants (notamment TidText et TidGauge)...

C'est vraiment moi ou on peut m'expliquer?

Dreuteu
Pourtant le code est attirant... :S
Messages postés
10
Date d'inscription
mardi 28 décembre 2004
Statut
Membre
Dernière intervention
22 avril 2005

Voila, c'est mis à jour ;)
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
13
au fait je pense a un truc pour ta gauge, en fait tu dois compter combien d'étapes tu as dans ta procedure jusqu'a l'envoie du message. c ce chiffre que tu dois mettre dans le "max" de ta gauge. puis par la suite tu fais juste MaGauge.progress := MaGauge.progress+1; (je ne sais plus si la procedure ~.StepIp; existe sur une gauge)

aussi utilise toujours StrToIntDef() a la place de StrToInt() quand tu n'est pas sur que le contenu est un chiffre.
Logikement avec la procedure qui est dans ton OnKeyPress, ça doit fonctionner, mais StrToIntDef() est plutot pas mal, je l'exeplique en 2 mots :
String To Integer Default, si une exception de type co,version survient, la fonction renvoie la valeur par défaut. exemple :
si edit1.text vaut "01truc" et que je fais StrToIntDef(edit1.text,0) alors je vaix recevoir le 0 car il y a erreur.

encore une chose :)
Memo2.Lines.Add('Initialisation du port 25...');
mais tu proposes de changer le port 25, donc si je mets le port 33, ça me dit la meme chose ? pas logique !
je propose donc :
Memo2.Lines.Add('Initialisation du port '+LeEditDuPort.text);
mais peso je prefere avec la fonction Format(); ce qui donne
Memo2.Lines.Add(Format('Initialisation du port %s',[LeEditDuPort.text]);

regarde l'aide de la fonction format si tu veux :)

voila, a bientot ! j'attends la MAJ avant meme de telecharger :p
Afficher les 8 commentaires

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.