1
我有以下代碼對收到的每個通過Outlook收到的電子郵件執行一些操作。它可以工作,但是如果多個郵件同時到達(即,當Outlook重新查詢服務器時,我的電子郵件地址是基於),它只會在最近收到的代碼上運行下面的代碼。有什麼建議麼?掃描所有傳入的電子郵件Outlook
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
' default local Inbox
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub
Sub Items_ItemAdd(ByVal item As Object)
On Error GoTo ErrorHandler
Dim Msg As Outlook.MailItem
If TypeName(item) = "MailItem" Then
Set Msg = item
If InStr(Msg.SentOnBehalfOfName, "name") <> 0 Then
'Do Something
End If
End If
ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub
由於時間的原因,我寧願不這樣做。 –
您可以將代碼轉換爲從規則運行或轉換爲newMailEx代碼,並查看是否更好。 – niton