|
| 图示(当任务到达，可以通过am向任务相关人员进行提醒) |
 |
|
| 参考代码 |
|
|
set im = CreateObject("ASIM.IM") '创建控件对象
|
|
set Msg = CreateObject("ASIM.Msg") '创建消息对象
|
|
im.Init "www.activesoft.cn","APM","123456" '初始化服务器，并设置发送人的登录名和密码
|
|
Msg.ContentType = "Text/Html" '设置消息文本格式
|
|
strBody="<HTML><BODY bgColor='#ffffff' style='font-family:Verdana,新宋体;font-size: 12px;'>"
|
|
strBody = strBody&"任务：AM操作说明编写 <font color="red">需要您执行</font>"
|
|
strBody = strBody&"<hr size='1' style='color: 52658C;'>"
|
|
strBody = strBody&"详细信息<ul>"
|
|
strBody = strBody&"<li>名称： <a href='http:www.activesoft.com.cn' target='_blank'>AM操作说明编写</a></li>"
|
|
strBody = strBody&"<li>负责人：Worker1</li>"
|
|
strBody = strBody&"<li>审核人：Team Leader</li>"
|
|
strBody = strBody&"<li>创建人：Manager</li>"
|
|
strBody = strBody&"<li>创建时间：2005-3-22 14:11:31</li></ul>"
|
|
strBody = strBody&"<a href='http:www.activesoft.com.cn' target=_blank>点击这里查看详细信息</a>"
|
|
strBody = strBody&"</BODY></HTML>"
|
|
Msg.Body = strBody '设置消息内容
|
|
im.SendMsgEx Msg,"Worker1" '发送消息
|
|
set Msg = nothing
|
|
set im = nothing
|
|
| 
|
在线交流
解决方案
大用户数试用申请
问题解答
去论坛看看
