谁有WEBEASYMAIL二次开发经验？

parabird · 发表于 2004-9-24 01:20:28

阿

电脑报 · 发表于 2004-9-24 13:26:29

我没有，相信也不多

电脑报 · 发表于 2004-10-10 22:08:20

看样子好像不错，虽然我不是很懂～

甘哥 · 发表于 2004-10-10 23:07:42

<html> 
<head> 
<title>Untitled Document</title> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
</head> 
 
<body bgcolor="#FFFFFF"> 
1<% 
Set easymail = Application("em") 
 
count=easymail.GetUsersCount() 
%> 
<table width="80%" border="1" cellspacing="0" cellpadding="0" align="center"> <tr> <td> <div align="center">编号</div> </td> <td> <div align="center">email</div> </td> <td> <div align="center">姓名</div> </td> <td> <div align="center">部门</div> </td> </tr> <% 
for i=0 to count-1 
easymail.GetUserByIndex i, outname, outdomain, outcomment 
 
Set fs = Server.CreateObject("Scripting.FileSystemObject") 
path=Server.MapPath("../")&"\mail\"&outname&"\MoreInfo.ini" 
'response.write path&" " 
Set f = fs.OpenTextFile(path,1) 
 
f.SkipLine 
f.SkipLine 
f.SkipLine 
f.SkipLine 
f.SkipLine 
f.SkipLine 
f.SkipLine 
 
if not f.AtEndOfStream then 
f.Skip(8) 
name=Trim(f.ReadLine) 
else 
name="" 
end if 
 
'f.SkipLine 
 
if not f.AtEndOfStream then 
f.Skip(7) 
dep=Trim(f.ReadLine) 
else 
 
dep="" 
end if 
%> <tr> <td> <div align="center"><%=i%></div> </td> <td><%=outname&"@"&outdomain%></td> <td> <div align="center"><%=name%></div> </td> <td> <div align="center"><%=dep%></div> </td> </tr> <% 
 
f.close 
set f=nothing 
set fs=nothing 
next 
%> 
</table> 
<% 
Set easymail = nothing 
%> 
</body> 
</html>

甘哥 · 发表于 2004-10-7 23:20:22

我在测试的时候做过一个asp,调用它的sdk中的对象，显示所有用户、email地址及注册信息。

电脑报 · 发表于 2004-10-9 18:33:32

楼上的大侠，是否能有机会看到你二次开发的经验成果？

甘哥 · 发表于 2004-10-10 19:29:56

好象有个对象可以列出可以列出用户名。 
每个用户名都是mail目录下的目录，用fso打开用户目录下的moreinfo文件读去用户信息。再next。

电脑报 · 发表于 2004-10-14 11:34:07

谢谢楼上的兄弟分享 
我收下了

		自动登录	找回密码
密码			会员注册

谁有WEBEASYMAIL二次开发经验？

re:我没有，相信也不多

re:看样子好像不错，虽然我不是很懂～

re:

re:我在测试的时候做过一个asp,调用它的s...

re:楼上的大侠，是否能有机会看到你二次开发的...

re:好象有个对象可以列出可以列出用户名。...

re:谢谢楼上的兄弟分享我收下了

浏览过的版块