[VBA-E] Insertion d'un lien hypertexte dans un mail

Version imprimable

11/05/2006, 09h47
alex_95

[VBA-E] Insertion d'un lien hypertexte dans un mail

Bonjour,

Je cherche à integrer un lien hypertexte dans le corps de texte d'un mail.
Ce lien est crée suite à une recherche de fichiers.

Le resultat de cette recherche est ecrit colonne A et la directory est mise en lien.
Par contre, comment mettre ce lien dans le mail ?

Merci d'avance

bonjour

tu peux tester cet exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub CreationMailEtLienHypertexte()
Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem
'testé avec excel XP
' necessite d'activer la reference microsoft outlook 10.0 object library
Set OlItem = OlApp.CreateItem(olMailItem)
 
With OlItem
.To = "<a href="mailto:destinataire@mail.fr">destinataire@mail.fr</a>"
.Subject = "Le titre du message"
'\\FRRCHNT1 nom du serveur hebergeant le fichier lié
.HTMLBody = _
"<BODY><A href='\\FRRCHNT1\fichier.xls'>\\FRRCHNT1\fichier.xls</A></BODY>"
.Display
.Save
.send
End With
 
Set OlItem = Nothing
Set OlApp = Nothing
End Sub

bon apres midi
michel

Merci Michel,

Mon seul pb, c'est que je n'ai pas la reference microsoft outlook 10.0 object library.
Et elle n'est pas dispo dans la liste...

VOici ci dessous le code que j'utilise, et je souhaites mettres mon lien avec msg = "" &lien... ou autre chose si tu as une autre idée.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub envoimail(etude) Dim Subj As String Dim EmailAddr As String Dim Recipient As String Dim Fichier As String Dim Msg As String Dim HLink As String p = Range("K" & etude + 4) t = LCase(Range("A" & etude + 4)) If Range("D" & etude + 4) <> "" Then v = Range("D" & etude + 4) Else: v = Range("B" & etude + 4) End If Subj = "Analyse effectué" EmailAddr = "" & XX@XX" Msg = HLink = "mailto:" & EmailAddr & "?" HLink = HLink & "subject=" & Subj & "&" HLink = HLink & "body=" & Msg Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:" & HLink Sleep (20) SendKeys "%s", True End Sub
Autre souci de taille, un des dossiers dans lequel se trouve le fichier excel auquel le lien est rattache ne comporte pas de _ mais un espace.
donc je ne peux pas faire

Code:

Range("A1") =<a href="file://\\I:\..." target="_blank">\\I:\...</a>

et avoir automatiquement le lien...

Sinon sais tu comment remplacer un espace par %20 ??
de sorte a avoir au lieu de piece jointe, piece%20jointe
Deplus, comme le lien est long, ne peut-on le nommer par exemple test et des qu'on clique sur test, on ouvre :
I:\... ?

As tu une idée de comment faire ?

Merci d'avance