Inhalte von E-Mails auslesen

Dim oApp As DvApi32.DavidAPI
Dim oAcc As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oMessageItems As DvApi32.MessageItems
Dim oMailItem As DvApi32.MailItem

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)

Set oApp = CreateObject("DVOBJAPILib.DvISEApi") 
Set oAcc = oApp.Logon

Set oArchive = oAcc.GetSpecialArchive(DvArchivePersonalIn) 
Set oMessageItems = oArchive.AllItems 'Returns all MessageItems from the personal in archive in 

'Informations from all MailItems in the personal archive will write into a archive
For i = 0 To oMessageItems.Count - 1
  If oMessageItems.Item(i).Type = DvEMailItem Then
    Set oMailItem = oMessageItems.Item(i)
    txtfile.WriteLine ("From: " & oMailItem.From.EMail)
    txtfile.WriteLine ("Subject: " & oMailItem.Subject)
    txtfile.WriteLine ("Destination: " & oMailItem.Destination)
    txtfile.WriteLine ("SendTime: " & oMailItem.SendTime)
    txtfile.WriteLine ("StatusTime: " & oMailItem.StatusTime)
    txtfile.WriteLine ("To: " & oMailItem.To)
    txtfile.WriteLine ("TextSource: " & oMailItem.TextSource)
    txtfile.WriteLine ("Plaintext: " & oMailItem.BodyText.PlainText) 
  End If
Next i

txtfile.Close
oAcc.Logoff