Hallo Dirk,
ich habs *freu* !!!
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set item = doc.GetFirstitem("UNID_in_Cal")
If Not(item Is Nothing) Then
unid = item.values(0)
' Mail-Datenbank suchen, öffnen und neues Dok. erstellen
reg.RegistrationServer = "....."
Call reg.GetUserInfo(session.UserName, mailserver, mailfile)
Set dbmail = session.Getdatabase(mailserver, mailfile,False)
Set doc = dbmail.GetDocumentByUNID( unid )
Call doc.Remove(True)
End If
Vielen lieben Dank für Deine Hilfe. Hoffe ich darf noch ein andermal drauf zurückkommen
Gruß Susanne