xml

Dim Session, Msg,LoginInfo

Set Msg = CreateObject("AntCom.AntMsg")

Set Session = CreateObject("AntCom.AntSyncSession")

Set LoginInfo = CreateObject("AntCom.AntLoginInfo")

Msg.Subject = "Start" ‘Message title

Msg.ContentType = "Text/Html" ‘Message in HTML format

Msg.Content = "<HTML><h1>hello</h1></HTML>" ‘Message content

Msg.AddReceiver "user”, "" ‘Message receiver, Repeat ‘AddReceiver for multiple receivers

LoginInfo.Server = "127.0.0.1" ‘BigAnt Server IP

LoginInfo.ServerPort = 6080 ‘BigAnt Server Port

LoginInfo.LoginName = "Admin" ‘Sender’s login name

LoginInfo.PassWord = "" ‘Sender’s Password

Session.Login LoginInfo ‘Login

Session.SendMsg Msg, 0 ‘Send message

posted on 2008-05-27 13:24 jinchun 阅读(208) 评论(0) 编辑收藏举报