Bonjour,
J'ai une question qui n'est pas, je pense, directement liée à Excel VBA, mais peut-être l'un d'entre vous peut m'aider.
J'ai écrit une procédure qui sélectionne des noms de personnes dans un tableau Excel, et qui leur envoie un email personnalisé.
Voilà le code qui envoie les emails :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub envoi_mail(destin, objet, montexte)
Dim cdomsg As Object
Dim texte As String
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sfr.fr"  
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauhenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Update
End With
obj = objet
texte = "<html><body><p>" & Replace(montexte, vbCrLf, "</p><p>") & "</p></body></html>"
'texte = montexte
'msgbox montexte
With cdomsg
    .To = destin
    .FROM = "cinema.saint.gilles@sfr.fr" 
    '.cc = "cinemastgilles44@gmail.com"
    .Subject = obj
    '.textBody = texte
    .HTMLBody = texte
    .Send
End With '
    Set cdomsg = Nothing
End Sub
Le code tourne bien, mais je ne peux envoyer que 10 emails, avant d'avoir un message d'erreur me disant que les envois sont saturés.
Je suis obligé de lancer la procédure plusieurs fois (avec un délai d'attente assez long, de l'ordre de 15 minutes), pour envoyer les emails suivants, de dix en dix.r
Ma box est une SFR.
Est-ce que quelqu'un a déjà rencontré ce genre de pb?
Merci d'avance