Public Declare Function DVEmlFromMailItem Lib "DvApi32" (ByVal oMailItem As _
      Object, ByVal strFileName As String) As Long
    Public Sub MailArchivierung()
 
    Dim oApp As Object
    Dim oAccount As Object
    Dim oArchive As Object
    Dim oMailItem As Object
    Dim oMessageItems As Object
    Dim Filename, Zielpfad As String
    Dim i As Integer
 
    oApp = CreateObject("DVOBJAPILib.DvISEAPI")
    oAccount = oApp.Logon("####", "####", "####", "", "", "AUTH")
 
    oArchive = oAccount.GetArchive("System/Archivieren/in")
 
    oMessageItems = oArchive.AllItems
 
 
    For i = 0 To oMessageItems.Count - 1
    If oMessageItems.Item(i).Type = 2 Then
    oMailItem = oMessageItems.Item(i)
    Filename = Space(255)
    If DVEmlFromMailItem(oMailItem, Filename) <> 0 Then
    Filename = Filename.Remove(Filename.IndexOf(".tmp") + 4, 1).Trim.ToCharArray
    Zielpfad = "C:\Test\" & CreateFileName() & ".eml"
    If System.IO.File.Exists(Filename.Trim) Then
    My.Computer.FileSystem.CopyFile(Filename.Trim, Zielpfad.Trim, True)
    End If
    End If
    End If
    Next
    oArchive = Nothing
    oMailItem = Nothing
    oMessageItems = Nothing
    Filename = Nothing
    Zielpfad = Nothing
    End Sub