【VBS】檢索Outlook本地郵箱

標籤：

實現功能：使用VBS檢索Outlook本地郵箱中，今天是否收到某標題的郵件。

代碼如下：

Const C_DATE_FORMAT_MAIL_FILTER_FROM = 1        ‘ yyyy-m-d 0:00 AMConst C_DATE_FORMAT_MAIL_FILTER_TO = 2          ‘ yyyy-m-d 11:59 PMFunction CheckMail(pMailFolder, pMailTitle)    On Error Resume Next    Dim objOlApp    Dim objNameSpace    Dim objFolder    Dim strFilter    CheckMail = False    Set objOlApp = CreateObject("Outlook.Application")    Set objNameSpace = objOlApp.GetNamespace("MAPI")    ‘olFolderInbox  6  預設收件匣    Set objFolder = objNameSpace.GetDefaultFolder(6).Folders(pMailFolder)    If Err.Number <> 0 Then        AddLog ("郵件訪問出錯：" & Err.Description)        WScript.Quit -1    End If    ‘過濾條件    strFilter = "[Subject] = ‘" & pMailTitle _        & "‘ And [ReceivedTime] >= ‘" & FormatDate(Now(), C_DATE_FORMAT_MAIL_FILTER_FROM) _        & "‘ And [ReceivedTime] <= ‘" & FormatDate(Now(), C_DATE_FORMAT_MAIL_FILTER_TO) & "‘"    ‘檢索    If objFolder.Items.Restrict(strFilter).Count > 0 Then        CheckMail = True    End IfEnd Function‘日期格式化Function FormatDate(pDate, pFlag)    Dim y, m, d    FormatDate = ""    If IsDate(pDate) = False Then Exit Function    y = cstr(year(pDate))    m = cstr(month(pDate))    d = cstr(day(pDate))    Select Case pFlag        Case C_DATE_FORMAT_MAIL_FILTER_FROM            ‘ yyyy-m-d 0:00 AM From            FormatDate = y & "-" & m & "-" & d & " 0:00 AM"        Case C_DATE_FORMAT_MAIL_FILTER_TO            ‘ yyyy-m-d 11:59 PM To            FormatDate = y & "-" & m & "-" & d & " 11:59 PM"    End SelectEnd Function

 

【VBS】檢索Outlook本地郵箱