Hi Victor,
Very good suggestions! Welcome to bytes.com. Have you used Jmail and VML before? Can you tell us a little about those technologies and what they are designed to do?
-Red
WML = Wireless Markup Language.It's use in development of WAP .All of wap browser support it . This is "Hello World",It is a subset of XML. You can see more information in
http://en.wikipedia.or g/wiki/Wireless_Markup _Language
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.or g/DTD/wml_1.1.xml">
<wml>
<card id="HELLO" title="HELLO">
Hello world!
</card>
</wml>
---------------------------------------------------------------------------------------------------------
Jmail:it's a server-side components for sending mail. if you use it in mobile wap develop you can see sample Demo.It's just easy but it contains all of process for WML+JMAIL using. Hope this one may help you to deal with your problems.````My english is not good ,so my replys may have some grammar mistakes. Smiling ``````
----------------------------------------------------------------------------------------------------------
1. down Jmail from http://tech.dimac.net/
-------------------------------------------------------------------------------------------------------------
2.send.asp
〈% @LANGUAGE="VBSC RIPT" CODEPAGE="65001 " %〉
〈%Response.Co ntentType = "text/vnd.wap.wml; charset=UTF-8"%〉
〈?xml version="1.0" encoding="utf-8"?〉
〈!DOCTY PE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.or g/DTD/wml_1.1.xml"〉
〈wml〉
〈card id="main" title="send mail"〉
〈p〉
〈%
user=request( "user")
pwd=request(" pwd")
%〉
Recipie nts:
〈input type="text" title="Recipien ts" name="tomail" size="12" maxlength="50"/〉〈br/〉
Title:
〈input type="text" title="Title" name="subject" size="12" maxlength="50"/〉
〈br/〉content:
〈input type="text" title="content" name="body" size="12" maxlength="250"/〉〈br/〉
〈do type="accept" label="send" optional="false "〉
〈go href="sendok.as p?user=〈%=user% 〉&pwd=〈%=pw d%〉" method="post" accept-charset="utf-8"〉
〈postfi eld name="from" value="$(from)"/〉
〈postfi eld name="tomail" value="$(tomail )"/〉
〈postfi eld name="subject" value="$(subjec t)"/〉
〈postfi eld name="body" value="$(body)"/〉〈/go〉
〈/do〉
〈/p〉
〈p〉
〈a href="main.asp? user=〈%=user%〉& pwd=〈%=pwd%〉"〉B ack /a〉〈/p〉
〈/card〉
〈/wml〉
----------------------------------------------------------------------------------------------------------
3.sendOK.asp
〈% @LANGUAGE="VBSC RIPT" CODEPAGE="65001 " %〉
〈%Response.Co ntentType = "text/vnd.wap.wml; charset=UTF-8"%〉
〈?xml version="1.0" encoding="utf-8"?〉
〈!DOCTY PE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.or g/DTD/wml_1.1.xml"〉
〈wml〉
〈card id="main" title="send Email"〉
〈p〉
〈%
user=request( "user")
pwd=request(" pwd")
tomail=reques t("tomail")
'from=request .form("from")
subject=reque st.form("subjec t")
body=request. form("body")
servermail=us er+"@hotmail.co m"
dim JMail
set JMail=server.Cr eateObject("Jma il.message")
JMail.Silent= true
JMail.C harset = "utf-8"
JMail.f rom =""&ServerMail& ""
JMail.AddReci pient tomail
JMail.S ubject =""&subject& ""
jmail.Body="" &body&"-body HOHO my emil:victorhuru i@hotmail.com--"
JMail.MailSer verUserName =user
JMail.MailSer verPassWord = pwd
JMail.MailDom ain = "www.hotmail.co m"
JMail.Priorit y=2
sendok=JMail. send("smtp.hotm ail.com")
Set JMail=nothing
if sendok then
response.writ e "send OK!〈a href='main.asp? user="&user&"&p wd="&pwd&"'〉BAC K〈/a〉"
else
response.writ e "send fail!〈a href='send.asp? user="&user&"&p wd="&pwd&"'〉BAC K〈/a〉"
end if
%〉
〈/p〉
〈/card〉
〈/wml〉
----------------------------------------------------------------------------------------------------------------
4 .email_list.asp
〈% @LANGUAGE="VBSC RIPT" CODEPAGE="65001 " %〉
〈%Response.Co ntentType = "text/vnd.wap.wml; charset=UTF-8"%〉
〈?xml version="1.0" encoding="utf-8"?〉
〈!DOCTY PE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.or g/DTD/wml_1.1.xml"〉
〈wml〉
〈card id="main" title="receive" 〉
〈p〉
〈%
user=request( "user")
pwd=request(" pwd")
dim perpage_num,cur page,totalpage
perpage _num=3 'set how many emails per page show
if request("page") ="" then
curpage =1 'now page
else
curpage=int(r equest("page"))
end if
Set pop3 = Server.CreateOb ject( "JMail.POP3 " )
pop3.co nnect user,pwd,"http://pop3.hotmail.co m"
' POP3 user,password,P OP3 address
if pop3.count mod perpage_num〈〉0 then
totalpage=int (pop3.count / perpage_num)+1
else
totalpage=int (pop3.count / perpage_num)
end if
Response.Writ e( "you have" & pop3.count & " emails。totalpag e "&totalpage &" page,current "&curpage&" page〈br/〉---------------------〈br/〉" )
if pop3.count 〉 0 then 'if no email then response NO EMAIL
if pop3.count〉=per page_num*curpag e then
for i=(curpage-1)*perpage_num to curpage*perpage _num-1%〉
〈a href="email_inf o.asp?id=〈%=i+1 %〉&user=〈%=user %〉&pwd=〈%=pwd%〉 &page=〈%=curpag e%〉"〉〈%=pop3.me ssages.item(i+1 ).Subject%〉--〈%=pop3.message s.item(i+1).dat e%〉〈/a〉〈br/〉
〈%next
%〉
〈%if curpage〉1 then%〉
〈a href="email_lis t.asp?page=〈%=c urpage-1%〉&user=〈%=use r%〉&pwd=〈%=pwd% 〉"〉PRE〈/a〉
〈%end if%〉
〈%if int(curpage)〈in t(totalpage) then%〉
〈a href="email_lis t.asp?page=〈%=c urpage+1%〉&user =〈%=user%〉&pwd= 〈%=pwd%〉" 〉NEXT〈/a〉
〈%end if%〉
〈%
else
for i=(curpage-1)*perpage_num to pop3.count-1%〉
〈a href="email_inf o.asp?id=〈%=i+1 %〉&user=〈%=user %〉&pwd=〈%=pwd%〉 &page=〈%=curpag e%〉"〉〈%=pop3.me ssages.item(i+1 ).Subject%〉--〈%=pop3.message s.item(i+1).dat e%〉〈/a〉〈br/〉
〈%next% 〉
〈%if curpage〉1 then%〉
〈a href="email_lis t.asp?page=〈%=c urpage-1%〉&user=〈%=use r%〉&pwd=〈%=pwd% 〉"〉PRE〈/a〉
〈%end if%〉
〈%if int(curpage)〈in t(totalpage) then%〉
〈a href="email_lis t.asp?page=〈%=c urpage+1%〉&user =〈%=user%〉&pwd= 〈%=pwd%〉" 〉NEXT〈/a〉
〈%end if%〉
〈%
end if
else
response.writ e("NO EMAIL!")
end if
pop3.Disconne ct
%〉
〈/p〉
〈p〉
〈a href="main.asp? user=〈%=user%〉& pwd=〈%=pwd%〉"〉B ACK〈/a〉
〈/p〉
〈/card〉
〈/wml〉
----------------------------------------------------------------------------------------------------------------
5.email_info.as p
〈% @LANGUAGE="VBSC RIPT" CODEPAGE="65001 " %〉
〈%Response.Co ntentType = "text/vnd.wap.wml; charset=UTF-8"%〉
〈?xml version="1.0" encoding="utf-8"?〉
〈!DOCTY PE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.or g/DTD/wml_1.1.xml"〉
〈wml〉
〈card id="main" title="view email"〉
〈p〉
〈%
user=request( "user")
pwd=request(" pwd")
id=request("i d")
page=request( "page")
Set pop3 = Server.CreateOb ject( "JMail.POP3 " )
' POP3 user,password,P OP3 address
pop3.co nnect user,pwd,"http://pop3.hotmail.co m"
Set msg = pop3.Messages.i tem(id)
ReTo = ""
ReCC = ""
Set Recipients = msg.Recipients
separat or = ", "
For i = 0 To Recipients.Coun t - 1
If i = Recipients.Coun t - 1 Then
separat or = ""
End If
Set re = Recipients.item (i)
If re.ReType = 0 Then
ReTo = ReTo & re.Name & re.EMail & separator
else
ReCC = ReTo & re.Name & re.EMail & separator
End If
Next
body=ms g.body
body=replace( body,"〈","")
body=replace( body,"〉","")
Set Attachments = msg.Attachments
%〉
〈a href="email_tit le.asp?user=〈%= user%〉&pwd=〈%=p wd%〉&page=〈%=pa ge%〉"〉BACK〈/a〉 〈a href="reply.asp ?user=〈%=user%〉 &pwd=〈%=pwd%〉&m ailto=〈%=msg.Fr om%〉"〉reply〈/a〉 〈a href="email_del .asp?user=〈%=us er%〉&pwd=〈%=pwd %〉&id=〈%=id%〉"〉 delete〈/a〉
〈/p〉
〈p〉
from:〈% = msg.FromName %〉--〈%=msg.date%〉〈b r/〉
title:〈 %= msg.Subject %〉〈br/〉
content :〈%= body %〉〈br/〉
〈%
if Attachments.Cou nt〉0 then
response.Writ e("It contain attachments!")
end if
pop3.Disconne ct
%〉
〈/p〉
〈p〉
〈a href="email_lis t.asp?user=〈%=u ser%〉&pwd=〈%=pw d%〉&page=〈%=pag e%〉"〉back〈/a〉 〈a href="reply.asp ?user=〈%=user%〉 &pwd=〈%=pwd%〉&m ailto=〈%=msg.Fr om%〉"〉reply〈/a〉 〈a href="email_del .asp?user=〈%=us er%〉&pwd=〈%=pwd %〉&id=〈%=id%〉"〉 delete〈/a〉
〈/p〉
〈/card〉
〈/wml〉
----------------------------------------------------------------------------------------------------------------
6. email_del.asp
〈% @LANGUAGE="VBSC RIPT" CODEPAGE="65001 " %〉
〈%Response.Co ntentType = "text/vnd.wap.wml; charset=UTF-8"%〉
〈?xml version="1.0" encoding="utf-8"?〉
〈!DOCTY PE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.or g/DTD/wml_1.1.xml"〉
〈wml〉
〈card id="main" title="delete OK"〉
〈p〉
〈%
user=request( "user")
pwd=request(" pwd")
id=request("i d")
Set pop3 = Server.CreateOb ject( "JMail.POP3 " )
pop3.co nnect user,pwd,"http://pop3.hotmail.co m"
pop3.deletesi nglemessage id
pop3.Disconne ct
Set JMail=nothing
response.writ e delok&"dele te OK!〈a href='email_lis t.asp?user="&us er&"&pwd="&pwd& "'〉BACK〈/a〉"
%〉
〈/p〉
〈/card〉
〈/wml〉
----------------------------------------------------------------------------------------------------------------
7.Reply.asp
〈% @LANGUAGE="VBSC RIPT" CODEPAGE="65001 " %〉
〈%Response.Co ntentType = "text/vnd.wap.wml; charset=UTF-8"%〉
〈?xml version="1.0" encoding="utf-8"?〉
〈!DOCTY PE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.or g/DTD/wml_1.1.xml"〉
〈wml〉
〈card id="main" title="Send"〉
〈p〉
〈%
user=request( "user")
pwd=request(" pwd")
tomail=reques t("mailto")
%〉
From:
〈%=tomail%〉〈b r/〉
Title:
〈input type="text" title="Title" name="subject" size="8" maxlength="50"/〉
〈br/〉Content:
〈input type="text" title="Content" name="body" size="8" maxlength="250"/〉〈br/〉
〈do type="accept" label="Send" optional="false "〉
〈go href="sendok.as p?user=〈%=user% 〉&pwd=〈%=pw d%〉&tomail=〈%=t omail%〉" method="post" accept-charset="utf-8"〉
〈postfi eld name="subject" value="$(subjec t)"/〉
〈postfi eld name="body" value="$(body)"/〉〈/go〉
〈/do〉
〈/p〉
〈p〉
〈a href="email_lis t.asp?user=〈%=u ser%〉&pwd=〈%=pw d%〉"〉Back〈/a〉〈br/〉
〈a href="main.asp? user=〈%=user%〉& pwd=〈%=pwd%〉"〉B ack〈/a〉〈/p〉
〈/card〉
〈/wml〉
----------------------------------Victo Hu, a mobile developer from China