[..] Envoi courriels et erreurs

[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.

[jguinch]

Oui, parce que tu utilises Dim au lieu de Redim (Dim permet de déclarer une variable, Redim permet de redimensionner un tableau)

[aulus]

Avec ReDim, ça ne va pas mieux.

[mikell]

Et avec ReDim sans espace entre Re et Dim ?

[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
 

[mikell]

Chez moi ce code (redimé) marche bien

[aulus]

Vous obtenez un tableau d'adresses courriel rempli ? Moi j'obtiens un tableau vide.

[mikell]

Yes... avec le code rectifié du 1er post j'obtiens bien un tableau à 3 lignes avec les 3 adresses

[aulus]

[jguinch]

Ton tableau vide, il a combien de lignes ?

[aulus]

Le voici :

[jguinch]

Donc ça veut dire que _INetSmtpMail te renvoie 1 à chaque fois.

[aulus]

Oui, _INetSmtpMail est satisfait de mes adresses farfelues.