Poser une question

Re: Jmail.AddRecipient - Code complet

Je ne sais pas si ce message parviendra en double... Je l'ai écrit tantôt mais je pense que ça n'a pas fonctionné. Alors le revoici.

***************************

Il serait probablement utile que je vous transmette le code au complet...

Le voici :
--------------------
(...)
While Not RS.EOF
On Error Resume Next
Set JMail = Server.CreateObject("Jmail.SMTPMail")
JMail.ServerAddress = "mail.mondomaine.com"
JMail.ContentType = "text/html"
courriel = RS("destinataire") 'adresse validée
JMail.AddRecipient courriel
Jmail.SenderName = "Mon nom"
Jmail.Sender = "info@mondomaine.com"
Jmail.Subject = "Le sujet"
JMail.AppendBodyFromFile "mapage.htm"
Jmail.Execute
set Jmail=nothing
If Err.Number <> 0 Then
Response.Write("Erreur : " & err.description)
Else
Response.Write (courriel & " : Message envoyé"
End If
RS.MoveNext
Wend
--------------------

Avec le JMail.AddRecipient, j'ai fait des tests en remplaçant la variable "courriel" par l'adresse directement. Comme je disais, ce code fonctionne bien lorsque l'adresse utilisée fait partie de notre nom de domaine, sinon, j'ai le message d'erreur mentionné dans ma question originale.

Je fais boucler l'envoi du courriel au complet pour que les destinataires reçoivent individuellement et personnellement le message, sans les coordonnées des autres destinaitaires. Je ne sais s'il y a une autre façon, plus appropriée, pour ce faire.

Quand j'inscris directement mon adresse dans le JMail.AddRecipient au lieu de la variable "courriel", je reçois effectivement autant de copie de messages qu'il y a de destinataires dans mon RecordSet.

Aussi, à titre d'information, savez-vous s'il est possible d'imbriquer des "On Error Resume Next" ?

Merci encore.

Réponses

Aucune réponse à ce message...