Intégrer pièces jointes SHAREPOINT en PDF dans mail OUTLOOK
Bonjour,
Je dispose d'un fichier Excel qui fonctionne sous VBA qui me permet de générer un mail tout prêt via Outlook en y intégrant des pièces jointes.
Celui-ci fonctionne parfaitement car les pièces jointes sont situées sur mon bureau.
Or, pour des soucis d'organisation interne, je dois faire un lien vers des pièces jointes se situant sur un SharePoint. Il conviendrait donc de rajouter un code permettant de convertir temporairement mon lien SharePoint en pièce jointe PDF qui serait supprimé une fois le mail envoyé. Après moultes essais je ne parviens pas à obtenir ce que je souhaite.
Auriez-vous une idée ?
Voici mon code actuel :
'Préparation du mail d'accueil à envoyer au client
Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
On Error GoTo EnvoyerEmailErreur
'définition des variables
Dim oOutlook As Outlook.Application
Dim oMailItem As Outlook.MailItem
Dim Body As Variant
Body = ContenuEmail
'vérification si le Contenu du mail n'est pas vide. Si oui, email n'est pas envoyé.
If (Body = False) Then
MsgBox "Mail non envoyé car vide", vbOKOnly, "Message"
Exit Sub
End If
'préparer Outlook
PreparerOutlook oOutlook
Set oMailItem = oOutlook.CreateItem(0)
'création de l'email
With oMailItem
.To = Destinataire
.Subject = Sujet
'email formaté comme HTML
.BodyFormat = olFormatHTML
.HTMLBody = "<html><p>" & Body & "</p></html>"
'----------------------
If PieceJointe <> "" Then .Attachments.Add "https:// LIEN SHAREPOINT 1"
.Attachments.Add "https:// LIEN SHAREPOINT 2"
.Attachments.Add "https:// LIEN SHAREPOINT 3"
.Attachments.Add "https:// LIEN SHAREPOINT 4"
.Attachments.Add "https:// LIEN SHAREPOINT 5"
.Attachments.Add "https:// LIEN SHAREPOINT 6"
.Display '<- affiche l'email
.Save '<- sauvegarde l'email avant l'envoi
End With
'nettoyage...
If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
Exit Sub
EnvoyerEmailErreur:
If (Not (oMailItem Is Nothing)) Then Set oMailItem = Nothing
If (Not (oOutlook Is Nothing)) Then Set oOutlook = Nothing
MsgBox "Le mail n'a pas pu être envoyé...", vbCritical, "Erreur"
End Sub
Private Sub PreparerOutlook(ByRef oOutlook As Object)
'------------------------------------------------------------------------------------------------
'Ce code vérifie si Outlook est prêt à envoyer des emails... Et s'il ne l'est pas, il le prépare.
'------------------------------------------------------------------------------------------------
On Error Resume Next
'vérification si Outlook est ouvert
Set oOutlook = GetObject(, "Outlook.Application")
If (Err.Number <> 0) Then 'si Outlook n'est pas ouvert, une instance est ouverte
Err.Clear
Set oOutlook = CreateObject("Outlook.Application")
If (Err.Number <> 0) Then
MsgBox "Une erreur est survenue lors de l'ouverture de Outlook..."
Exit Sub
Else
End If
Else 'si Outlook est ouvert, l'instance existante est utilisée
End If
End Sub
Un grand merci par avance,