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?