von manese » Fr, 03.08.2007 20:40
Hallo,
ich fürchte, dass hier hier ein Missverständnis besteht.
Ein direktes Verschicken des Textes als Email,
wie man es von WORD und OUTLOOK kennt,
ist offensichtlich mit OO nicht möglich.
Die Option
Datei>Senden>Dokument als Email
ergibt bei mir standardmäßig eine leere Emaildatei,
an die das offene Dokument angehängt ist.
Ich behelfe mich mit folgendem Makro,
das ich per Mausklick aufrufen kann:
- sub email
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PrepareMailExport", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:MailExportFinished", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SendMail", "", 0, Array())
end sub
Das Makro nimmt den Inhalt des Textes in die Zwischenablage
und ich muss ihn dann anschließend nur (per Ctrl+V) einfügen.
Das ist zwar nur ein Workaround
aber es funktioniert bisher ganz gut.
Alles Gute
matthias
Hallo,
ich fürchte, dass hier hier ein Missverständnis besteht.
Ein direktes Verschicken des Textes als Email,
wie man es von WORD und OUTLOOK kennt,
ist offensichtlich mit OO nicht möglich.
Die Option
[b]Datei>Senden>Dokument als Email[/b]
ergibt bei mir standardmäßig eine leere Emaildatei,
an die das offene Dokument angehängt ist.
Ich behelfe mich mit folgendem Makro,
das ich per Mausklick aufrufen kann:
[list]sub email
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PrepareMailExport", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:MailExportFinished", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SendMail", "", 0, Array())
end sub[/list]
Das Makro nimmt den Inhalt des Textes in die Zwischenablage
und ich muss ihn dann anschließend nur (per Ctrl+V) einfügen.
Das ist zwar nur ein Workaround
aber es funktioniert bisher ganz gut.
Alles Gute
matthias