请问AA的SendMail设定

AA自带的

1.主界面，工具->选项->邮件设置

2.设置邮件服务器和账号密码，这里用QQ邮箱举例，需要去QQ邮件中开启pop3/smtp功能，之后输入的密码是QQ邮箱提供的授权码

参考: https://service.mail.qq.com/cgi-bin/help?subtype=1&&no=1001256&&id=28

3.在任务中设置号发送人和接收人

利用Outlook

1.outlook配置好邮箱

2.excel vba中写发送邮件的代码

3.在任务中调用VBA。

 例如：

Sub Example()

‘简单调用示例，调用中各参数分别为：”收件人”,”抄送人”,”密送人”,”主题”,”正文”,”附件”。
SendEmail “zhangjianshu_cqu@126.com”, “”, “”, “jmail_free.rar”, “hi,how are you !”, “E:\jmail_free.rar”

End Sub

Sub SendEmail(To_Addr As String, Cc_Addr As String, Bcc_Addr As String, SubjectText As String, BodyText As String, AttachedObject As String)
Dim OutlookObj As Object
Dim OutlookNewMail As Object

‘创建Outlook对象
Set OutlookObj = CreateObject(“Outlook.Application”)
Set OutlookNewMail = OutlookObj.CreateItem(olMailItem)

‘错误异常处理
On Error GoTo SendEmail_Failed

With OutlookNewMail
.To = To_Addr ‘收件人地址
.cc = Cc_Addr ‘抄送人地址
.BCC = Bcc_Addr ‘密送人地址
.Subject = SubjectText ‘邮件主题
.Body = BodyText ‘邮件内容
.Attachments.Add AttachedObject ‘粘贴附件

‘.Send ‘若采用.Send方式发送邮件，则Outlook容易出现“有一个程序正试图以您的名义发送电子邮件”提示，比较招人讨厌。
‘若坚持采用此种方式发送邮件，又不想Outlook出现讨厌的提示，则需对Outlook进行如下设置：
‘”工具” -> “信任中心” -> “编程访问” -> 选择”从不向我发出可疑活动警告”
End With

‘以下是采用通过激活Outlook，然后模拟按键方式进行邮件发送
SendEmail_Sending: 
‘显示发送邮件窗口
OutlookNewMail.display

‘以下目的是留给系统充分的时间点击发送键
For j = 1 To 200
DoEvents
Next

‘点击邮件发送
SendKeys “%s”, Wait:=True
‘遗憾的是，这里无法显示服务器发送状态，只能返回Excel发送的结果
MsgBox “邮件已发送！”
Exit Sub

SendEmail_Failed:
MsgBox “发送失败，原因为：” & Err.Description
Exit Sub

End Sub

天呐，太详细了，点赞