Bonjour,

Je n'arrive pas à générer de lien hypertexte dans le corps d'un mail que je génère avec Excel-VBA. Je reçois le mail, mes les liens hypertextes sont de type "OUTBIND".

Le lien doit diriger vers un fichier se trouvant sur l'un des serveurs de mon entreprise.
J'ai essayé 4 méthodes, sans succès, détaillées dans le code ci-dessous.

Pouvez vous m'aider ?

PS : je suis parti des tutoriels sur le sujet trouvés sur le site, sans épurer tout ce qui ne m'intéresse pas. Aussi le code ci-dessous peut vous paraître incohérent. Je dois bien avouer ne pas avoir tout compris.

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
 
 
Sub EnvoiMail_test()
 
 
Dim iMsg As Object, iConf As Object, Flds As Object
Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
Dim lien As String
Dim strHTML As String
 
strHTML = ""
strHTML = strHTML & "<BR>" & "&lt" & "<A HREF=>" & "file://serveur\nom_disque\CL\Analyses\Automatique\Delai.pdf" & "</A>" & "&gt"
strHTML = strHTML & "<BR>" & "&lt" & "<A HREF=>" & "file://:\nom_disque\CL\Analyses\Automatique\Delai.pdf" & "</A>" & "&gt"
strHTML = strHTML & "<BR>" & "&lt" & "<A HREF=>" & "file://E:\CL\Analyses\Automatique\Delai.pdf" & "</A>" & "&gt"
strHTML = strHTML & "<BR>" & "<" & "<A HREF=>" & "file://E\CL\Analyses\Automatique\Delai.pdf" & "</A>" & ">"
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") = "rb-smtp-int.bosch.com"
 
    .Update
End With
 
With iMsg
    Set .Configuration = iConf
    .To = "j7w@b.com"
    .From = "j7w@b.com"
    .Subject = "sujet"
    .HTMLBody = strHTML
 
    .Send
End With
 
End Sub