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
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。