als Excel Tabelle versenden

Antwort erstellen


Um automatische Eingaben zu unterbinden, musst du die nachfolgende Aufgabe lösen.

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: als Excel Tabelle versenden

Re: als Excel Tabelle versenden

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

Re: als Excel Tabelle versenden

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?

Re: als Excel Tabelle versenden

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

als Excel Tabelle versenden

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

Nach oben