Microsoft 365 MSG Outlook via VBA pb de lien et de signature

chris6999

XLDnaute Impliqué
Bonsoir

Il me reste 2 points à régler avant de finaliser mon projet et je peine un peu à trouver la solution :

Je génère un mail via EXCEL
Je souhaite mettre un lien dans mon message. Pour l'instant ce lien est en dur dans le code mais je souhaiterais faire référence à
la valeur d'une cellule nommée (Lien dans ma feuille BD).
Je précise que mon code étant une adaptation d'une macro récupérée sur les Forums, j'ai du mal à bien comprendre l'enchainement des <a ...

Mon code actuel est le suivant pour insérer le lien
Corps = Corps & "<p><a href=""file:https://www.excel-downloads.com/"">lien vers Excel download</a></p>"

Du coup j'ai essayé qq chose du genre
Corps = Corps & "<p><a href = Sheets("BD").range("LIEN_FORMULAIRE") >lien vers Excel download</a></p>"
…. ça ne passe pas.

Autre problématique c'est d'insérer le "cartouche signature" qui est enregistré dans ma boite OUTLOOK.
Il s'agit d'une IMAGE.
Comment la rattacher en automatique pour tous les messages générés?
J'ai lu un tas de fils sur le sujet mais impossible de trouver la solution approprié.

Merci d'avance pour votre aide
Bonne soirée à tous

Mon code au complet

'COURRIEL AVEC LIEN

Sub mail_avec_lien()

Dim Fichier As String
Dim MonOutlook As Object
Dim MonMessage As Object

Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.BodyFormat = 2
Corps = "<HTML><BODY>"
MonMessage.To = Sheets("BD").Range("DESTINATAIRE")
MonMessage.cc = ""
MonMessage.bcc = ""
MonMessage.Subject = Sheets("BD").Range("OBJET")

'corps du message-----------------------------------------

Corps = Corps & "<p>" & Sheets("BD").Range("BODY0")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY1")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY2")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY3")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY4")

'J'ai essayé
'Corps = Corps & "<p><a href = Sheets("BD").range("LIEN_FORMULAIRE") >lien vers Excel download</a></p>"
'mais cela ne fonctionne pas

'lien en dur
Corps = Corps & "<p><a href=""file:https://www.excel-downloads.com/"">lien vers Excel download</a></p>"


Corps = Corps & "</BODY></HTML>"
Corps = Corps & "<p>" & Sheets("BD").Range("BODY5")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY6")
Corps = Corps & "<p>" & Sheets("BD").Range("BODY7")

MonMessage.htmlbody = Corps
MonMessage.display

Set MonOutlook = Nothing


End Sub
 

Pièces jointes

  • Classeur test envoi mail depuis boite Outlook pré-identifiée.xlsm
    32.2 KB · Affichages: 1

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

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