VBA et lien htpertexte

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Renaud
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

Renaud

Guest
Bonjour,

Dans ma macro j'ai la ligne de code suivante
.Body = Range('B12').Value & Chr(13) & Chr(13) & Range('B13')

Avec un site internet en B12 et une adresse email en B13
Comment faire pour qu'Excel ne supprime pas les liens hypertextes quand il renvoie les valeurs des cellules B12 et B13

Merci

Renaud
 
Trier par date Trier par votes
Oui, c'est bien cela.

EN fait j'essaie d'insérer une signature avec mon mail et l'adresse du site internet. J'ai regardé tes exemples, ce sont des liens vers des fichiers.

j'aimerais juste que les liens hypertextes du mail et du site internet soit actifs chez le destinataire du mail.

Peux tu me donner un exemple?


Merci

renaud
 
Vote positif 0 Vote négatif
rebonjour Renaud

le principe reste le meme

Sub CreationMailEtLienHypertexte()
Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem
' necessite d'activer la reference microsoft outlook 10.0 object library
Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = 'forum@xld.fr'
.Subject = 'Le titre du message'
'exemple de contenu de la cellule A1 :https://www.excel-downloads.com/
'exemple de contenu de la cellule A2 :monMail@xld.fr
.Body = Range('A1') & vbLf & 'mailto:' & Range('A2')
.Display
.Save
.send
End With

Set OlItem = Nothing
Set OlApp = Nothing
End Sub


bon apres midi
MichelXld
 
Vote positif 0 Vote négatif
rebonjour Renaud

un autre exemple en utilisant la methode CDO


Code: 
Sub liensDansCorpsDuMessage_CDO()
'testé avec XP
'adapté de : [url]http://support.microsoft.com/default.aspx?kbid=286430[/url]
Dim iMsg As Object, iConf As Object
Dim strHTML As String

Set iMsg = CreateObject('CDO.Message')
Set iConf = CreateObject('CDO.Configuration')

'exemple de contenu de la cellule A1 :[URL]https://www.excel-downloads.com/[/URL]
'exemple de contenu de la cellule A2 :monMail@xld.fr
strHTML = ''
strHTML = strHTML & '<HEAD>'
strHTML = strHTML & '<BODY>'
strHTML = strHTML & 'Bonjour , <BR>vous trouverez ci joint les infos demandées<BR><BR>'
strHTML = strHTML & '<A href='' & Range('A1') & ''>' & Range('A1') & '</A>'

strHTML = strHTML & '<BR><BR>Cordialement<BR>' & Application.UserName & '<BR>'
strHTML = strHTML & '<A href=mailto:' & Range('A2') & '>' & Range('A2') & '</A>'
strHTML = strHTML & '</BODY>'
strHTML = strHTML & ''

With iMsg
Set .Configuration = iConf
.To = 'forum@xld.fr' 'renvoie une erreur si l'adresse est non valide
'.From = 'youralias@yourdomain.com'
.Subject = 'Test Envoi liens par mail'
.HTMLBody = strHTML
.Send
End With
End Sub


bonne soiree
MichelXld
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
Microsoft 365 Envoi via Excel avec OutlookNew
Réponses
4
Affichages
541
Titou37P
Titou37P
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
549
ph.vanne
ph.vanne
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
319
thunder23
thunder23
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
647
DJunqueira
D
S
  • Résolu(e)
Microsoft 365 utiliser des listes en VBA
Réponses
5
Affichages
459
Simon 1234
S
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
317
kiki29
kiki29
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
820
TooFatBoy
TooFatBoy
halecs93
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
811
halecs93
halecs93
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
545
spike29
S
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
434
spike29
S
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
401
eric72
E
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
713
Zonmé
Z
E
  • Question Question
Autres VBA - Erreur d'exécution '13'
Réponses
4
Affichages
493
Elisa47
E
richardlion
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
319
sylvanu
sylvanu
piga25
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
607
piga25
piga25
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
257
sebastien176
S
Eric 888
  • Résolu(e)
Microsoft 365 comment "ralentir" une macro
Réponses
9
Affichages
398
Eric 888
Eric 888
Staple1600
[Excel 365] Nouvelles formules (septembre 2024)
Réponses
0
Affichages
442
Staple1600
Staple1600
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
305
Staple1600
Staple1600
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
408
sylvanu
sylvanu
Retour