Outlook 시작 및 종료 이벤트 ID

Question

Outlook이 닫힐 때마다 내 pst 파일의 백업을 취할 배치 스크립트를 작성하는 중입니다.

Windows 이벤트 ID를 기반으로 예약 된 작업을 수행 할 생각입니다.

Microsoft Outlook의 다양한 이벤트 ID를 검색했지만 원하는 것을 얻을 수 없습니다.

나는 eventvwr를 분석하려고했지만 원하는 것을 찾을 수 없었다. 나는 프로 64 비트 윈도우 7을 사용하고

가, 아웃룩 2010은 내가 시작을 찾고 나는 내가 아는 한 Outlook을 시작에 대한 이벤트가없는 전에 말했듯이

Answer 1

그래서 전망에 대한 이벤트 ID를 중지하고/닫기, AddIns를 설치 한 경우 ID : 45를 사용하여 시작을 감지 할 수 있지만 여전히 닫기 이벤트가 없습니다!

Outlook 시작/종료에서 이벤트를 가져 오는 유일한 방법은 Outlook 시작 또는 종료 이벤트에서 실행되는 Outlook AddIn 또는 VBA-Makro를 통해 직접 시작/종료하는 것입니다. 아웃룩 추가 기능에 대한

샘플 : (

public partial class ThisAddIn 
{ 
    private EventLog log = null; 

    private void ThisAddIn_Startup(object sender, System.EventArgs e) 
    { 
     log = new EventLog(); 
     log.Source = "OutlookAddIn"; 
     log.Log = "Application"; 
     log.WriteEntry("Outlook start", EventLogEntryType.Information, 1); 
    } 

    private void ThisAddIn_Shutdown(object sender, System.EventArgs e) 
    { 
     if (log != null) 
     { 
      log.WriteEntry("Outlook stop", EventLogEntryType.Information, 0); 
     } 
    } 

    #region VSTO generated code 

    /// <summary> 
    /// Required method for Designer support - do not modify 
    /// the contents of this method with the code editor. 
    /// </summary> 
    private void InternalStartup() 
    { 
     this.Startup += new System.EventHandler(ThisAddIn_Startup); 
     this.Shutdown += new System.EventHandler(ThisAddIn_Shutdown); 
    } 

    #endregion 
} 

UPDATE

I've 자신에 의해 VBA 솔루션을 시도하고 다음 코드를 사용하여 모듈을 만들고

;-) 근무 Source)

Option Explicit 

    Declare Function RegisterEventSource Lib "advapi32.dll" Alias _ 
    "RegisterEventSourceA" (ByVal lpUNCServerName As String, _ 
    ByVal lpSourceName As String) As Long 
    Declare Function DeregisterEventSource Lib "advapi32.dll" (_ 
    ByVal hEventLog As Long) As Long 
    Declare Function ReportEvent Lib "advapi32.dll" Alias _ 
    "ReportEventA" (_ 
    ByVal hEventLog As Long, ByVal wType As Integer, _ 
    ByVal wCategory As Integer, ByVal dwEventID As Long, _ 
    ByVal lpUserSid As Any, ByVal wNumStrings As Integer, _ 
    ByVal dwDataSize As Long, plpStrings As Long, _ 
    lpRawData As Any) As Boolean 
    Declare Function GetLastError Lib "kernel32"() As Long 
    Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (_ 
    hpvDest As Any, hpvSource As Any, _ 
    ByVal cbCopy As Long) 
    Declare Function GlobalAlloc Lib "kernel32" (_ 
    ByVal wFlags As Long, _ 
    ByVal dwBytes As Long) As Long 
    Declare Function GlobalFree Lib "kernel32" (_ 
    ByVal hMem As Long) As Long 

    Public Const EVENTLOG_SUCCESS = 0 
    Public Const EVENTLOG_ERROR_TYPE = 1 
    Public Const EVENTLOG_WARNING_TYPE = 2 
    Public Const EVENTLOG_INFORMATION_TYPE = 4 
    Public Const EVENTLOG_AUDIT_SUCCESS = 8 
    Public Const EVENTLOG_AUDIT_FAILURE = 10 

    Public Sub LogNTEvent(sString As String, iLogType As Integer, _ 
    iEventID As Long) 
    Dim bRC As Boolean 
    Dim iNumStrings As Integer 
    Dim hEventLog As Long 
    Dim hMsgs As Long 
    Dim cbStringSize As Long 
    hEventLog = RegisterEventSource("", Application.Name) 
    cbStringSize = Len(sString) + 1 
    hMsgs = GlobalAlloc(&H40, cbStringSize) 
    CopyMemory ByVal hMsgs, ByVal sString, cbStringSize 
    iNumStrings = 1 
    If ReportEvent(hEventLog, _ 
     iLogType, 0, _ 
     iEventID, 0&, _ 
     iNumStrings, cbStringSize, _ 
     hMsgs, hMsgs) = 0 Then 
     MsgBox GetLastError() 
    End If 
    Call GlobalFree(hMsgs) 
    DeregisterEventSource (hEventLog) 
    End Sub 

는 그리고 이것은 당신의 OutlookSessionApplication 파일이 (how to get there)과 같아야하고 makros을 허용하는 것을 잊지 또는 하나 피고측은 "outlookspy";-)

Private Sub Application_Quit() 
     Call LogNTEvent("OUTLOOK QUIT", _ 
       EVENTLOG_INFORMATION_TYPE, 1000) 
    End Sub 

    Private Sub Application_Startup() 
     Call LogNTEvent("OUTLOOK START", _ 
       EVENTLOG_INFORMATION_TYPE, 1001) 
    End Sub 

Answer 2

사용을 서면에 서명하지는 방법이다. 새 메일, 새 항목 등을 캡처해야하는 dispID를 찾을 수있는 타사 앱입니다.