Open Office + Lotus Notes mit Makro Mail versenden

[DSRocker]

Hallo zusammen,
viel gegoogelt, nicht viel brauchbares gefunden.

Eine OpenOffice Tabelle soll per Button-Klick (aus der Datei selbst) an eine bzw mehrere festgelegte Mailadressen versendet werden.
Betreff oder Text in der Mail ist nicht wichtig.

So weit bin ich:
Per Klick wird ein Memo mit der Datei als Anhang geöffnet.

Wichtig: OpenOffice und Lotus Notes

Vielen Dank

 

[cumulonimbus8]

Ich stelle mich mal so dumm wie ich bin…

In MSO ist es per VBA reichlich leicht eine andere Komponente fernzusteuern. Jetzt knirscht die Erinnerung… Notes ist doch nur eine Datenbank oder ein vollwertiges Maliprogramm? Letzteres angenommen, wie will PYTHON denn Notes fernkontrollieren?
Sollte Notes nur die Adressen liefen wäre meine Frage die selbe: wie kommen PYTHON und Notes zusammen?

Ich frage das deshalb weil ich mittels eines Kommandozeilentools und Excel Mails in größeren Mengen (mit Einverständnis der Empfänger) versende, allerdings landen alle Daten aus der Adressquelle in Excel selbst das dann losmarschiert. Wie sieht deine Konstruktion, Mechanik da aus?

CN8

 

[diablobase]

IBM Notes ist eine sogenannte Groupware, also eine Plattform in der Anwendungen erstellt werden können und das unter anderem auch Mail beherrscht, nicht "nur eine Datenbank oder Mailprogramm".
Über die COM-Schnittstelle kann man mit Notes so ziemlich alles anstellen, da ich aber Python und OpenOffice nicht wirklich kenne poste ich dir einfach mal ein Beispiel in VBA, hoffentlich hilfts:

    Dim session As Object
    Dim workspace As Object
    Dim dbMail As Object
    Dim memo As Object
    Dim rtItem As Object
    
    Set session = CreateObject("Notes.NOTESSESSION")
    Set workspace = CreateObject("Notes.NOTESUIWORKSPACE")
    Set dbMail = session.GetDatabase("", "")
    
    Call dbMail.OpenMail
    
    If (Not dbMail.IsOpen) Then
        MsgBox "Bitte melden Sie sich zunächst vollständig in Notes an!", vbInformation + vbOKOnly
    Else
        Set memo = dbMail.Createdocument()
        Call memo.replaceItemValue("Form", "Memo")
        Call memo.replaceItemValue("SendTo", "Empfänger")
        Call memo.replaceItemValue("Subject", "Betreff")
        
        ' einfacher Text
        Call memo.replaceItemValue("Body", "bla")
        
        ' Richtext
        Set rtItem = memo.Createrichtextitem("Body")
        Call rtItem.AppendText("bla")
        Call rtItem.Addnewline(1)
        Call rtItem.Update
        
        Call doc.Send(False)
    End If