Discussion :

[carlux3]

Bonjour à tous,

voilà j'ai fait une macro qui fonctionne pour l'envoie d'un mail contenant l'adresse du dossier d'un fichier
Ce que j'aimerai c'est que dans le corps du mail cette adresse apparaisse comme un lient et que la personne qui le reçoit n'a plus qu'à cliquer dessus pour l'ouvrir
Ou alors mettre un lien hypertexte du genre cliquez ici et le dossier s'ouvre

voici le code :

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
Sub CreationMailEtLienHypertexte()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem
    Dim Doss, NomCli As String
    Doss = "C:\Documents and Settings\UTILISATEUR\Mes documents\Martin\" & Format(Range("D4"), "mmmyyyy") & "\" & Format(Range("D4"), "ddmmyyyy") & Range("D2")
 
    'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
 
    Set OlApp = New Outlook.Application
    Set OlItem = OlApp.CreateItem(olMailItem)
 
    With OlItem
        .To = "m.c@test.com"
        .Subject = "test"
        .Body = "Le fichier de la nouvelle commande pour le client : " & Range("D2") & " se trouve :" & vbLf & vbLf & Doss & vbLf & vbLf & "Cordialement" & vbLf & vbLf & vbLf & "mailto:emetteur@mail.fr"
 
        .Display
        .Save
        .Send
    End With
 
    Set OlItem = Nothing
    Set OlApp = Nothing
End Sub

en vous remerciant de votre aide

[AlainTech]

Je ne suis pas un spécialiste des macros Outlook mais voici ce que donne l'enregistreur de macro:

Code :

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

1
2
3
4
  ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    "C:\Documents and Settings\UTILISATEUR\Mes documents\Martin\", SubAddress _
    :="", ScreenTip:="", TextToDisplay:= _
    "C:\Documents and Settings\UTILISATEUR\Mes documents\Martin\"

ActiveDocument devra être remplacé par OlItem.
Par contre, pour le Selection.Range, je ne sais pas.

J'espère que ça pourra t'aider.