[utenti] comando SendMail

[iagnelli]

Buongiorno,

 

con la macro sotto riportata:

 

 

REM ***** Invia documento *****

 

sub Main

rem -------------------------------------------------------------

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:SendMail”, “”, 0, Array())

 

end sub

 

ottenuta col registratore di OpenOffice, provoco l’apertura della finestra
messaggio di outlook con allegato il documento corrente (un report di Calc
nel quale è contenuto anche l’indirizzo mail del destinatario).

Esiste un codice semplice per recuperare l’indirizzo, inserirlo nella mail e
inviarla automaticamente?

 

Grazie