Question

我想自动将收到的任何电子邮件的内容导出到文本文件中。如果该文本文件中已有文本，则新文本应覆盖它。

可以在收到电子邮件时运行此脚本。

例如：
我收到一封电子邮件，上面写着＃34;生日快乐＆＃34;。

文字＆＃34;生日快乐＆＃34;应该保存到＆＃34; incomingEmail.txt＆＃34;

Sub extractDataAsString(item As Outlook.MailItem)
    Dim olItem As Outlook.MailItem
    Dim sText As String

    Set olItem = ActiveExplorer.Selection.item(1)
    sText = olItem.Body

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim Fileout As Object
    Set Fileout = fso.CreateTextFile("K:\Project\Python\incomingEmail.txt", True, True)
    Fileout.Write sText
    Fileout.Close

End Sub

上面的代码将当前选定的电子邮件正文导出到文本文件中。我想将新电子邮件的正文导出到文本文件。

我认为这是因为这一行：

Set olItem = ActiveExplorer.Selection.item(1)

但是，我无法找到如何选择最新的电子邮件。

Answer 1

触发运行脚本代码的项目将传递给代码。没有必要再找到它。

Sub RunAScript_code(item As Outlook.MailItem)

    MsgBox "The item that triggered this code is: " & item.subject

End Sub

识别触发在规则中运行脚本代码的项目

1 个答案: