VBA ajouter pièce joint venant d'un sharepoint à un mail

Bonjour,

Comme l'indique le début de mon mail, je souhaiterais importer dans un mail une pièce jointe provenant d'un sharepoint. J'utilise simplement le .Attachements.Add "C:\******" quand le fichier est en local, mais lorsque le fichier est sur un sharepoint .Attachements.Add "https://******" cela ne marche pas.

Avez-vous une astuce ou une fonction pour ceci ?

Merci par avance ! :)

Bonjour Lucas9442

Il faut le télécharger temporairement en local et le joindre au mail, puis le supprimer en local

A+

Bonjour,

Merci pour votre retour.

Le problème étant que je ne parvient pas à scripter ce téléchargement temporaire :)

Savez-vous comment faire ?

Merci :D

Re,

En cherchant on trouve des codes ici et là

A essayer

Option Explicit

#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
  "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, ByVal dwReserved As Long, _
        ByVal lpfnCB As Long) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
  "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, ByVal dwReserved As Long, _
        ByVal lpfnCB As Long) As Long
#End If

Sub TelechargerFichierDeSharepoint()
    Dim CheminDestination As String
    Dim ValeurRetour As Long
    'l'adresse url du fichier sur Sharepoint
    Const URLSharePoint As String = "http://teams/Departement/Shared Documents/Reports/Dossier_test/fichier_test.pdf"
    'chemin et le nom de la destination
    CheminDestination = "C:\Mes Documents\Dossier Test\fichier_test.pdf"
    'lance le téléchargement
    ValeurRetour = URLDownloadToFile(0, URLSharePoint, CheminDestination, 0, 0)
End Sub