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

**alex_95** · 11/05/2006, 09h47

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

**SilkyRoad** · 11/05/2006, 12h51

bonjour

tu peux tester cet exemple :

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
 
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

**alex_95** · 11/05/2006, 13h42

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 :

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
 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Macros et VBA Excel

Discussions similaires

Partager

Partager