.send n'aime pas les boucles?

[Claudy]

Bonjour,
j'essaie de boucler (loop, do, until, for i=1 to..., etc..., next)
et ça coince à chaque fois sur mon .send!
Pouvez vous éclairer ma petite lanterne?
Merci d'avance,
Claudy

 

[MJ13]

Re : .send n'aime pas les boucles?

Bonjour Claudy

Ouh la la! il nous manque ton code au complet 😕.

 

[Claudy]

Re : .send n'aime pas les boucles?

Et voilà...Merci a+

Sub Francfort()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Do
i = i + 1
For Each cel In Range("B4:B13")
Calculate
strbody = Range("A1").Value
With iMsg
Set .Configuration = iConf
.to = "zaza@zaza.com"
.CC = ""
.BCC = "moi@zaza.be"
.From = cel.Value
.Subject = "FRANCFORT"
.TextBody = strbody
.Send
'.display
End With
Next
Loop Until i = 10
End Sub

 

[pierrejean]

Re : .send n'aime pas les boucles?

Bonjour Claudy

Ton code fonctionne parfaitement pourvu qu'en B4:B13 il y ait des adresses mail valides

Pour la petite histoire:J'ai failli saturer ma Bal de FRANCFORT !!!!

 

[Claudy]

Re : .send n'aime pas les boucles?

Bonsoir,
j'ai vérifié mes adresses, elles sont bonnes car si je ne boucle pas, pas de problème!
Merci a+

 

[pierrejean]

Re : .send n'aime pas les boucles?

Re

Et quel est le message d'erreur lors du debug ?

 

[klin89]

Re : .send n'aime pas les boucles?

Bonjour Claudy, PierreJean, MJ13

A la fin de ton code, avant le Next, il ne manque pas ceci.

Set iMsg = Nothing
Set iConf = Nothing

Klin89