J'écris une application de newsletter en utilisant CDO.Message. Mais récupérons une erreur que nous avons à beaucoup de connexions. Il semble qu'ils ont une limite de 10 connexions simultanées.CDO.Message - à plusieurs connexions
Alors, existe-t-il un moyen d'envoyer plusieurs messages sur une connexion ou de se déconnecter plus rapidement? Il existe un paramètre cdo/configuration/smtpconnectiontimeout, mais je pense que cela dépend davantage de la durée d'essai de l'expéditeur.
(Si nous envoyons, il échoue, il réussira à nouveau après quelques minutes, ce qui signifie probablement que la connexion est déconnectée).
(Nous utilisons CDO en partie parce que nous retirons le corps du message HTML à partir d'un serveur Web)
Modifier:
Public Sub ipSendMail(ByVal toEmail As String, ByVal fromEmail As String, ByVal subject As String, ByVal url As String)
Dim iMsg As Object
Set iMsg = CreateObject("CDO.Message")
iMsg.From = fromEmail
iMsg.To = toEmail
iMsg.Subject = subject
iMsg.CreateMHTMLBody(url)
iMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
iMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay.wwwwwwwwww.net"
iMsg.Configuration.Fields.Item_
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
iMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 0
iMsg.Configuration.Fields.Update()
iMsg.Send()
Set iMsg = Nothing
End Sub
Serait utile de nous dire au moins avec quelle langue vous écrivez ceci, aussi. –
Public Sub ipSendMail (ByVal toEmail As String, ByVal fromEmail As String, sous réserve ByVal As String, url ByVal As String) Dim IMsg As Object = CreateObject ("CDO.Message") iMsg.From = fromEmail iMsg.To = toEmail iMsg.Subject = sujet iMsg.CreateMHTMLBody (url) – Olav
iMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 iMsg.Configuration. Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay.wwwwwwwwww.net" iMsg.Configuration.Fields.Item _ – Olav