[XL-2003] Lien hypertexte dans Mail généré via VBA excel

Lien hypertexte dans Mail généré via VBA excel

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:

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

bonjour,

Il me semble que cette syntaxe n'est pas correcte pour un lien html
Ici tu n'as rien dans le lien, il n'y a que le nom qui soit renseigné

Code:

"<A HREF=>" & "file://serveur\nom_disque\CL\Analyses\Automatique\Delai.pdf" & "</A>"

Il devrait être de la forme :

Code:

<a href="\\xxx\yyy"> Nom du lien</A>

bonsoir

Tu dois encadrer le contenu du lien par des quotes '

Code:

<A href='http://www.developpez.com'>Cliquez ici.</A>

Code:

<A href='\\FRRCHNT1\repertoire\fichier.xls'>Cliquez ici</A>

bonne soirée
michel

Merci à tous,

Combiner du VBA et du HTML ne fut pas simple.
Code:

1 2 "&lt" & "<A href=" & "file://\\Mosna\Analyses%20TEST%20N1\Auto\Liste%20envoyer.pdf" & ">Liste N1</A>" & "&gt"
tout ça pour avoir un chemin valide : <file://\\Mosna\Analyses TEST N1\Auto\Liste envoyer.pdf">

Merci pour vos conseils.