按键精灵怎么发邮件

1.qq邮箱不能用了，用163的邮箱发

直接贴代码：

Function 发送邮件(你的邮箱帐号, 你的邮箱密码, 发送邮件地址, 邮件主题, 邮件内容, 邮件附件)
    //例子：MsgBox lib.网络.发送邮件("ceshi0000001@163.com","ceshi000001","ceshi0000001@163.com","邮件主题","邮件内容","")
    Dim You_ID,MS_Space,Email
    '帐号和服务器分离
    You_ID = Split(你的邮箱帐号, "@")
    '这个是必须要的，不过可以放心的事，不会通过微软发送邮件
    MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
    Set Email = CreateObject("CDO.Message")
    '这个一定要和发送邮件的帐号一样
    Email.From = 你的邮箱帐号
    'Execute "Email.to = 发送邮件地址"
    Email.CC = 发送邮件地址
    Email.Subject = 邮件主题
    Email.Textbody = 邮件内容
    If 邮件附件 <> "" Then
        Email.AddAttachment 邮件附件
    End If
    With Email.Configuration.Fields
        '发信端口
        .Item(MS_Space & "sendusing") = 2
        'SMTP服务器地址
        .Item(MS_Space & "smtpserver") = "smtp." & You_ID(1)
        'SMTP服务器端口
        .Item(MS_Space & "smtpserverport") = 25
        .Item(MS_Space & "smtpauthenticate") = 1
        .Item(MS_Space & "sendusername") = You_ID(0)
        .Item(MS_Space & "sendpassword") = 你的邮箱密码  
        .Update
    End With
    '发送邮件
    Email.Send
    '关闭组件
    Set Email = Nothing
    发送邮件 = True
    '如果没有任何错误信息，则表示发送成功,否则发送失败
    If Err Then
        Err.Clear
        发送邮件 = False
    End If
End Function
//单个文件压缩
iZip = Plugin.SysEx.ZipFile("C:\按键精灵脚本\测试截图", "C:\按键精灵脚本\测试截图.rar")
Delay 5000
Call 发送邮件("xxxx@163.com", "xxxx", "xxx@xxx.com", "测试", "测试截图", "C:\按键精灵脚本\测试截图.rar")
'Call Plugin.File.DeleteFile("C:\按键精灵脚本\测试截图.rar")
'Msgbox "删除目标文件"