Seite 1 von 1

Anhang aus Email lesen

Verfasst: Di, 24.10.2006 20:56
von 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?