Aus Calc Mailentwürfe in Thunderbird generieren

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Aus Calc Mailentwürfe in Thunderbird generieren

Danke

von mr.laurel » Do, 23.02.2006 07:42

Hi Michael,

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

MfG
mr.laurel

von ykcim » 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

Aus Calc Mailentwürfe in Thunderbird generieren

von mr.laurel » 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

Nach oben