Bonjour à tous.

Je me suis inspiré des différentes rubriques sur le site pour préparer un code afin d'envoyer des courriels via Excel.

Les courriels à l'intention de membre de mon employeur se rendent à destination alors que les courriels sortant vers des adresses externes ne fonctionne pas.

J'ai l'erreur : -214722097 (8004020f) à la ligne Send

Le serveur a rejeté une ou plusieurs adresses de destinataires. La réponse du serveur était : 550.5.7.1 Unable to relay

Quelqu'un peu me donner une piste de solution (l'adresse est bonne car c'est la mienne à la maison)?

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub liensDansCorpsDuMessage_CDO()
'adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim strHTML As String
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>Une autre année vient de se terminer. Nous aimerions vous inviter à prendre connaissance des informations contenues dans ce fichier, de les corriger au besoin et de nous retourner le fichier afin de préparer vos déclarations d'impôt 2012.  "
'strHTML = strHTML & "<A href='http://www.developpez.com'>Cliquez ici.</A>"
 
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & "<BR>"
strHTML = strHTML & "Lemieux Cantin S.E.N.C.R.L." & "<BR>"
strHTML = strHTML & "Comptables Agréés/Chartered Accountants" & "<BR>"
strHTML = strHTML & "" & "<BR>"
strHTML = strHTML & "8822 BOUL. LANGELIER, BUREAU 210" & "<BR>"
strHTML = strHTML & "ST-LÉONARD (Québec)   H1P 3H2" & "<BR>"
strHTML = strHTML & "Téléphone:  514-322-3870   Fax :  514-322-1012" & "<BR>"
strHTML = strHTML & "---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" & "<BR>"
strHTML = strHTML & "Politique de confidentialité" & "<BR>"
strHTML = strHTML & "Ce message peut renfermer des renseignements confidentiels, il est réservé à l'usage de l'individu ou de l'entreprise à qui il est adressé. Si vous n'êtes pas le destinataire de ce message (ou la personne chargée de le transmettre au destinataire), veuillez supprimer ce message y compris toute pièce jointe et en aviser l'expéditeur par " & "<BR>"
strHTML = strHTML & "courriel." & "<BR>"
strHTML = strHTML & "" & "<BR>"
strHTML = strHTML & "Confidentiality policy" & "<BR>"
strHTML = strHTML & "This e-mail and its contents are confidential and intended only for the individual or entity above named. If you are not the addressee indicated in this message (or responsible for delivery of the message to such person), you should destroy this e-mail and its contents and kindly notify the sender by reply e-mail." & "<BR>"
 
 
 
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
 
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    'remplacez "smtp.nomserveur.fr" par le nom de serveur de votre FAI :
    'http://outlook.developpez.com/faq/index.php?page=Configuration#Paras_FAI
    '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "sbs2008"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.240"
    .Update
End With
 
With iMsg
    Set .Configuration = iConf
    '.To = "rmonette@lemieuxcantin.qc.ca" 'Renvoie une erreur si l'adresse est non valide
    .To = "bertrandmonette@sympatico.ca" 'Renvoie une erreur si l'adresse est non valide
    .From = "rmonette@lemieuxcantin.qc.ca"
    .Subject = "Saison des impôts 2013"
 
    .HTMLBody = strHTML
    .Send
End With
End Sub
Merci à l'avance

Dlight