我希望能实现这样一个功能:如果一封电子邮件的主题行中包含电话号码(即10个数字),则系统会自动将其移动到名为“Texting”的文件夹中。
用户Reidacus在此处提出了一个非常相似的问题: 使用正则表达式将传入的邮件移动到文件夹 但是我无法让它对我起作用。当电子邮件进入时,它只是停留在我的收件箱中。我非常新于VBA并且(抱歉),我不知道我在做什么。我需要在系统中安装任何特殊的内容才能使其正常工作吗?
以下是我改编的代码(请注意:在真实代码中,我有真实的电子邮件地址)。
用户Reidacus在此处提出了一个非常相似的问题: 使用正则表达式将传入的邮件移动到文件夹 但是我无法让它对我起作用。当电子邮件进入时,它只是停留在我的收件箱中。我非常新于VBA并且(抱歉),我不知道我在做什么。我需要在系统中安装任何特殊的内容才能使其正常工作吗?
以下是我改编的代码(请注意:在真实代码中,我有真实的电子邮件地址)。
Sub filter(Item As Outlook.MailItem)
Dim ns As Outlook.NameSpace
Dim MailDest As Outlook.Folder
Set ns = Application.GetNamespace("MAPI")
Set Reg1 = CreateObject("VBScript.RegExp")
Reg1.Global = True
Reg1.Pattern = "([\d][\d][\d][\d][\d][\d][\d][\d][\d][\d])"
If Reg1.Test(Item.Subject) Then
Set MailDest = ns.Folders("firstname.lastname@email.ca").Folders("Inbox").Folders("Texting")
Item.Move MailDest
End If
End Sub
MsgBox
以确保脚本被调用了吗? - YowE3K