encodage url

Question

Bonjour,

Je souhaite faire passer une url (qui permet d'envoyer un mail) par hyperlink.

Le problemme c'est que cette url contient des caracteres speciaux et je ne trouve pas leurs equivalent en vb.

J'ai reussis a trouver pour certains :

%3B : chr(58)
%3A : chr(59)
%40 : chr(64)

Mais je n'ai pas trouver pour :
%0D
%0A
ou les deux liés (?) %0D%0A

Si vous pouviez éclairer ma lanterne

NHenry · Answer

Bonjour

A titre d'info : %3B , 3B c'est le code Hexa du caractère :
0D : 13
0A : 10
 soit VbCrLf.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

PCPT · Answer

salut,
hexa?!

3B -> B = 1111+ 3*16 11 + 48 58 -> chr(58)
40 0+4*16 64 -> chr(64)
0D 13+0 chr(13)0A 10+0 chr(10)
les 2 ? chr(13)+chr(10) = vbcrlf ou vbnewline

@+
PCPT  [AFCK]

PCPT · Answer

woups on s'est croisé, salut NHenry ;)
ps : A 10, B 11    -> 3B = chr(59)

NHenry · Answer

Salut PCPT.

réponses complémentaires.

Bon appetit à tous.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

spyderco · Answer

Merci a vous deux pour vos reponses. Ca m'a bien aidé mais j'ai encore un probleme.

Voila l'url que je fait passr par hyperlink :

addbook:add'action=add?vcard=begin%3Avcard%0D%0Afn%3ADupond%20PIERRE%0D%0An%3APierre%3BDUPOND%0D%0Aorg%3ASociete%0D%0Aemail%3Binternet%3Adpierre%40adresse.fr%0D%0Ax-mozilla-html%3ATRUE%0D%0Aversion%3A2.1%0D%0Aend%3Avcard%0D%0A%0D%0A

Voila le code que j'utilise pour l'envoi d'email :

URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & msg
ActiveWorkbook.FollowHyperlink Address:=URLto

Le lien est contenu dans la variable msg

Le probleme c'est que le lien contenu dans le mail n'est pas complet, il est de cette forme :
addbook:add'action=add?vcard=begin

J'ai essayer dans remplacer l'encodage d'url par des chr() mais ca bloque jusqu'a Dupond

NHenry · Answer

Bonjour

Je suppose que tu code en VB6.

mStr : chaine URL avec les %
dim lStr as string
dim lInt as long
do while instr(mStr,"%")>0
    lStr=mid$(mStr,instr(mStr,"%"),3) 'On recup le premier % trouvé et les 2 caractères qui le suivent
    lInt=val("&h"+replace(lStr,"%","")'On les convertits en long
    mStr=replace(mStr,lStr,chr(lInt)) 'puis on les remplace
loop

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Encodage url

6 réponses

Discussions similaires