problème avec accent et / sur CDO

Bonjour
je n'arrive pas a mettre de "/" dans le message "TextBody" a envoyer avec une adresse internet par exemple http://www.google.fr/test
avec ce code
Si vous avez une idée, merci d'avance

Code:

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
<%
 
'declaration variable formulaire'
z01 = " Nom : " & Request.Form("nom")
z02 = " Prenom : " & Request.Form("prenom")
z03 = " Email : " & Request.Form("zmail")
z04 = " Pays : " & Request.Form("pays")
z05 = " Objet : " & Request.Form("sujet")
z06 = " Message : " & Request.Form("message")
 
corps= z01 & vbCrLf & z02 & vbCrLf & z03 & vbCrLf & z04 & vbCrLf & z05 & vbCrLf & z06 
 
schema = "http://schemas.microsoft.com/cdo/configuration/"
 
Set msg = CreateObject("CDO.Message")
msg.Subject  = "le sujet de votre formulaire"
msg.From     = "l'adresse email d'envoi de ce formulaire"
msg.To       = "l'adresse qui receptionnera ce formulaire"
msg.TextBody = "This is some sample message text."
 
With msg.Configuration.Fields
  .Item(schema & "sendusing")      = 2
  .Item(schema & "smtpserver")     = "mailler21.lws-hosting.com"
  .Item(schema & "smtpserverport") = 26
  .Update
End With
 
msg.Send
%>