Bonjour,
Je possède une macro qui me permet d'envoyer un mail à chaque adhérent.
je voudrais mettre en fin de mail le texte suivant:
"inscrivez-vous" en noir sur fond jaune et qu'il soit cliquable afin d'envoyer les membre sur une page web.
merci pour votre aide.
Option Explicit
Sub RDB_Selection_Range_To_PDF_And_Create_Mail()
Dim FileName As String
Dim dlig As Long
Dim i As Long
Application.ScreenUpdating = False
FileName = ThisWorkbook.Path & "\Témoignage de Fabienne.pdf"
dlig = 81
For i = 1 To dlig
RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _
StrTo:=Feuil1.Range("A" & i).Value, _
StrCC:="", _
StrBCC:="", _
StrSubject:="Découvrez Le Secret de la Réussite Avec Une Merveille Enfin Dévoilée – Ne Passez Pas à Côté", _
Signature:=False, _
Send:=True, _
StrBody:="<H3><B>Bonjour</B></H3><br>" & _
"<body>Prenez quelques instants pour découvrir ce qui manque à tout le monde vous savez vraiment ce qu'il en retourne !" & _
"<br><br>" & "Bien cordialement</body>"
Next i
Application.ScreenUpdating = True
End Sub