Aus Calc Mailentwürfe in Thunderbird generieren

[mr.laurel]

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

[ykcim]

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

[mr.laurel]

Hi Michael,

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

MfG
mr.laurel