[R] Envoyer un mail avec _INtetSmtpMail

[Utilisateur 3643 supprimé]

bonjour alors voilà j'ai trouvé cet fonction il y a peu de temps et je voudrait m'en servir mais quand je le lance il me dis code erreur 4 (dans le script) et quand je regarde la fonction il disent que erreur 4 c'est "Unable to create socket". Voilà mon script :

► Afficher le texte

#include <INet.au3>

$s_SmtpServer = "smtp.live.com"
$s_FromName = "Max"
$s_FromAddress = "-uu(i_èto@caramail.fr"
$s_ToAddress = "roto@hotmail.fr"
$s_Subject = "Test"
Dim $as_Body[2]
$as_Body[0] = "Testing the new email udf"
$as_Body[1] = "Second Line"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf

Et aussi, je voudrait savoir comment faire une input avec les caractères en étoiles

Merci d'avance pour vos réponses au revoir !!

[TT22]

Pour l'inputbox, c'est pas compliqué : InputBox("","","","*")

Pour l'erreur, moi j'ai une erreur 50, dans l'aide Autoit, ça dit :
@error : 5x - Cannot open SMTP session. x indicates the index number of last command issued to the SMTP server.

[Utilisateur 3643 supprimé]

Pour l'inputbox, c'est pas compliqué : InputBox("","","","*")

Pour l'erreur, moi j'ai une erreur 50, dans l'aide Autoit, ça dit :
@error : 5x - Cannot open SMTP session. x indicates the index number of last command issued to the SMTP server.

merci pour l'input mais, moi j'ai pas erreur 50, j'ai erreur 4 et j'aimerais régler le problème pour que cela marche correctement

[TT22]

Désolé, mais si j'ai pas la même erreur que toi, je vois pas trop comment je pourrais t'aider

[moi]

regarde ceque dıs la doc :

4 - Unable to create socket

[Utilisateur 3643 supprimé]

oui mais désolé, je ne parle pas anglais :/ et je ne sais pas si c'est la solution...

[moi]

google traductıon est ton amıs

[floriande26]

Regarde :

Code : Tout sélectionner

s_FromAddress = "maxime.betemps@caramail.fr"

et

$s_SmtpServer = "smtp.live.com"

Si tu regarde là ton adresse est une caramail et caramail c'est
:

Serveur SMTP : smtp.lycos.co.uk

Donc essaye de remplacer par $s_SmtpServer = "smtp.lycos.co.uk"

J'espère avoir trouver

[Utilisateur 3643 supprimé]

jessaye tout de suite

[Utilisateur 3643 supprimé]

floriende26 je suis désolé mais cela ne marche toujours pas ! (toujours la même erreur)
et "moi", google traducteur me dit:

Impossible de créer une socket

(j'avais déjà essayer avec google traducteur) et excuse, mais je ne sais pas se qu'es une socket j'ai chercher sur google et j'ai cru comprendre que cétait une prise

[PandiPanda]

► Afficher le texteDéfinition

Les sockets sont des flux de données, permettant à des machines locales ou distantes de communiquer entre elles via des protocoles.
Les différents protocoles sont TCP qui est un protocole dit "connecté", et UDP qui est un protocole dit "non connecté".

[floriande26]

Essaye :

Code : Tout sélectionner

#include <INet.au3>

 Local $s_SmtpServer = "smtp.lycos.co.uk"
Local $s_FromName = "Max"
Local $s_FromAddress = "maxime.betemps@caramail.fr"
Local $s_ToAddress = "maxbetemps@hotmail.fr"
Local $s_Subject = "Test"
Local $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject)
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!","Mail failed with error code ")
EndIf

Et dis moi

[Utilisateur 3643 supprimé]

Jessaie dés demain pour vous dire di cela a marcher ou pas !

[Utilisateur 3643 supprimé]

Ne marche toujours pas :,(

[matwachich]

N'oubliez pas que les serveur SMTP que vous voulez utiliser sont des serveurs sécurisés. CAD qu'ils demande un nom d'utilisateur (email) et un mot de passe.

Or, vous ne donnez qu'un nom utilisateur.

En plus, ces serveurs n'utilise pas le port 25 par défaut, car ils utilisent une connexion sécurisée SSL.

Je vous renvoi vers la fonction _INetSmtpMailCom (recherche sur le forum anglais), elle fera largement l'affaire.