'使用这个测试例子之前，将 Amserver设置为你的服务器，Sender设置为你的发送人及相应的密码更改。Receive改成你的消息接受者

    Dim obj, Msg,prot
    Dim Amserver,Sender,Sender_password,Receive

'组件生效   
    Set obj = CreateObject("ASIM.IM")
    Set Msg = CreateObject("ASIM.Msg")

'设置服务器，发送者，接受者等信息，AMserver的Ip 地址根据自己部署情况输入
    Amserver="192.168.0.1"
    Sender="whx"
    Sender_password="123"
    Receive="jzx_user1"

'设置消息的相关内容，AM8的端口默认是 5011 ，测试根据自己的情况输入 port 参数
    Msg.ContentType = "Text/Text"
    Msg.Subject = "Start test obj"
    Msg.Body = "This is a test messenger"
    obj.port=5011
    obj.Init Amserver, Sender, Sender_password

'消息发送
    obj.SendMsgEx Msg, Receive