VB.NET - Microsoft.Office.Interop.Outlook - 在工作站被锁定时不起作用？

Question

我的VB.NET应用程序旨在与Outlook并行工作以执行以下操作。

1. 检查新的未读电子邮件，每10秒（定时器），从每场
2. 捕获数据（收件人，发件人，日期，主题，正文等），并存储在SQL表中，
3. 从收件箱中删除电子邮件。

此应用程序完美地工作，直到工作站从屏幕保护程序超时时间锁定自己的时刻。当PC解锁后，它恢复正常操作并处理积压的电子邮件。你可能会说只是禁用屏幕保护程序，但这台PC只能通过微软Remote Desktop Connection使用共享用户帐户访问，所以这是不可能的。

这在Windows XP SP3和Outlook 2003下运行。我的问题不是真的找到解决方案，它更多的是找到原因。但显然一个解决方案会很好。

下面是从应用程序代码片段，它的基本Microsoft.Office.Interop.Outlook VB.NET代码：

Public Sub Outlook_GetMail() 

    Dim sFileName As String = "senderexcludedlist.txt" 
    Dim ssenderexcludedlist As String = "" 

    If System.IO.File.Exists(sFileName) = True Then 
     Dim objReader As New System.IO.StreamReader(sFileName) 

     Do While objReader.Peek() <> -1 
      ssenderexcludedlist = objReader.ReadLine() 
     Loop 

     objReader.Dispose() 
    End If 

    Dim sMessage As String = "" 

    ' Create Outlook application. 
    Dim oApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application 

    ' Get Mapi NameSpace. 
    Dim oNS As Microsoft.Office.Interop.Outlook.NameSpace = oApp.GetNamespace("mapi") 
    oNS.Logon("Mailbox", Missing.Value, False, True) 

    ' Get Messages collection of Inbox. 
    Dim oInbox As Microsoft.Office.Interop.Outlook.MAPIFolder = oNS.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox) 
    Dim oItems As Microsoft.Office.Interop.Outlook.Items = oInbox.Items 

    ' Get unread e-mail messages. 
    oItems = oItems.Restrict("[Unread] = true") 

    ' Loop each unread message. 
    Dim oMsg As Microsoft.Office.Interop.Outlook.MailItem 
    Dim i As Integer 

    For i = 1 To oItems.Count 
     On Error Resume Next 

     oMsg = oItems.Item(i) 
     Dim strBody = oMsg.Body() 
     strBody = Replace(strBody, vbNewLine, "<BR>") 
     strBody = Replace(strBody, "'", "´")   

     Dim strSenderEmailAddress As String = oMsg.SenderEmailAddress 

     If InStr(ssenderexcludedlist, strSenderEmailAddress) = 0 And Not oMsg.SenderName.Contains("Leeds Tech Support") Then 

      sMessage = sMessage & oMsg.Subject & vbNewLine 
      sMessage = sMessage & oMsg.SenderName & vbNewLine 
      sMessage = sMessage & strSenderEmailAddress & vbNewLine 
      sMessage = sMessage & oMsg.CC & vbNewLine 
      sMessage = sMessage & oMsg.ReceivedTime & vbNewLine 
      sMessage = sMessage & oMsg.Body & vbNewLine 
      sMessage = sMessage & "---------------------------" & vbNewLine & vbNewLine 
      MsgLog.Text = sMessage & MsgLog.Text 

      'INSERT SQL HERE 
     End If 
     oMsg.UnRead = False 
     oMsg.Delete() 
    Next 

    ' Log off. 
    oNS.Logoff() 

    ' Clean up. 
    oApp = Nothing 
    oNS = Nothing 
    oItems = Nothing 
    oMsg = Nothing 
End Sub 

Answer 1

我不能建议高度不够，你签出的Outlook赎回（HTTP ：//www.dimastr.com/redemption/home.htm）。这将允许您与Exchange进行交互，而无需使用Outlook进行混淆。我有几个应用程序基本上做你想做的事情;其中一些作为服务运行，另一些作为定时作业调用或交互式运行，但其中没有一个与用户是否登录有关。