0

受信トレイを定期的にスキャンして特定のメールを探しているボットがいます。以下のコードが起動しているときは常に、カーソルがLotusNotesUI上にあるときにカーソルが点滅します。グーグルは私の検索のために約5つの結果を返しました、そしてそれらのどれもこの問題に対処していないようでした。それは私のプログラムの動作を妨げるものではありませんが、見た目はかなり悪く見えます。誰かアイデアはありますか？ありがとう！

*これをC＃としてタグ付けして、より多くの人に見てもらうようにしました。私はvb.netソリューションを好みますが、C＃も歓迎され、高く評価されています。

    Dim NS As Object = CreateObject("Notes.NotesSession")
    Dim NDB As Object = NS.GetDatabase("", "")
    If NDB.IsOpen = False Then NDB.Openmail()
    Dim NV As Object = NDB.GetView("($Inbox)")
    NV.refresh()
    Dim ND As Object = NV.GetFirstDocument
    Dim aItems As Array
    Dim dInfo As Dictionary(Of String, String)
    Dim EmailCount As Integer = NV.entrycount
    Dim iCurrent As Integer = 0
    Dim EmailDate As DateTime
    Dim Subject As String, Body As String, sFrom As String
    Do
        iCurrent += 1
        aItems = ND.Items
        dInfo = New Dictionary(Of String, String)
        For i As Integer = 0 To aItems.Length - 1
            If Not dInfo.ContainsKey(aItems(i).name) Then
                dInfo.Add(aItems(i).name, aItems(i).text)
            End If
        Next
        EmailDate = CDate(dInfo("DeliveredDate"))
        Subject = dInfo("Subject")
        Body = dInfo("Body")
        sFrom = dInfo("From")
        If NV.GetNextDocument(ND) Is Nothing Then Exit Do
        ND = NV.GetNextDocument(ND)
    Loop
4

1 に答える 1

1

このNotes.NotesSessionクラスは OLE クラスです。つまり、Notes UI と対話します。

代わりに、クラスの COM バージョンを使用する必要があります。Lotus.NotesSession

于 2012-10-29T20:53:17.577 に答える