VBA et lien htpertexte

Renaud · 15 Septembre 2005

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

MichelXld · 15 Septembre 2005

bonjour Philippe

tu ne donnes pas beaucoup d'infos dans ton post
en lisant le '.Body' j'ai interprété ( peut etre à tort ) que tu souhaites à envoyer un mail avec un lien hypertexte dans le corps du message

Lien supprimé

Lien supprimé

bon apres midi
MichelXld

Renaud · 15 Septembre 2005

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

MichelXld · 15 Septembre 2005

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

MichelXld · 15 Septembre 2005

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

Renaud · 15 Septembre 2005

Merci Michel,

J'ai cependant un petit problème
Body='mailto:' & Range('B23') & Chr(13)
Y a t il une ruse pour que 'mailto' n'apparaisse pas dans le corps du mail?

Merci et bonne soirée

Renaud

MichelXld · 16 Septembre 2005

bonjour

as tu essayé la methode CDO proposee dans le dernier message ?

bonne journée
MichelXld

Effectuez une recherche sur Excel Downloads...

VBA et lien htpertexte

Renaud

Guest

MichelXld

XLDnaute Barbatruc

Renaud

Guest

MichelXld

XLDnaute Barbatruc

MichelXld

XLDnaute Barbatruc

Renaud

Guest

MichelXld

XLDnaute Barbatruc

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums