我如何使用vbs回复电子邮件

Question

我正在尝试通过 Outlook.application 对象获取邮件项目，并通过特定主题命名规则回复电子邮件。现在我可以获取 mailitem，按主题过滤邮件。如何将下一步移动到 reply 电子邮件？谢谢

到目前为止，Belo 是我的代码：

Set objOutlook = CreateObject("Outlook.Application")
Set MailItem = objOutlook.Session.Folders("XXX@XXX.com")
For Each eMail in MailItem.Items
    If InStr(1,Trim(eMail.Subject),"Production",vbTextCompare) > 0 then
    wscript.echo "This is needed email, need to reply"
    End If
Next

Answer 1

对于wscript的使用，您可以修改在中找到的示例

您将电子邮件拉入邮件项目循环

用这个代替 wscript.echo 行

Set olReply = eMail.ReplyAll
olReply.HTMLBody = "Hello, Thank you. " & vbCrLf & olReply.HTMLBody
olReply.Display
olReply.Send

我如何使用vbs回复电子邮件

How can I reply email using vbs

vbscript

outlook