Bonjour,
malgré quelques recherches je n'ai pas trouvé de réponse à mon problème pour l'instant.
J'ai fait une macro permettant depuis Word de générer un mail Outlook avec le lien sur un réseau local du document actif.
Seulement j'utilise la balise href en html. Et si les répertoires locaux contiennent des caractères spéciaux (espaces, accents...) cela ne marche plus.
Y-a-t-il un autre moyen de créer un lien hypertexte dans un objet "mail" ? Piloter par exemple 'insertion/lien hypertexte' ?...
Merci pour votre aide !
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 Sub MailPourVerif() 'Pour que ce code fonctionne il faut activer les références Microsoft Scripting Runtime & Microsoft Outlook Library If Not ExistenceFichier(ActiveDocument) Then MsgBox "Please save the document before." Exit Sub End If Dim ol As New Outlook.Application Dim olmail As MailItem Dim CurrFile As String Dim strBody As String Dim oFSO As Scripting.FileSystemObject Dim oFl As Scripting.File Dim oTxt As Scripting.TextStream Set ol = New Outlook.Application intro = "Here is a link to the document we want to send : " strBody = "<A HREF=" & ActiveDocument.Path & "\" & ActiveDocument.Name & ">" & ActiveDocument.Path & "\" & ActiveDocument.Name & "</A>" conclu = ". Click on the link to read and edit the document in Word. You'll have access to commands ""Save and rename old"" and ""Send by e-mail""." Set olmail = ol.CreateItem(olMailItem) With olmail .HTMLBody = intro & strBody & conclu .BodyFormat = olFormatHTML .Display End With End Sub Function ExistenceFichier(ByVal sFichier) As Boolean ExistenceFichier = Dir(sFichier) <> "" End Function
Partager