Scan per E-Mail versenden

[anton]

Hallo,
ich bin auf der Suche nach einer Lösung für das Problem ein Dokument einzuscannen und es per E-Mail zu versenden.

Unter den verschiedenen Lösungen ist mir auch die Möglichkeit aufgefallen, im Writer ein Dokument einzuscannen und dann als PDF per E-Mail zu versenden.
Nun möchte ich die ganze Prozedur in einem Makro einpacken und dann nur noch auf einen Knopf drücken und alles funktioniert ohne weitere Eingaben bis zum E-Mail-Programm.

Ich habe aber überhaupt keine Erfahrung und deshalb auch keine Idee, wie das geht. Ich habe versucht ein Makro aufzuzeichnen, bin aber nicht recht weitergekommen. Das Makro läuft bis der Scandialog aufgerufen wird, dann muß ich das Scannen wieder selber veranlassen und auch den Rest - Datei / Senden / E-Mail als PDF - durch eigene Eingaben ausführen.

Meine Fragen:
- Geht das, was ich mir vorstelle überhaupt?
- Wenn ja, wie muß ich das programmieren?

Ich hoffe auf Hilfe und bedanke mich für jeden Hinweis.

anton

[anton]

Es gelingt mir die Makros "scannen" und "zu_email" aufzuzeichnen jeweils einem Symbol zuzuordnen und zu verwenden.

Code: Alles auswählen

REM  *****  BASIC  *****

sub scannen 
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:TwainSelect", "", 0, Array())

end sub

sub zu_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:SendMailDocAsPDF", "", 0, Array())

end sub

Es gelingt mir aber nicht, die Ausführung des Dialoges "Scanner" im Makro zu veranlassen. Hier muß ich jeweils selbst auf die Schaltfläche "Scannen" Klicken. Beim Makro "zu_email" ist es genauso.

Kann man die Ausführung des ".uno:TwainSelect" im Makro nicht veranlassen?

[karolus]

Hallo

geht das: ?

Code: Alles auswählen

    REM  *****  BASIC  *****

    sub scannen_und_mailen
    
    rem define variables
    dim document   as object
    dim dispatcher as object
    
    rem get access to the document
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

    
    dispatcher.executeDispatch(document, ".uno:TwainSelect", "", 0, Array())
    dispatcher.executeDispatch(document, ".uno:SendMailDocAsPDF", "", 0, Array())

    end sub

[anton]

Wie soll ich das sagen? Ja und Nein.

Ja: Im Prinzip wird das Makro ausgeführt.

Nein: Ich muß weiterhin die Schaltfläche Scannen bedienen - was ich ja automatisieren wollte. Außerdem wartet das Makro nicht, bis der Scanvorgang abgeschlossen ist und das Ergebnis anzeigt, sondern bringt sofort den E-Mail Dialog, den ich dann auch wieder bedienen muß.

Also insgesamt: NEIN, funktioniert nicht, verwirrt eher in der Bedienung, weil ich darauf kommen muß, auf den Abschluß des Scannens zu warten, obwohl der Dialog zum Senden schon geöffnet ist.