小编Aur*_*500的帖子

我无法使用脚本自动将电子邮件正文导出到文本文件中.我已经管理了一个脚本,将文本保存到宏上的文件中,但这不适用于我需要的规则.

我目前的代码如下:

Sub SaveAsTXT()
 Dim myItem As Outlook.Inspector
 Dim objItem As Object
 Dim myFolder As Folder



 Set myItem = Application.ActiveInspector
 If Not TypeName(myItem) = "Nothing" Then

        Set myNamespace = Application.GetNamespace("MAPI")
        Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

 Set objItem = myItem.CurrentItem
 strname = objItem.Subject
 strdate = Format(objItem.ReceivedTime, " yyyy mm dd")
 objItem.SaveAs "c:\users\philip\documents\" & strname & strdate & ".txt", olTXT
    End If

End Sub

抱歉,如果它看起来有点乱,我已经无数次编辑它试图让它工作.

当我在打开的电子邮件中并将其作为宏运行时,这是正确运行的代码,但是当我按照规则运行时它会无法正常运行我已经尝试过修改Sub SaveAsTXT(Item as Outlook.Mailitem)但这似乎也不起作用

所以基本上问题是如何确保代码在作为规则运行时选择电子邮件(在没有引号的情况下始终标题为"Rotas")？

信息:使用Office 2010,我不是一个非常好的编码器.