als Excel Tabelle versenden

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: als Excel Tabelle versenden

Beitrag von Stephan »

z.b. ginge:

Code: Alles auswählen

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

siehe:
https://forum.openoffice.org/en/forum/v ... ailMessage


Gruß
Stephan
Benutzeravatar
lorbass
********
Beiträge: 4116
Registriert: Mo, 01.05.2006 21:29
Wohnort: Bonn

Re: als Excel Tabelle versenden

Beitrag von lorbass »

Gast1234567123 hat geschrieben: Sa, 09.12.2017 16:04 Geht es auch nur ein Arbeitsblatt zu speichern?
Das geht z.B. so:
  • Klick auf Tabelle verschieben/kopieren… im Kontextmenü (Rechtsklick!) des gewünschten Registers (alternativ: Menüwahl Bearbeiten → Tabelle → Verschieben/kopieren).
  • ◉ Kopieren aktivieren.
  • gewünschtes Zieldokument oder – neues Dokument – auswählen.
  • Gewünschte Position im Zieldokument auswählen.
  • Namen der Tabelle festlegen.
  • [OK]
Fertig ist das Dokument mit nur einem Arbeitsblatt.

Gruß
lorbass
Antworten