Dialog smtp mail sur mirc

Soyez le premier à donner votre avis sur cette source.

Vue 4 465 fois - Téléchargée 126 fois

Description

Bon , c'est re moi ^^ ... ( après mon bon cassage sur ma dernière source posté )
Voilà ma première "source" perso ... Bon ben c'est pas extra mais je m'entraine ...
Hum , je vois pas d'explication à faire , j'ai pas utilisé de mdx ...
Normalement ca marche ... Ah oui j'allais oublié, ca sert à envoyer des emails à partir de mIRC ... Allez assez parlé , à vous de commenter maintenant !
  • Lapinpsykopate*


pour sauter des lignes ds l'edit message fait ctrl+enter ;-)

Source / Exemple :


menu menubar,channel,query,status {
  -
  Mon client SMTP:/smtp
}
alias smtp { dialog -md smtpmail smtpmail }
dialog smtpmail {
  title "Lapinpsykopate Mail Sender !"
  size -1 -1 176 178
  option dbu
  text "De :", 2, 3 6 13 8
  text "A:", 3, 2 21 9 8
  text "Sujet :", 4, 1 37 20 8
  edit "", 6, 27 5 112 10
  edit "", 7, 27 19 112 10
  edit "", 8, 27 36 112 10
  button "Annuler !", 11, 125 143 37 12, cancel
  edit "", 9, 4 57 164 44 , multi autohs autovs hsbar vsbar
  button "Envoyer ! :P", 13, 4 144 37 12
  box "Message", 1, 1 50 172 56
  edit "En train d'écrire", 5, 35 117 103 10, read autohs center
  box "Statut", 10, 30 109 115 22
  button "Effacer tout les champs présents", 15, 3 164 86 12
  button "Quitter", 12, 125 164 37 12 , ok
}
on *:DIALOG:mail:init:*:{
  did -a smtpmail 6 %from
  did -a smtpmail 7 %to
  did -a smtpmail 8 %subject
  did -a smtpmail 9 %msg
}
on *:dialog:smtpmail:sclick:15:{
  unset %from $did(6) | unset %to $did(7) | unset %subject $did(8) | unset %msg $did(9) | dialog -x smtpmail smtpmail | smtp
}
on *:dialog:smtpmail:sclick:13:{
  smtpsend
  did -ra smtpmail 5 Connection en cours ...
  set %from2 $did(6)
  set %to2 $did(7)
  set %subject2 $did(8)
  set %msg2 $did(9)

}

alias smtpsend {
  sockclose sock
  sockopen sock smtp.tiscali.fr 25
}

on *:sockopen:sock:{ 
  if  ($sockerr > 0) { did -ra smtpmail 5  Connection impossible | halt }
  sockwrite -tn sock  helo %subject2 $+ $crlf $+ mail from: < $+ %from2 $+ > $+ $crlf $+ rcpt to: < $+ %to2 $+ > $+ $crlf $+ | sockwrite sock data $+ $crlf $+ %msg2 $+ $crlf $+ . $+ $crlf
}

on *:sockread:sock:{
  sockread %read
  echo @debug %read
if (queued isin %read) {did -ra smtpmail 5 Mail envoyé ... | sockclose $sockname | unset %from2 %to2 %subject2 %msg2 %read }
}

Conclusion :


Je voudrais dire un grand merci à Silver Bahamut qui m'a beaucoup aider à la réaliser . Euuu , peut être une mise à jour , pour plus tard !!
Sinon on peut changer le server smtp dans le script si ca marche pas avec celui là ...
Pour sauter des lignes ds l'edit message fait ctrl+enter ;-)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
165
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
1 juillet 2006

Apparement tu ne comprend pas:
Tu ne fait même pas un seul $gettok pour vérifier les raws que le serveur renvoi

