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