CDO period stripping

I have problems with CDO

I does not matter if I use CDONTS or CDOSYS

CDOSYS
-----------------------------------------
Dim iMsg
Dim iConf
Dim Flds

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="c:\Inetpub\mailroot\pickup"
Flds.Update

With iMsg
Set .Configuration = iConf
.To = "someuser@somesite.com"
.From = "someuser@somesite.com"
.Subject = "Sample HTML message..."
.TextBody = "<A HREF=""HTTP://999.999.99.99/onetest.asp?File=someordinarasimple_normal.pdf&dfgdgdsf=dfgsfdgdsgfdggdsfgs""> fdshkf sdjkf hdskjfhjkdshf ksjdhf kfksd klgkdfgfjd gjfkldj gljfldjg lfdjglfjdglkd fgjdsf gljdgjfd</A>"
.HTMLBody = "<A HREF=""HTTP://999.999.99.99/onetest.asp?File=someordinarasimple_normal.pdf&dfgdgdsf=dfgsfdgdsgfdggdsfgs""> fdshkf sdjkf hdskjfhjkdshf ksjdhf kfksd klgkdfgfjd gjfkldj gljfldjg lfdjglfjdglkd fgjdsf gljdgjfd</A>"
.Send
End With



CDONTS
----------------------------------
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")

myMail.From = "someuser@somesite.com"
myMail.To = "someuser@somesite.com"
myMail.Subject = "TEST MAIL"
myMail.Body = "<A HREF=""HTTP://999.999.99.99/onetest.asp?File=someordinarasimple_normal.pdf&dfgdgdsf=dfgsfdgdsgfdggdsfgs""> fdshkf sdjkf hdskjfhjkdshf ksjdhf kfksd klgkdfgfjd gjfkldj gljfldjg lfdjglfjdglkd fgjdsf gljdgjfd</A>"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Send

Set myMail = Nothing


In either case the period in the File parameter is stripped by CDO so the link will be:

HTTP://999.999.99.99/onetest.asp?File=someordinarasimple_normalpdf&dfgdgdsf=dfgsfdgdsgfdggdsfgs

What to do???