Envoi de courriels en masse : problèmes d'envoi
Bonjour,
J'ai un code que j'utilise pour envoyer des courriels en copies cachées à plusieurs personnes en même temps :
Option Explicit
Sub SendMail_Outlook()
'ATTENTION : sous Outils/Référence, "Microsoft Outlook Object Library" doit être marqué
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim nblig As Long
Dim i As Integer
Dim MailAd As String, MailAd1 As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
nblig = ActiveSheet.Rows.Count
For i = Range("B" & nblig).End(xlUp).Row To 2 Step -1
MailAd = Range("B" & i) & ";"
MailAd1 = MailAd & MailAd1
Next i
With olmail
.To = yvouille@redwin.ch
.BCC = MailAd1
.Subject = "''Concerne :'' peut être préparé ici"
.Body = "Le texte peut également être préparé ici"
.Display
End With
End SubCa fonctionnait bien avec un nombre restreint de destinataires, mais avec 500 adresses, ça semble ne plus passer.
Savez-vous s'il y a un nombre limite d'adresses possibles et si oui combien ?
Cordialement.
Bonjour Yvouille
a priori la limitation ne viendrait pas de outllook en lui même... mais de ton serveur SMTP...
fred
Salut Fred,
Merci beaucoup pour ta réponse. Effectivement que ne nombre d'envoi par jour semble limité à une centaine, quel que soit le serveur SMTP.
J'enverrai mes messages sur 5 jours
Amicalement.