creer un lien hypertexte dans un mail

**Tierisa** · 27/08/2010, 12h55

Bonjour
j'ai créé un bouton qui envoie un mail contenant des fichiers.snp. Certains des destinataires de ce mail ne possèdent pas access et je veux leur mettre le lien dans le corps du message pour récupérer snapshot viewer.

voici un bout du code pour le corps du message:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.Body = "Bonjour, " & Chr(10) & "Ci-joint les fiches des essais MGR et les valeurs Excel" & Chr(10) & "Cordialement "

Je souhaiterais rajouter en dessous une ligne du style " cliquer ici pour telecharger le logiciel" avec l'adresse "http://www.microsoft.com/downloads/details.aspx?FamilyID=b73df33f-6d74-423d-8274-8b7e6313edfb&displaylang=fr" qui se cache derriere le mot "ici".
je n'arrive pas à trouver dans le forum comment creer le lien hypertexte dans outlook. Merci d'avance

**argyronet** · 27/08/2010, 14h12

Bonjour,

Si MonMessage est un objet mailItem... alors il faut lui affecter à sa propriété BodyFormat la valeur olFormatHTML.

Tu écris (donc transposes) ton message en HTML et de là, tu pourras poser un tag

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<a href="#"></a>

Argy

**Tierisa** · 27/08/2010, 14h26

merci pour ta reponse mais je ne connais pas bien le langage html. Pour m'aider un peu plus comment ecrirais-tu ce que j'ai mis plus haut dans le code afin de voir plus clair. merci

Au cas où, mon code complet est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim MonOutlook As Object
Dim MonMessage As Object
 
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
 
MonMessage.Subject = "Données MGR"
MonMessage.Body = "Bonjour, " & Chr(10) & "Ci-joint les fiches des essais MGR et les valeurs Excel" & Chr(10) & "Cordialement " 
 
MonMessage.Display "true"
Set MonOutlook = Nothing

**vodiem** · 27/08/2010, 14h39

salut argyronet et Tierisa,

tiens, je t'ai trouvé rapidement deux liens qui t'aideront:
envoi html et balise <a>
y a beaucoup de baratin mais y a ce qui faut...

bonne continuation.

**Tierisa** · 27/08/2010, 14h42

merci je vais regarder ça

**Tierisa** · 27/08/2010, 15h38

je suis desolé mais je patauge un peu pour transcoder ce que j'ai mis plus haut. J'ai bien compris comment utiliser a mais je ne sais pas comment integrer cela dans mon code et ce qu'il faut changer. un petit peu d'aide suplémentaire?

**Tierisa** · 27/08/2010, 16h09

j'ai progressé. voila ce que j'ai mis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim MonOutlook As Object
Dim MonMessage As Outlook.MailItem
 
Dim strHTML As String
 
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
MonMessage.BodyFormat = olFormatHTML
 
lien = "http://www.microsoft.com/downloads/details.aspx?FamilyID=b73df33f-6d74-423d-8274-8b7e6313edfb&displaylang=fr"
strHTML = "<A HREF=" & lien & "> Snapshot viewer</A>"
MonMessage.HTMLBody = strHTML
 
MonMessage.Display "true"
Set MonOutlook = Nothing

j'ai bien "snapshot wiever" qui apparait en bleu souligné, le message est bien au format html mais par contre je n'ai pas de lien, c'est à dire que la main n'apparait pas, c'est comme du texte que je peux modifier d'ailleurs

**Tierisa** · 27/08/2010, 16h17

C'est bon ça marche, erreur de ma part. Merci

**vodiem** · 27/08/2010, 16h39

bravo

puisque t'es pas familiarisé avec le html:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
strHTML = "<html>" & vbCrLf & _
            "<body>" & vbCrLf & _
            "Bonjour<br>" & vbCrLf & _
            "Ci-joint les fiches des essais MGR et les valeurs Excel " & _
            "<a href='http://www.microsoft.com/downloads/details.aspx?FamilyID=b73df33f-6d74-423d-8274-8b7e6313edfb&displaylang=fr'>ici</a><br>" & vbCrLf & _
            "Cordialement" & vbCrLf & _
            "</body>" & vbCrLf & _
            "</html>"

creer un lien hypertexte dans un mail [AC-2000]

VBA Access

Discussions similaires

Partager

Partager