Export von Mails aus David?

Sub Initialize(oInfoCenter, key) 
    Set oBar = oInfoCenter.GetCommandBar("Main/Entries") 
    oBar.Insert 4, "Ablage", key, "ablage.ico", "OnAblageButton", true 
    End Sub 
    sub OnAblageButton(oInfoCenter, oReader)
    i = 0
    Set oEntryList = oInfoCenter.EntryList
    Set oSelection = oEntryList.Selection
    for each oItem in oSelection
    Set oMsgItem = oItem.GetInterface2
    Set oItem = oMsgItem
    Set oConverter = oInfoCenter.Account.CreateExporter 
    Set oCollection = oConverter.GetCollection 
    oCollection.Add oItem 
    oConverter.Convert FormatEML, "Q:\DMS\export"& rnd & ".eml" 
    i = i + 1
    next
    oInfoCenter.MsgBox "Anzahl exportierter Mails: " & i, "OkExclamation" 
    end sub