Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

21 Октябрь 2019, 16:05 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Как написать макрос для отправки еmail  (Прочитано 7018 раз)
0 Пользователей и 1 Гость смотрят эту тему.
qaz
Новичок
*
Offline Offline

Сообщений: 2


« Стартовое сообщение: 27 Апрель 2012, 17:49 »

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

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
Администратор
**
Offline Offline

Сообщений: 2 439


WWW
« Ответ #1: 30 Апрель 2012, 23:22 »

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
Новичок
*
Offline Offline

Сообщений: 2


« Ответ #2: 1 Май 2012, 09:38 »

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

С празником вас!
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!