Vba Outlook:根据签名发送的计数

我们从共享outlook地址发送电子邮件 现在我想知道我每天回复多少封电子邮件，因为我的老板想给我更多的工作，但我想知道在我同意接受更多工作之前，我是如何与我的同事进行比较的

想知道是否有可能计算我们每天发送多少封电子邮件，然后根据我们的签名进行过滤

---

谢谢

最好、最简单的方法是处理用户通过检查器（在检查器关闭之前，但在用户单击“发送”按钮之后）发送Microsoft Outlook项目时触发的事件，或者在程序中使用Outlook项目（如MailItem）的发送方法时触发的事件

Public WithEvents myOlApp As Outlook.Application 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlApp = Outlook.Application 
 
End Sub 
 
 
 
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean) 
 
 Dim prompt As String 
 
 prompt = "Are you sure you want to send " & Item.Subject & "?" 
 
 If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub

因此，每次触发

ItemSend

事件时，我们都可以增加计数器

另一种可能的解决方案是使用

Find

/

FindNext

或

Restrict

方法获取消息正文中包含特定关键字的项数。请在以下文章中阅读更多关于它们的信息：

---

如果签名包含用户独有的内容，只需使用

Items.Find/FindNext

或

Items.Restrict在
正文
属性中搜索“已发送邮件”文件夹中的匹配项即可