Page 1 sur 1
[..] Envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 15:50
par aulus
Bonjour,
Sauriez-vous me dire pourquoi mon tableau d'erreurs reste vide, alors que les adresses mail ne sont pas valides ?
► Afficher le texte
Code : Tout sélectionner
#include <INet.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
Global $nb = 0
Global $erreurs[1]
$s_SmtpServer = "smtp.sfr.fr"
$s_FromName = "moi-même"
$s_FromAddress = "monAdresse@sfr.fr"
Dim $s_ToAddress[3] = ["adresseBidon1@ouanadoux.fr","adresseBidon2@orangeade.fr","adresseBidon3@laissezfaire.fr"]
$s_Subject = "Sujet de ce courriel"
Dim $as_Body[1]
$as_Body[0] = "Corps de ce courriel"
;envoi
For $i=0 to ubound($s_ToAddress)-1 step 1
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress[$i], $s_Subject, $as_Body, @computername, -1)
If $Response <> 1 then
$nb = $nb + 1
ReDim $erreurs[$nb]
$erreurs[$nb -1] = $s_ToAddress[$i]
endif
next
_ArrayDisplay($erreurs, "Adresses non valides :")
Merci pour vos avis.
Re: [..] envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 16:06
par jguinch
Oui, parce que tu utilises Dim au lieu de Redim (Dim permet de déclarer une variable, Redim permet de redimensionner un tableau)
Re: [..] envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 16:12
par aulus
Avec ReDim, ça ne va pas mieux.
Re: [..] envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 16:17
par mikell
Et avec ReDim sans espace entre Re et Dim ?
Re: [..] envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 16:23
par aulus
Je redime :
Code : Tout sélectionner
If $Response <> 1 then
$nb = $nb + 1
[b] ReDim $erreurs[$nb][/b]
$erreurs[$nb -1] = $s_ToAddress[$i]
endif
Re: [..] envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 16:29
par mikell
Chez moi ce code (redimé) marche bien
Re: [..] envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 16:39
par aulus
Vous obtenez un tableau d'adresses courriel rempli ? Moi j'obtiens un tableau vide.
Re: [..] envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 17:00
par mikell
Yes... avec le code rectifié du 1er post j'obtiens bien un tableau à 3 lignes avec les 3 adresses
Re: [..] Envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 19:58
par aulus
Re: [..] Envoi courriels et erreurs
Posté : jeu. 27 févr. 2014 21:26
par jguinch
Ton tableau vide, il a combien de lignes ?
Re: [..] Envoi courriels et erreurs
Posté : ven. 28 févr. 2014 08:33
par aulus
Le voici :
Re: [..] Envoi courriels et erreurs
Posté : ven. 28 févr. 2014 08:56
par jguinch
Donc ça veut dire que _INetSmtpMail te renvoie 1 à chaque fois.
Re: [..] Envoi courriels et erreurs
Posté : ven. 28 févr. 2014 09:32
par aulus
Oui, _INetSmtpMail est satisfait de mes adresses farfelues.
