als Excel Tabelle versenden

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

Moderator: Moderatoren

Gast1234567123

als Excel Tabelle versenden

Beitrag von Gast1234567123 » Sa, 09.12.2017 10:17

Guten Tag,
ich möchte folgende Frage loswerden:

ich habe eine Libreoffice calc Tabelle welche ich per Button an einem Empfänger senden möchte welcher Excel auf seinem PC hat.
Bislang habe ich es mit einem Makro und folgender Funktion gemacht. Es funktioniert aber ich muss den Mailempfänger immer per Hand eintragen.
Wie kann ich die Empfängermailadresse übergeben um mir Tipperei zu ersparen.

[quote]rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SendMailDocAsMS", "", 0, Array())
[/quote]

Der Weg über [quote] MailProgramm = oMailer.querySimpleMailClient()
NeueNachricht = MailProgramm.createSimpleMailMessage()
sEmpfaenger = "hallo@empfänger.de"
NeueNachricht.setRecipient(sEmpfaenger)
[/quote] sendet den Anhang leider nur als odf Datei.

Vielen Dank für Eure Hilfe

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

Re: als Excel Tabelle versenden

Beitrag von Stephan » Sa, 09.12.2017 10:31

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

Gast1234567123

Re: als Excel Tabelle versenden

Beitrag von Gast1234567123 » Sa, 09.12.2017 16:04

Hallo Stephan,
vielen Dank für die schnelle Hilfe.
OK das Konvertieren der Tabelle ist ja einfach, bin leider nicht so fit in der Richtung.
Geht es auch nur ein Arbeitsblatt zu speichern?

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

Re: als Excel Tabelle versenden

Beitrag von lorbass » Sa, 09.12.2017 16:39

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