Hier einen Agenten, den Du sehr leicht einbinden kannst und dann auf Knopfdruck die nötigen HEADER Informationen bekommst:
Sub Initialize
Dim doc As notesdocument
Dim uidb As notesuidatabase
Dim db As notesdatabase
Dim collection As notesdocumentcollection
Dim nSuccess As Integer
Dim uiws As New notesuiworkspace
Set uidb = uiws.currentdatabase
Set db = uidb.database
Set collection = db.UnprocessedDocuments
If collection.count > 0 Then
Set doc = collection.GetNthDocument(1)
nSuccess = uiws.dialogbox("(DDI)",True,True,True,False,False,False,"Detailed Delivery Information",doc,True,True)
End If
End Sub