Modifier un lien dans un Email

**revemane** · 18/03/2011, 16h57

bonjour

dans le code suivant:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Sub EnvoiMassif()
'Ajouter les références suivantes :
'Microsoft Outlook
'Microsoft DAO
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim strContenu As String
Dim oRst As DAO.Recordset
Dim oFld As DAO.Field
Dim strTo As String
'Instancie Outlook
Set oApp = CreateObject("Outlook.Application")
'Crée un nouveau message
Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Bonjour," & vbCrLf & _
             "Venez retrouver l'ensemble de nos produits sur notre site Web" & _
             vbCrLf & "http://www.notresite.fr"

'Ouvre un recordset sur les clients
Set oRst = CurrentDb.OpenRecordset("SELECT * FROM Clients")
'Boucle sur chaque client et les ajoute au champ BCC du mail
While Not oRst.EOF
  strTo = strTo & oRst.Fields("ChampEmailClient") & "; "
  oRst.MoveNext
Wend
'Supprime la dernière virgule
oMail.BCC = Left(strTo, Len(strTo) - 2)
oMail.Subject = "NewsLetter " & Date
'Envoi le mail
oMail.Send
'ferme le curseur
oRst.Close
Set oRst = Nothing
'Ferme Outlook
oApp.Quit
Set oApp = Nothing
End Sub

j'ai mis en rouge ce que je souhaite modifier et je ne trouve pas
voila comme indiqué dans le code, le liens apparait dans le corp de mon message
mon probleme est le suivant: je souhaite mettre un lien vers un server cad

adresse du style : "\\monserver\repertoire
mais quand j'ecrit cela a la place de l'adresse http il n'apparait pas sous forme de lien dans le corp de mon message

comment faire pour en faire un lien

merci d'avance

**Thierry_PALLIER** · 18/03/2011, 18h40

Bonjour
De cette façon, je n'y suis pas arrivé non plus.Alors , 2 solutions
- la plus pratique et facile c'est mettre ton lien dans ta signature
- mettre ton body en html (.HTMLBody)
A+