Outlook VBA 开发第八讲 -按发件人自动分类邮件
(如有问题，请联系 dsd999@sohu.com)
需求：按发件人自动分类邮件，收到新邮件时，以发件人的名字在收件箱下建目录，
然后把新邮件移动到此目录下。
准备： Alt + F11 打开 VBA 的编辑器，然后双击左边的 ThisOutlookSession，右边
选择 Application，Startup。如图：
把下面的代码复制到后面。
代码：
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
On Error Resume Next
Dim myNamespace As Object
Dim obInbox As Object
Dim mai As Object
Dim intInitial As Integer
Dim intFinal As Integer
Dim strEntryId As String
Dim intLength As Integer
Dim temp As Object
评论7