excel manage static hyperlink as dynamic hyperlink and add excel filepath to my outlook hyperlink

'====================================================================
' Requires IE v4.0+ write a data to the clipboard (copy to clipboard)
Sub wricli(sText)
   Dim aa As Object
   
   Set aa = CreateObject("InternetExplorer.Application")
   With aa
      .Navigate "about:blank"
      Do Until .ReadyState = 4:  Loop
      With .Document
         .Open
         .Write (sText)
         .Close
         Do Until .ReadyState = "complete": Loop
         .execcommand "SelectAll"
         .execcommand "Copy"
      End With ' document
 
   End With ' IE
   aa.Quit
   Set aa = Nothing
End Sub
 
Sub Copier_hyperlien()
   Dim message As Object
   Dim a As Variant
   Dim b As Variant
   Dim ExplorerMsg As Explorer
   Dim FolderMsg As MAPIFolder 'Dossier d'où provienne les msg à copier
   
   Set FolderMsg = ActiveExplorer.CurrentFolder
   Set ExplorerMsg = FolderMsg.GetExplorer
   
   a = TypeName(Outlook.Application.ActiveWindow)
   If a = "Explorer" Then
      b = ""
      For Each message In ExplorerMsg.Selection
         b = b & coplie(message)
      Next
   '=== si on est dans MESSAGE, seulement le "current"
   ElseIf a = "Inspector" Then
      b = ""
      Set message = Outlook.Application.ActiveInspector.CurrentItem
      b = coplie(message)
   End If
   
   'For Each message In ExplorerMsg.Selection
      
   'Next
   wricli (b)
   
End Sub
Function coplie(message)
   Dim a As String
 
      If TypeOf message Is MailItem Then
         a = a & "<a href=""outlook:" & message.EntryID & """>" & _
         "LIEN OUTLOOK From: " & message.SenderName & _
         " Sujet: " & message.Subject & _
         " Date: " & message.ReceivedTime & _
         " Categorie: " & message.categories & _
         "</a><br>"
      ElseIf TypeOf message Is TaskItem Then
         a = a & "<a href=""outlook:" & message.EntryID & """>" & _
         "LIEN OUTLOOK From: " & message.Owner & _
         " Sujet: " & message.Subject & _
         " Date: " & message.DueDate & _
         " Categorie: " & message.categories & _
         "</a><br>"
      ElseIf TypeOf message Is ReportItem Then
         a = a & "<a href=""outlook:" & message.EntryID & """>" & _
         "LIEN OUTLOOK From: " & message.Owner & _
         " Sujet: " & message.Subject & _
         " Date: " & message.CreationTime & _
         " Categorie: " & message.categories & _
         "</a><br>"
      Else
         a = a & "ERREUR - Un item dans votre sélection n'est pas un message ou tâche - pas de lien<br>"
      End If
   coplie = a
 
End Function