limitation du nombre possible d'emails envoyés

**Pantagruel92** · 02/07/2019, 15h52

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

**Zekraoui_Jakani** · 04/07/2019, 09h04

essayez la commande "DoEvents" après l'envoi de chaque eMail
autre tuyau: augmenter la capacité de votre messagerie (via l'admin chez IT)

**Thumb down** · 04/07/2019, 09h27

bonjour,

c'est SFR qui veut éviter les spam d'un robot! regardes les paramètres sur le site d'SFR.

je pense que de chez toi, il est possible d'utiliser le port 25 sans authentification!

https://www.developpez.net/forums/d1...t/#post7968025

**Pantagruel92** · 05/07/2019, 11h30

Merci de vos deux réponses.
J'essaye tout ça, et je reviens vers vous. Jacques

**Pantagruel92** · 06/07/2019, 10h02

Zekraoui_Jakani, je viens d'essayer avec DoEvents ; aucun changement: ça bloque toujours à 10.
J'essaierai le port 25 sans authentification Lundi.
jacques

**Thumb down** · 06/07/2019, 10h25

Bonjour,
Quand tu as dit ma Box c'est SFR , j'en es conclu que tu travaillais de chez toi. Quand tu dis je vais regarder lundi je me dis que tu ne travail pas de chez toi!

Ie port 25 sans authentification ne fonctionne que si on est connecté à la Box SFR.

**Pantagruel92** · 08/07/2019, 14h59

Envoyé par Thumb down

Bonjour,
Quand tu as dit ma Box c'est SFR , j'en es conclu que tu travaillais de chez toi. Quand tu dis je vais regarder lundi je me dis que tu ne travail pas de chez toi!

Ie port 25 sans authentification ne fonctionne que si on est connecté à la Box SFR.

Tu as tout bon Thumb down : Je travaille de chez moi, mais je n'envoie de mail en nombre que trois fois par semaine!
Je viens d'essayer le port 25, en m'envoyant à moi-même (sur une autre adresse mail) 15 messages, et s'est passé.
Demain, j'essaye en cas réel, mais il n'y a aucune raison que ça ne fonctionne pas.
Ceci dit, je ne sais pas pourquoi le port 25 fonctionne : je vais me plonger dans Internet pour comprendre!
Merci de ton aide.
je marque cette discussion comme terminée.

**Thumb down** · 08/07/2019, 15h29

bonjour,
en fait ça fonctionne parce que justement tu es chez toi et que personne n'a accès à ta box!

de chez toi tu es le maitre!

SFR te protège pour éviter qu'un automate pirate ton mail et spam en ton nom!

limitation du nombre possible d'emails envoyés

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager