Anhang aus Email lesen

[che]

Hallo Zusammen!

Ich versuche gerade aus einer Mail mit Anhang den Namen des Anhanges zu extrahieren.

Folgenden Code habe ich mir zusammen gestückelt:

Code: Alles auswählen

sub attachment

dim oMailer as Object
dim MailProgramm as variant
dim NeueNachricht as variant
dim anhang as string

oMailer = createUnoService( "com.sun.star.system.SimpleCommandMail" )
MailProgramm = oMailer.querySimpleMailClient()
NeueNachricht = MailProgramm.createSimpleMailMessage()
anhang = NeueNachricht.getAttachement("file:///home/tb/openoffice/mail/1161704750.4635.l97nr")


MsgBox anhang

end sub

Unter

file:///home/tb/openoffice/mail/1161704750.4635.l97nr

befindet sich eine aus Kmail kopierte Mail mit Anhang.

Leider ist das Ganze nicht von Erfolg gekrönt;-(
"Objektvariable nicht belegt (Bei Zeile: anhang = ....)

Weiß jemand Rat?