OpenOffice.info

[quote=Gast1234567123 post_id=272743 time=1512831871]
Geht es auch nur ein Arbeitsblatt zu speichern?
[/quote]
Das geht z.B. so:

[list][*] Klick auf [i]Tabelle [u]v[/u]erschieben/kopieren…[/i] im Kontextmenü (Rechtsklick!) des gewünschten Registers [color=#666666](alternativ: Menüwahl [i]Bearbeiten → Tabelle → Verschieben/kopieren[/i])[/color].
[*] ◉ [i]Kopieren[/i] aktivieren.
[*] gewünschtes Zieldokument oder [i]– neues Dokument –[/i] auswählen.
[*] Gewünschte Position im Zieldokument auswählen.
[*] Namen der Tabelle festlegen.
[*] [OK][/list]
Fertig ist das Dokument mit nur einem Arbeitsblatt.

Gruß
lorbass

Sub Mailer()
' Testen, ob Windows
      If GetGuiType() = 1 Then
         objMail = createUnoService("com.sun.star.system.SimpleSystemMail")
      ' Sonst Liux/Mac
      Else
         objMail = createUnoService("com.sun.star.system.SimpleCommandMail")
      End If
      ' Zugriff auf Mail-Client-Programm
      objMailClient = objMail.querySimpleMailClient()
      ' Message-Objekt erstellen
      objMessage = objMailClient.createSimpleMailMessage()
      ' Nachrichtenempfänger setzen
      objMessage.setRecipient("abc@web.de")
      ' Betreff setzen
      objMessage.setSubject("nur ein Test")
      ' Aktuelles Dokument als Anhang
      Dim mAttachment(0)
      mAttachment(0) = ConvertToURL("D:\xyz.xls")
      objMessage.setAttachement(mAttachment())
      ' MailClient öffnen
      objMailClient.sendSimpleMailMessage(objMessage, 0)
End Sub

z.b. ginge:

[code]Sub Mailer()
' Testen, ob Windows
If GetGuiType() = 1 Then
objMail = createUnoService("com.sun.star.system.SimpleSystemMail")
' Sonst Liux/Mac
Else
objMail = createUnoService("com.sun.star.system.SimpleCommandMail")
End If
' Zugriff auf Mail-Client-Programm
objMailClient = objMail.querySimpleMailClient()
' Message-Objekt erstellen
objMessage = objMailClient.createSimpleMailMessage()
' Nachrichtenempfänger setzen
objMessage.setRecipient("abc@web.de")
' Betreff setzen
objMessage.setSubject("nur ein Test")
' Aktuelles Dokument als Anhang
Dim mAttachment(0)
mAttachment(0) = ConvertToURL("D:\xyz.xls")
objMessage.setAttachement(mAttachment())
' MailClient öffnen
objMailClient.sendSimpleMailMessage(objMessage, 0)
End Sub

[/code]
siehe:
https://forum.openoffice.org/en/forum/viewtopic.php?f=45&t=71337&hilit=createSimpleMailMessage


Gruß
Stephan