Gambas France BETA


Pas de compte ? Incription

Utiliser le controle smtp

Ce sujet est résolu.

1
AuteurMessages
spheris#1 Posté le 23/12/2011 à 21:02:34
Bonsoir,
en gb2.23 Ubuntu 10.04 LTS ce code me renvoi le signal 11. Ou est mon erreur et ou puis-je saisir le mdp du serveur smtp?

1
2
3
4
5
6
7
PUBLIC SUB Button1_Click()
SmtpClient1.From = "bobi@dft.fr" 'auteur du message
SmtpClient1.Add(TextArea1.Text) 'contenu du message
SmtpClient1.To.Add(TextBox1.Text, 1) 'destinataire du message
SmtpClient1.Host = "smtp.free.fr" 'serveur hote smtp
SmtpClient1.Send 'envoi du message
END
www.gambaslinux.fr
Jack#2 Posté le 24/12/2011 à 14:35:12
Salut,

tu n'as pas besoin de saisir le mdp puisqu'il n'est pas utile pour l'envoi, par contre il faut déclarer le port de sortie.

PUBLIC SUB Button1_Click()
SmtpClient1.From = "bobi@dft.fr" 'auteur du message
SmtpClient1.Host = "smtp.free.fr" 'serveur hote smtp
SmtpClient1.Port = "25"
SmtpClient1.Add(TextArea1.Text) 'contenu du message
SmtpClient1.To.Add(TextBox1.Text, 1) 'destinataire du message
SmtpClient1.Send 'envoi du message
END
Pour un code démocratique nationalisons Gambas.
spheris#3 Posté le 26/12/2011 à 00:00:05
Jack,
merci mais j'ai toujours l'erreur 11.
une autre idée?
;)
www.gambaslinux.fr
Jack#4 Posté le 26/12/2011 à 08:50:04
peut-être modifier les deux lignes.
SmtpClient1.Add(TextArea1.Text, "text/plain;charset=utf-8") 'contenu du message
SmtpClient1.To.Add(TextBox1.text) 'destinataire du message
Pour un code démocratique nationalisons Gambas.
spheris#5 Posté le 27/12/2011 à 11:23:33
Jack,
Cela ne fonctionne toujours pas.
;)
www.gambaslinux.fr
spheris#6 Posté le 28/12/2011 à 16:23:13
Up

;)
www.gambaslinux.fr
spheris#7 Posté le 8/1/2012 à 21:17:28
Bonsoir,
J'ai toujours ce message d'erreur en GB2:



1
2
3
4
5
6
7
PUBLIC SUB Benvoyer_Click()
SmtpClient1.From = "bobi@dft.fr" 'auteur du message
SmtpClient1.Add(TextArea1.Text) 'contenu du message
SmtpClient1.To.Add(TextBox1.Text, 1) 'destinataire du message
SmtpClient1.Host = "smtp.free.fr" 'serveur hote smtp
SmtpClient1.Send 'envoi du message
END


Une solution ?
www.gambaslinux.fr
spheris#8 Posté le 9/1/2012 à 16:19:07
J'ai trouvé mon erreur. Je passe en résolu.
;)
www.gambaslinux.fr
spheris#9 Posté le 9/1/2012 à 16:45:17
J'ai trouvé mon erreur. Je passe en résolu.
;)


http://gambaslinux.eg2.fr/articles.php?lng=fr&pg=1985
www.gambaslinux.fr
lapenduledargent#10 Posté le 10/1/2012 à 08:46:53
Merci Spheris,

Ça va m'être très utile.

Bonne journée

Pierre
manu#11 Posté le 10/1/2012 à 16:41:25
Avec Gambas ca roule !Une réponse dans ce Topic aurais été plus clair pour tous le monde comme ceci :

1
2
3
4
5
6
7
8
9
10
11
12
PUBLIC SUB bsend_Click()
SmtpClient1.To.Add(tto.Text) 'destinataire du message
SmtpClient1.Subject = tobject.Text 'objet du message
SmtpClient1.From = "lemail@lemail.fr"'adresse expediteur
SmtpClient1.Host = "smtp.free.fr" 'serveur smtp
SmtpClient1.Port = 25 'port
SmtpClient1.Add(tcontent.Text, "text/plain") 'contenu et type
SmtpClient1.Send() 'envoi du message
Message.Info("Message envoyé avec succès!"'message si bien envoyé
CATCH 'interception d'une erreur
Message("une erreur s'est produite, veuillez recommencer !")
END
Jeanne d'arc, elle a frit, elle a tout compris ! ;)

Config :
Manjaro linux (excellent !)
XFCE 4.1 (simple et efficace)
Gambas 3 dans les dépots (confort total)
1