请问AA的SendMail设定

dnaedit 发布于 3个月前 分类:AA

以下都想知道。

用AA自带的(知道服务器地址)具体如何设置。

用Outlook如何调用宏。

BTW:有AA相关书籍资料推荐么?

谢谢

2个回复

  • 胡小喜

    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

  • 书生

    天呐,太详细了,点赞

联系我们

在线咨询:点击这里给我发消息

邮件:kefu@51rpa.net

工作时间:周一至周五,9:30-18:30,节假日休息