TA貢獻1900條經(jīng)驗 獲得超5個贊
此代碼將向默認(rèn)的本地收件箱添加事件偵聽器，然后對傳入的電子郵件執(zhí)行某些操作。您需要在下面的代碼中添加該操作。
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 SubPrivate Sub Items_ItemAdd(ByVal item As Object)
On Error Goto ErrorHandler
Dim Msg As Outlook.MailItem
If TypeName(item) = "MailItem" Then
Set Msg = item
' ******************
' do something here
' ******************
End IfProgramExit:
Exit SubErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub粘貼ThisOutlookSession模塊中的代碼后，必須重新啟動Outlook。
TA貢獻1797條經(jīng)驗 獲得超4個贊
嘗試這樣的內(nèi)容ThisOutlookSession：
Private Sub Application_NewMail() Call Your_main_macroEnd Sub
當(dāng)我收到一封電子郵件并打開該應(yīng)用程序事件時，我的outlook vba就被解雇了。
編輯：我剛剛測試了一個hello world msg框，它在application_newmail收到電子郵件后在活動中被調(diào)用后運行。
舉報