Es gibt eine funktionierende Lösung. Geht dann direkt an TB.
Makro erstellen
In Writer:
Extras → Makros → Makros verwalten → LibreOffice Basic
„Meine Makros“ auswählen
Neues Modul anlegen
Diesen Code einfügen:
Makro SendeDokumentMitThunderbird
Sub SendeDokumentMitThunderbird()
Dim oDoc As Object
Dim sURL As String
Dim sPath As String
Dim sCommand As String
oDoc = ThisComponent
' Dokument zuerst speichern
If oDoc.hasLocation() = False Then
MsgBox "Bitte Dokument zuerst speichern."
Exit Sub
End If
sURL = oDoc.getURL()
' URL in normalen Pfad umwandeln
sPath = ConvertFromURL(sURL)
' Thunderbird mit Anhang öffnen
sCommand = "thunderbird -compose ""attachment='file://" & sPath & "'"""
Shell(sCommand, 0)
End SubButton in Writer einfügen
Symbolleiste anpassen
Extras → Anpassen
Tab Symbolleisten
gewünschte Leiste auswählen (z. B. Standard)
Dann:
Hinzufügen → Makros
Dein Makro auswählen:
Meine Makros → Standard → Modul1 → SendeDokumentMitThunderbird
Makro SendeAlsPDF
Sub SendeAlsPDF()
Dim oDoc As Object
Dim sDoc As String
Dim sPDF As String
Dim args(1) As New com.sun.star.beans.PropertyValue
oDoc = ThisComponent
If oDoc.hasLocation() = False Then
MsgBox "Bitte Dokument zuerst speichern."
Exit Sub
End If
sDoc = ConvertFromURL(oDoc.getURL())
sPDF = Left(sDoc, Len(sDoc)-4) & ".pdf"
args(0).Name = "FilterName"
args(0).Value = "writer_pdf_Export"
oDoc.storeToURL(ConvertToURL(sPDF), args())
Shell("thunderbird -compose ""attachment='file://" & sPDF & "'""", 0)
End SubMir war es allerdings nicht gelungen beide Makros in ein Modul zu bekommen(k.A. noch nie genutzt), dann eben 2 Module angelegt. Dokument muss vor dem Senden gespeichert werden. Makros sind auch ohne Button unter Extras zu erreichen.