Code VBA

Résolu

Bonjour,

J'ai une macro qui fonctionne parfaitement bien pour envoyer un courriel avec Excel. J'aimerais intégrer un lien SharePoint d'un fichier Excel, mais je ne trouve pas comment inscrire le code.

Quelqu'un peut m'aider ?

Sub EnvoyerCourrielNouveauCandidat()
            
    Dim LeMail As Variant
    
      
    Set LeMail = CreateObject("Outlook.Application")

    With LeMail.CreateItem(olMailItem)
        .Subject = "Nouveau candidat ajouté"
        .BCC = Range("H1")
        .htmlbody = "Bonjour" & ",<br><br>" & _
                    "Un candidat a été ajouté :" & "<br><br>" & _
                        Worksheets("FORMULAIRES").Range("E6").Value & "<br><br>" & _
                    "Belle journée!"
                    
        .Display
    End With
    Range("E6").Select

End Sub

Merci beaucoup !

2 réponses

  1. Modérateur

    Bonjour,

    Un truc du genre ?

      .htmlbody = "Bonjour" & ",<br><br>" & _
                        "Un candidat a été ajouté :" & "<br><br>" & _
                            Worksheets("FORMULAIRES").Range("E6").Value & "<br><br>" & _
                        "<a href='url_de_ton_lien'>Titre de ton lien</a>" & "<br>" & _
                        "Belle journée!"
                        

    0
    1. Sérieusement ?! :D 

      Ça fait je ne sais pas combien de temps que je cherche. J'aurais du poser ma question ici tout de suite ! Ça fonctionne enfin !!! 

      Merci tellement !! :)

      0