Lien hypertexte de dossier dans mail généré par vba

[timon]

Bonsoir à tous,

Je suis en train de créer un fichier excel qui permet l'envoi d'un mail avec une pièce jointe. Cependant je doit intégrer dans le corp du mail un lien hypertexte vers un dossier du serveur et la j'ai beau avoir fait tous les forum et essayer un vingtaine de solution je bloque. Voici ce que j'ai fait principalement :

Sub envoimail()

Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim lien As String
Dim vPJ As String
vPJ = Sheets("A remplir").Range("U6")
lien = "T:\DECS_new\00_CDG\Fichier_Support\Bon_d'engagement_des_dépenses"

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

         With oBjMail
           .To = Sheets("A remplir").Range("U10").Value  ' le destinataire
           .Subject = "Bon engagement des dépenses à valider"          ' l'objet du mail
           .Body = "Bonjour, " & vbCr & "Veuillez trouver en pj le bon d'engement des dépenses à valider içi :" & vbCr & lien & vbCr & "Merci" 'le corps du mail ..son contenu
           .Attachments.Add vPJ
           .Send
        End With
End Sub

ou

Sub testmail()
Dim myApp
  Dim myItem
  Dim olMailItem
  
  On Error Resume Next
  Set myApp = GetObject(, "Outlook.Application")
  If Err.Number <> 0 Then
     Set myApp = CreateObject("Outlook.Application")
     Err.Clear
  End If
  
  Set myItem = myApp.CreateItem(olMailItem)
  myItem.Subject = "VALIDATION DE LA "
  myItem.Body = " Bonjour " & "Après vérification, veuillez vous rendre sur le fichier DA_index, " & _
  "et inscrire votre trigramme dans la colonne 'VALIDATION', sur la ligne appropriée." & vbCrLf & _
 "file:///\\chsrvexp01\export\DECS_new\pakistan.pdf"
  myItem.To = adrb
  myItem.Display
  'myItem.Send
End Sub

Sub CreationMailEtLienHypertexte()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem
    
    
    Set OlApp = New Outlook.Application
    Set OlItem = OlApp.CreateItem(olMailItem)
    
    With OlItem
        .To = "monti.julien@gmail.com"
        .Subject = "Le titre du message"
        .Body = "Découvrez Microsoft Office sur le site Developpez" & _
            vbLf & "file:///\\chsrvexp01\export\DECS new\00 CDG\Fichier Support\Bon d'engagement des dépenses" & vbLf & vbLf & _
            "Cordialement" & vbLf & "mailto:emetteur@mail.fr"
        .Display
        .Save
        .Send
    End With
    
    Set OlItem = Nothing
    Set OlApp = Nothing
End Sub

Je ne sais plus quoi essayer donc si quelqu'un à une idée ce serait Splendide !!


Merci d'avance à tout le monde

 

[camarchepas]

Re : Lien hypertexte de dossier dans mail généré par vba

Bonjour ,

L'adresse sera à modifier , mais avec cette syntaxe , et bien sur l'arborescence et le fichier existant , ça fonctionne.

Le truc est de border le lien avec < >

        .Body = "fICHIER TEST SUR BOX" & _
            vbLf & "<file:\\FREEBOX\Disque dur\Tests\verrou.txt>" & vbLf & vbLf & _
            "Cordialement" & vbLf & "mailto:emetteur@mail.fr"
        .Display

 

[timon]

Re : Lien hypertexte de dossier dans mail généré par vba

Bonjour,

Un GRAND GRAND MERCI à toi camarchepas, c'était si simple.....

c'est fou la joie procurée par une macro qui fonctionne !!!

Merci encore