|
| 圖示(當任務到達，可以通過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.www.stwyy.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.www.stwyy.cn' target=_blank>點擊這里查看詳細信息</a>"
|
|
strBody = strBody&"</BODY></HTML>"
|
|
Msg.Body = strBody '設置消息內容
|
|
im.SendMsgEx Msg,"Worker1" '發送消息
|
|
set Msg = nothing
|
|
set im = nothing
|
聯系我們
網站地圖
解決方案
大用戶數試用申請
論壇
博客
