|
 |
asp_cdo thread: sendig email , using unicode
Message #1 by ma_nikkhah@y... on Wed, 26 Sep 2001 07:01:08
|
|
Hi all
I'm a beginner's with CDONTS . i use following code to send an email. but
because i want to use unicode for sendig persian email , i use VBScript
function (you cold find the end of this email)and ie5 . but when i send an
email the recipient receives undetermind characters.
would you mind helping me with my problem ?
thanks alot
mehdi
-----aspcode-----
<% Option Explicit
Dim objEmail
Set objEmail = CreateObject("SMTPsvg.Mailer")
objEmail.From = request.Form("From")
objEmail.To = request.Form("To")
objEmail.Cc = request.Form("CC")
objEmail.Bcc = request.Form("BCC")
objEmail.Importance = request.Form("Importance")
objEmail.Subject = request.Form("Subject")
objEmail.Body = request.Form("Body")
objEmail.Send
Set objEmail = Nothing
Response.Write "<HTML><HEAD><TITLE>SendEmail</TITLE><BODY><CENTER><B>Messag
e Sent</B></CENTER></BODY></HTML>"
%>
-----vbscript funktion-------
sub parsTechKeyPress()
dim key
key=window.event.keyCode
if key>127 then exit sub
if (mode=1) then
select case chr(key)
case "H" : window.event.keyCode = 1570
case "h" : window.event.keyCode = 1575
case "f","F" : window.event.keyCode = 1576
case "j","J" : window.event.keyCode = 1578
case "e","E" : window.event.keyCode = 1579
case "[" : window.event.keyCode = 1580
case "]" : window.event.keyCode = 1670
case "p","P" : window.event.keyCode = 1581
case "o","O" : window.event.keyCode = 1582
case "n","N" : window.event.keyCode = 1583
case "b","B" : window.event.keyCode = 1584
case "v","V" : window.event.keyCode = 1585
case "c","C" : window.event.keyCode = 1586
case "\" : window.event.keyCode = 1688
case "s","S" : window.event.keyCode = 1587
case "a","A" : window.event.keyCode = 1588
case "w","W" : window.event.keyCode = 1589
case "q","Q" : window.event.keyCode = 1590
case "x","X" : window.event.keyCode = 1591
case "z","Z" : window.event.keyCode = 1592
case "u","U" : window.event.keyCode = 1593
case "y","Y" : window.event.keyCode = 1594
case "t","T" : window.event.keyCode = 1601
case "r","R" : window.event.keyCode = 1602
case ";" : window.event.keyCode = 1603
case "'" : window.event.keyCode = 1711
case "g","G" : window.event.keyCode = 1604
case "l","L" : window.event.keyCode = 1605
case "k" : window.event.keyCode = 1606
case "K" : window.event.keyCode = 0161
case "," : window.event.keyCode = 1608
case "i","I" : window.event.keyCode = 1607
case "d" : window.event.keyCode = 1610
case "D" : window.event.keyCode = 1609
case "m","M" : window.event.keyCode = 1574
case "`" : window.event.keyCode = 1662
end select
end if
window.event.returnValue=TRUE
end sub
Message #2 by Aaron Bull <aaronb@a...> on Wed, 26 Sep 2001 16:47:00 +1000
|
|
Why are you using this object ?
SMTPsvg.Mailer
-----Original Message-----
From: ma_nikkhah@y... [mailto:ma_nikkhah@y...]
Sent: Wednesday, 26 September 2001 5:01 PM
To: ASP CDO
Subject: [asp_cdo] sendig email , using unicode
Hi all
I'm a beginner's with CDONTS . i use following code to send an email. but
because i want to use unicode for sendig persian email , i use VBScript
function (you cold find the end of this email)and ie5 . but when i send an
email the recipient receives undetermind characters.
would you mind helping me with my problem ?
thanks alot
mehdi
-----aspcode-----
<% Option Explicit
Dim objEmail
Set objEmail = CreateObject("SMTPsvg.Mailer")
objEmail.From = request.Form("From")
objEmail.To = request.Form("To")
objEmail.Cc = request.Form("CC")
objEmail.Bcc = request.Form("BCC")
objEmail.Importance = request.Form("Importance") objEmail.Subject
request.Form("Subject") objEmail.Body = request.Form("Body") objEmail.Send
Set objEmail = Nothing
Response.Write "<HTML><HEAD><TITLE>SendEmail</TITLE><BODY><CENTER><B>Messag
e Sent</B></CENTER></BODY></HTML>"
%>
-----vbscript funktion-------
sub parsTechKeyPress()
dim key
key=window.event.keyCode
if key>127 then exit sub
if (mode=1) then
select case chr(key)
case "H" : window.event.keyCode = 1570
case "h" : window.event.keyCode = 1575
case "f","F" : window.event.keyCode = 1576
case "j","J" : window.event.keyCode = 1578
case "e","E" : window.event.keyCode = 1579
case "[" : window.event.keyCode = 1580
case "]" : window.event.keyCode = 1670
case "p","P" : window.event.keyCode = 1581
case "o","O" : window.event.keyCode = 1582
case "n","N" : window.event.keyCode = 1583
case "b","B" : window.event.keyCode = 1584
case "v","V" : window.event.keyCode = 1585
case "c","C" : window.event.keyCode = 1586
case "\" : window.event.keyCode = 1688
case "s","S" : window.event.keyCode = 1587
case "a","A" : window.event.keyCode = 1588
case "w","W" : window.event.keyCode = 1589
case "q","Q" : window.event.keyCode = 1590
case "x","X" : window.event.keyCode = 1591
case "z","Z" : window.event.keyCode = 1592
case "u","U" : window.event.keyCode = 1593
case "y","Y" : window.event.keyCode = 1594
case "t","T" : window.event.keyCode = 1601
case "r","R" : window.event.keyCode = 1602
case ";" : window.event.keyCode = 1603
case "'" : window.event.keyCode = 1711
case "g","G" : window.event.keyCode = 1604
case "l","L" : window.event.keyCode = 1605
case "k" : window.event.keyCode = 1606
case "K" : window.event.keyCode = 0161
case "," : window.event.keyCode = 1608
case "i","I" : window.event.keyCode = 1607
case "d" : window.event.keyCode = 1610
case "D" : window.event.keyCode = 1609
case "m","M" : window.event.keyCode = 1574
case "`" : window.event.keyCode = 1662
end select
end if
window.event.returnValue=TRUE
end sub
|
|
|
View Cart
