调整VB脚本以编程方式创建由电子邮件触发的文件夹

|| 这是我第一次向所有人提出问题。我是一名SQL开发人员,对于VB来说非常环保。 我为我的部门Quickbase管理一个在线数据库,并且通过此网站我们可以管理报告申请。我为每个人创建一个票证,该票证会创建一封电子邮件,通知开发人员。负责这项工作。我们为收到的每个请求设置了文件夹,手动创建所述文件夹非常费力且令人沮丧。 于是我问了一下,环顾四周,遇到了一个脚本,该脚本可以完成我所需要的,或者被告知。但是,我不确定如何根据自己的需要对其进行自定义,也无法正确实施。这是我需要您帮助的地方,SO的编程专家,请帮助我杀死这条巨龙,所有领域的财富将归您所有!
Outlook VBA 

Sub MakeFile(MyMail As MailItem)
    myMailEntryID = MyMail.EntryID
    Set outlookNameSpace = Application.GetNamespace(“MAPI”)
    Set outlookMail = outlookNameSpace.GetItemFromID(myMailEntryID)
    MyArgument = OutlookMail.Subject
    Dim sMyCommand = “c:\\makefile.bet ” & MyArgument
    Shell “cmd /c ” & sMyCommand, vbHide
End Sub
Makefile.bat
@echo off
cls
mkdir %1
该网站的网址是:www.quickbase.com 根文件夹路径:h:/// ntsp / data / reports-条件/ quickbase docs / [要创建的文件夹] *风险不是金钱,而是善良和完整的感觉只有通过帮助一个书呆子才能获得,哦,这使电子货币增长了强大而强大!     
已邀请:
作为一个书呆子,我将帮助您朝着正确的方向开始。我认为我们仅凭VBA就可以实现您想要的,而无需使用shell。 首先,我们需要挂钩一个事件,该何时发生。我想那是您的收件箱收到电子邮件的时间。如果我是对的,这就是开始。 请了解2件重要的事情。 这仅适用于进入收件箱的物品。因此,如果您已有规则将项目移动到另一个文件夹,则该规则将无效。 您需要对收到的电子邮件进行“测试”,我的示例显示了对该主题的测试。只有在主题包含“我的测试”的情况下,它才会调用您的特殊例程。 要在Visual Basic编辑器中输入代码: 在工具菜单上,指向宏,然后单击Visual Basic编辑器。 在项目窗格中,单击以展开文件夹,然后双击ThisOutlookSession图标。 将以下代码键入或粘贴到“代码”窗口中。
Dim WithEvents objInboxItems As Outlook.Items


\' Run this code to start your rule.
Sub StartRule()
   Dim objNameSpace As Outlook.NameSpace
   Dim objInboxFolder As Outlook.MAPIFolder

   Set objNameSpace = Application.Session
   Set objInboxFolder = objNameSpace.GetDefaultFolder(olFolderInbox)
   Set objInboxItems = objInboxFolder.Items

End Sub

\' Run this code to stop your rule.
Sub StopRule()
   Set objInboxItems = Nothing
End Sub

\' This code is the actual rule.
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
   If Item.Subject = \"My Test\" Then
      Call checkForFolder
   End If
End Sub

Private Sub checkForFolder()



End Sub
在“文件”菜单上,单击“保存VbaProject.OTM”。 现在,您可以运行StartRule和StopRule宏来打开和关闭规则。 退出Visual Basic编辑器。 (您可能需要启动和停止Outlook才能将变量获取到\“ Hook \”。 一旦您理解并理解了该功能,就可以卸下电源开关。 然后,您必须确定制作新文件夹的测试,以便我们可以测试电子邮件并将其与现有文件夹进行比较,然后制作一个新文件夹。     

要回复问题请先登录注册