OpenOffice.info

Verfasst: **Mo, 20.02.2006 21:01**

Hi,
ich habe bisher ein excel-Makro gehabt, dass mir Mail-Entwürfe für Outlook erstellt hat.
Nach einer Umstellung auf OpenOffice und Thunderbird läuft das natürlich nicht mehr.

Das eigentlich spannende Codestück lautet:

Code: Alles auswählen

  ...
  Set ol = CreateObject("outlook.application")
  Set myItem = ol.CreateItem(olTaskItem)
  ...
  myItem.To = MailAdresse
  myItem.Subject = Betreff
  myItem.Body = Text
  myItem.NoAging = True
  myItem.Close (olSave)

Hat jemand von Euch einen Tipp, wie ich das auf Calc/Thunderbird umstellen kann?
(Der Lösungsansatz muss nicht unbedingt in Basic sein; kann auch JavaScript oder Python sein)

Schon 'mal vielen Dank im Voraus
mr.laurel

Verfasst: **Di, 21.02.2006 16:53**

Hi,

Du kannst über das Standard Mailprogramm auf Thunderbird zugreifen:

Code: Alles auswählen

oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
MailProgramm = omailer.querySimpleMailClient()
NeueNachricht = MailProgramm.createSimpleMailMessage()
NeueNachricht.setRecipient("empfaenger@domain.de")
NeueNachricht.setSubject( "thema des mails" )
Dim attachs(0)
attachs(0)="file:///c:/test.sxw" 
NeueNachricht.setRecipient( MailAddresse )
NeueNachricht.setAttachement(attachs())
Mailprogramm.sendSimpleMailMessage(Neuenachricht, 0 )

mfg
Michael

Verfasst: **Do, 23.02.2006 07:42**

Hi Michael,

danke für den Hinweis.
Werde ich am Wochenende einbauen.

MfG
mr.laurel

OpenOffice.info

Aus Calc Mailentwürfe in Thunderbird generieren

Aus Calc Mailentwürfe in Thunderbird generieren

Danke