Le corps du mail contient éventuellement certains des en-têtes suivants :
Date
Subject
Cc
Bcc
From
Si la commande est acceptée le serveur renvoie
le message "250 OK"
Voici un exemple de transaction entre un client
(C) et un serveur SMTP (S)
S: 220 smtp.commentcamarche.net SMTP Ready
C: EHLO machine1.commentcamarche.net
S: 250 smtp.commentcamarche.net
C: MAIL FROM:<webmaster@nana.net>
S: 250 OK
C: RCPT TO:<meandus@meandus.net>
S: 250 OK
C: RCPT TO:<tittom@tittom.fr>
S: 550 No such user here
C: DATA
S: 354 Start mail input; end with <CRLF>.<CRLF>
C: Subject: Petit Bonjour
C: Salut Meandus,
C: comment ca va?
C:
C: A bientot !
C: <CRLF>.<CRLF>
S: 250 OK
C: QUIT
R: 221 smtp.commentcamarche.net closing transmission


Commande Exemple Description
HELO (désormais EHLO) EHLO 193.56.47.125 Identification
à l'aide de l'adresse IP ou du nom de domaine de l'ordinateur expéditeur
MAIL FROM: MAIL FROM: expediteur@domaine.com Identification de
l'adresse de l'expéditeur
RCPT TO: RCPT TO: destinataire@domaine.com Identification de l'adresse du destinataire
DATA DATA message Corps du mail
QUIT QUIT Sortie du serveur SMTP
HELP HELP Liste des commandes SMTP supportées par le serveur


L'ensemble des spécifications du protocole SMTP sont définies dans le
RFC 821
(depuis avril 2001, les spécifications du protocole SMTP sont définies dans le RFC 2821).
Messages postés
140
Date d'inscription
jeudi 30 octobre 2003
Statut
Membre
Dernière intervention
15 avril 2008

Chang si tu avais lu plus haut ( ds le message de Sorn )
je vais répondre simplement à ta remarque (
3) Comme tu ne respect pas dutout le protocole SMTP, on est obliger de taper CTRL+ENTRER dans l'edit au lieu d'un simple ENTRER)
Le fait que l'on ne puisse pas sur cette boite passé à la ligne avec enter c'est parce que j'ai oublié le return ds mon paramètre d'edit ...
( si je ne montre pas :/ )
Sinon j'ai d/l ta source qui m'a l'air d'être une vrai prouesse ...
Vraiment bien , je vais regarder ta source tout de suite ... :p
Beuuhh sinon j'comprend pas , le protocole smtp est respecté ... Enfin j'ai fais comme je l'aurait utilisé sur TELNET . Et puis si je n'avais pas respecter le protocole SMTP l'email ne pourrait pas s'envoyer non ? :|
Merci , merci de vos commentaires ...
Lapinpsykopate
Messages postés
165
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
1 juillet 2006

Ce que j'ai a dire s'exprime en 5 point:

1) Tu ne respect pas le protocole SMTP
2) Dialog trop gros
3) Comme tu ne respect pas dutout le protocole SMTP, on est obliger de taper CTRL+ENTRER dans l'edit au lieu d'un simple ENTRER
4) Regarde les sources avant de poster.
5) http://www.ircfr.com/code.aspx?ID=19099 <= Voila mon Xmailer regarde dedans le socket pour avoir le protocol SMTP et POP3

Je ne note pas
Messages postés
140
Date d'inscription
jeudi 30 octobre 2003
Statut
Membre
Dernière intervention
15 avril 2008

D'abord réponse à Sorn :
Merci bcp bcp pour tes idées , j'appreci bcp tes remarques ...
Sinon encore merci pour le return que je cherchais depuis des lustres !
Voilà pour commencer j'avais lu ton tuto sur les dialogs très instructif , donc encore merci ... ( Ps : sympa l'idée du POP3 :p )

Et ensuite à Kerrigan :
Euu lol j'ai pas voulu trop m'influancer sur d'autres sources ( le calquage copié collé c inutile ) mais maintenant je peux allez voir cette source ^^ ... Arf sinon j'savais qu'il était existant , mais bon c'était mon premier script qui utilise un socket donc j'ai pas trop fait ds la nouveauté c'est vrai ...

Lapinpsykopate
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

Lapinpsykopate va voir cette source la c'est un mail sender tres tres compétent , plus developper et qui en plus, est sur ce site ...

http://www.ircfr.com/code.aspx?ID=19099

C'est pas une mauvaise source mais la prochaine fois que tu nous propose un addon existant fait meileur que ce que l'on peut trouver.
Afficher les 11 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.