Bonjour,
J'ai créé un programme permettant d'envoyer des mails automatiquement en sélectionnant dans une liste un ou plusieurs destinataire.
Pour les destinataires de n'importe quel hébergeur, çà fonctionne parfaitement, sauf pour les destinataires hébergés par FREE (et là j'ai rien compris !!!)
Quelqu'un a-t-il déjà rencontré ce problème et éventuellement résolu ?
Voici mon code :
Merci d'avance.
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 Set iMsg = New CDO.Message Set iConf = New CDO.Configuration Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr" .Update End With With iMsg Set .Configuration = iConf .To = FMbr.Range("G" & L) .From = "adresse@orange.fr" .Subject = "Votre Carte de Membre " & Annee & " - " & (Annee + 1) sTmp = "tagada tsoin tsoin" .TextBody = sTmp .Attachments.DeleteAll .AddAttachment FchMbr & ".pdf" .Send End With
Partager