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

timon

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

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

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

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

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

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

Discussions similaires

Réponses
11
Affichages
160

Statistiques des forums

Discussions
286 422
Messages
1 876 103
Membres
160 161
dernier inscrit
bibicaramia
Haut Bas