（VBA在OUTLOOK）檢查，如果電子郵件尚未收到VBA

Question

我需要一個展望宏，做如下的邏輯：

• 9:00之間每個工作日至10:00在檢查特定文件夾，如果從那天起有任何電子郵件。
• 如果沒有電子郵件，請發送簡單的郵件給特定的人。

非常感謝。

Answer 1

每個工作日上午9點到上午10點之間檢查特定文件夾，如果有任何電子郵件，從那天起。

您需要運行計時器以定期運行任務。有關更多信息，請參閱Outlook VBA - Run a code every half an hour。使用Items類的Find/FindNext或Restrict方法來查找符合條件的Outlook項目。

如果沒有電子郵件，請發送簡單的郵件給特定的人。

如果沒有找到項目，請參閱＃1，您可以創建並提交郵件項目。

 ' Create the message. 
     Set objOutlookMsg = objOutlook.CreateItem(olMailItem) 

     With objOutlookMsg 
      ' Add the To recipient(s) to the message. 
      Set objOutlookRecip = .Recipients.Add("Nancy Davolio") 
      objOutlookRecip.Type = olTo 

      ' Add the CC recipient(s) to the message. 
      Set objOutlookRecip = .Recipients.Add("Michael Suyama") 
      objOutlookRecip.Type = olCC 

     ' Add the BCC recipient(s) to the message. 
      Set objOutlookRecip = .Recipients.Add("Andrew Fuller") 
      objOutlookRecip.Type = olBCC 

     ' Set the Subject, Body, and Importance of the message. 
     .Subject = "This is an Automation test with Microsoft Outlook" 
     .Body = "This is the body of the message." &vbCrLf & vbCrLf 
     .Importance = olImportanceHigh 'High importance 

     ' Resolve each Recipient's name. 
     For Each ObjOutlookRecip In .Recipients 
      objOutlookRecip.Resolve 
     Next 

     .Save 
     .Send 
     End With