Forcer la couleur noir sur une adresse mail même après l'envoi
Bonjour à tous,
Pouvez-vous m'aider sur le sujet?
lorsque j'envoie un mail, les adresses mail qui y figurent passent automatiquement en bleu.
je souhaite que le texte reste en noir même après l'envoi.
Avez-vous une technique ?
Sub Envoi()
Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem
Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)
With olItem
.To = "xxxxxxx@xxxxx.xx"
.Subject = "Test"
.BodyFormat = olFormatHTML
.HTMLBody = "<u>mot</u> lemail_a_garder_en_noir@gmail.com.<p>"
.Display
End With
End SubEdit : merci de mettre le code entre balises avec le bouton </>
Bonjour KensyStyle,
Ce n'est pas ce code qui fait que l'écriture se transforme
Il faut utiliser l'enregistreur de macro pour :
- supprimer le lien hypertexte de la cellule
- mettre la couleur en noir
- mettre la bonne police et la bonne taille
Ensuite il suffit de modifier un peu le code
@+
Bonjour à tous,
Je modifie mon code et je reformule.
J’ai modifié de façon à paramétrer mon texte, pour qu’il s’affiche en noir dans le mail.
Je l’ai inséré dans une constante (nommée « style_texte »), de façon à avoir un code lisible.
Le texte s’affiche bien en noire avant l’envoi du mail :
Mais après l’envoi du mail, le mail passe au bleu en lien hypertexte.
j’arrive pourtant à le faire mais dans ma signature automatique qui est déjà préenregistrée :
vous trouverez mon fichier en pièce jointe pour une meilleure compréhension.
Bonjour,
Dans ce cas, il faut désactiver la correction automatique d'Outlook qui fait son taf, transformer les adresse mail
