Attachement Agent:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\jim.sam")
doc.Form = "Main Topic"
doc.Subject = "Here's Jim's document, as an attachment"
Call doc.Save( True, True )
*natürlich solltest Du den Agent etwas abändern, aber im großen und ganzen ist er das bereits zu 98%..schaffst Du die 2 restlichen Prozent? 
*
dann kann man das teil schön splitten nach alphabet und n kleines MP3 Portal basteln.. aber .. wer mach mir den Agenten ?! *gggg* Die Ansichten sind bereits so, wie Du Dir das vorstellst. Änder halt die Kategorie auf @left(Artist;1) ab, damit Du nur den ersten Buchstaben bekommst.
Und wenn Du gerne relative Pfade hast wie "c:\bla\bla\bla" (fester Pfad....
), dann geh in die Maske Configuration, änder es im richtigen Feld ab und teste, was passiert.
