我有一個用戶想根據發件人的電子郵件地址中的第一個字母對收到的電子郵件進行分類。我在其他問題中發現了一些問題,但實際上根據他們的電子郵件地址排序時遇到了問題。Outlook分類電子郵件基於第一個字母
Sub FilterTest()
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olInbox As Outlook.MAPIFolder
Dim MyFolder As Outlook.MAPIFolder
Dim SenderName As String
Set olApp = Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olInbox = Application.Session.Folders("[email protected]").Folders("Inbox")
Set MyFolder = Nothing
For i = olInbox.Items.Count To olInbox.Items.Count Step -1
olInbox.Items.Item (i)
SenderName = (olInbox.Items.Item(i).SenderEmailAddress)
If SenderName Like "a*" Or SenderName Like "b*" Or SenderName Like "c*" Or SenderName Like "d*" Or SenderName Like "e*" Or SenderName Like "f*" Or SenderName Like "g*" Then
MsgBox ("From a-g")
Set MyFolder = Application.Session.Folders("[email protected]").Folders("test")
End If
If SenderName Like "h*" Or SenderName Like "i*" Or SenderName Like "j*" Or SenderName Like "k*" Or SenderName Like "l*" Or SenderName Like "m*" Or SenderName Like "n*" Or SenderName Like "o*" Then
MsgBox ("From h-o")
Set MyFolder = Application.Session.Folders("[email protected]").Folders("test 2")
End If
If SenderName Like "p*" Or SenderName Like "q*" Or SenderName Like "r*" Or SenderName Like "s*" Or SenderName Like "t*" Or SenderName Like "u*" Or SenderName Like "v*" Or SenderName Like "w*" Or SenderName Like "x*" Or SenderName Like "y*" Or SenderName Like "z*" Then
MsgBox ("From p-z")
Set MyFolder = Application.Session.Folders("[email protected]").Folders("test 3")
End If
If MyFolder Is Nothing Then
MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
Else
olInbox.Items.Item(i).Move MyFolder
End If
Next
End Sub
我敢肯定有這樣做的更好的辦法,但我得到什麼...... 它從未進入if語句的任何。
任何人都知道我可以如何使此代碼工作? 或者也許另一種方式來基於電子郵件地址的第一個字母進行排序?
你就不能右鍵單擊郵件列表的標題(「從|主題」等),然後選擇「視圖設置」 ,然後點擊「Sor t ...「按鈕,然後從那裏從排序項目列表中選擇」到「?我不知道什麼版本的Outlook,但在我的它有這個選項。它是Office 2010 Outlook(實際Outlook版本14.0.xxxx)。 – mrunion
我閱讀了代碼,看起來你想將它們分類到特定的文件夾中。我以前的評論將是無益的。 – mrunion
您可以使用ucase和asc()的組合來獲取數值並實施更大的 - 然後比較排序,這將消除類似子句的需要 –
Sorceri