Email via Excel

**dlight** · 10/05/2012, 14h54

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

**Daniel.C** · 10/05/2012, 15h09

Bonjour,

Vérifie l'adresse du serveur SMTP.

**patricktoulon** · 10/05/2012, 15h13

bonjour

utilise plutot le serveur smtp de ta fai chez moi par exemple "smtp.free.fr

tu peut te baser sur mon mailer vba tu a le lien dans ma signature

si ce n'est que tes adresse sont un peu bizarre le code est fonctionel

au plaisir

**dlight** · 11/05/2012, 17h57

Merci à vous deux pour vos réponse.

J'ai le même fournisseur internet à la maison et au bureau et j'ai déjà fait un code du même genre à la maison. J'ai donc le bon nom de serveur.

J'ai donc modifié le nom de serveur pour celui de FAI et j'ai maintenant l'erreur :

-2147220978 (8004020e)

Le serveur a rejeté l'adresse de l'expéditeur. La réponse du serveur était : 530 5.7.0 Must issee a STARTTLS command first

Lors de mes tests à la maison, j'avais utilisé mon adresse personnel alors que cette fois j'utilise l'adresse de mon employeur.

Merci à l'avance pour vos pistes de solution

Dlight