PC按键精灵发送邮件的命令怎么用 [复制链接]

发送邮件，这个功能函数，通不过是不是因为，现在有安全认证，比如：126邮箱，输入账号密码后，还要当前安全手机提醒，再登录？

----------------------------------------------------以下为网络命令-发邮件----------------------------------------------------------------

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