Læsning/behandling af mail fra outlook fra en VB6 applikation

Løst!

Hvordan løste du det

mvh

mvhansen

Dim oOutlook As Outlook.Application
Dim oNs As Outlook.NameSpace
Dim oFldr As Outlook.MAPIFolder
Dim oMessage As Outlook.MailItem

Dim Idx As Integer

Private Sub btnMarkAsRead_Click()
    Dim NumbersRead As Integer
    On Error GoTo nextigen
    NumbersRead = 0
    If Idx > 0 Then
    Set oOutlook = Outlook.Application
    Set oNs = oOutlook.GetNamespace("MAPI")
    Set oFldr = oNs.GetDefaultFolder(olFolderInbox)
    For Each oMessage In oFldr.Items
        NumbersRead = NumbersRead + 1
        If oMessage.UnRead = True Then
            If NumbersRead = Idx Then
             
                Exit For
            End If
        End If
        DoEvents
nextigen:
    Next
   
    Set oMessage = Nothing
    Set oFldr = Nothing
    Set oNs = Nothing
    Set oOutlook = Nothing
    End If
End Sub

Private Sub btnNextMail_Click()
    On Error GoTo nextigen

    Set oOutlook = Outlook.Application
    Set oNs = oOutlook.GetNamespace("MAPI")
    Set oFldr = oNs.GetDefaultFolder(olFolderInbox)
    For Each oMessage In oFldr.Items
        If oMessage.UnRead = True Then
                Idx = NumbersRead
                txtBody = oMessage.Body
                txtSubject = oMessage.Subject
       
            End If
        End If
        DoEvents
nextigen:
    Next
 
   
    Set oMessage = Nothing
    Set oFldr = Nothing
    Set oNs = Nothing
    Set oOutlook = Nothing
End Sub