Как написать макрос для отправки еmail

[qaz]

Здравствуйте,
имею вот такой макрос из кнопочкой на него:

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SendMail", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$C$12"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

end sub


Он очень удобен в ипользовании. Но всеже помогите его усовершенствовать.
Нужно чтобы он делал следуеще:
-сохранял документ;
-отправлял документ на почту ***"\@gmail.com которая записана в ячейке А2 (без помощи почтового агента если это возможно)
-также создавал тему письма которая соответсвувала ячейке А1 (это не обезательно)

По факту что бы отправка письма происходила одни нажатием на кнопочку)

Неспособен сам найти ответ на такую задачку. Помогите гении!!! =))

[Yakov]

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

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

c= ThisComponent.Sheets(0)
dim argsMail(0) as new com.sun.star.beans.PropertyValue
argsMail(0).Name = "Recipient"
argsMail(0).Value = c.getCellByPosition(0, 1).getString()

dispatcher.executeDispatch(document, ".uno:SendMail", "", 0,argsMail())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$C$12"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

end sub

[qaz]

Yakov огромное спасибо!!! отпишусь про результативность.

С празником вас!