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

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

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

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 3 »   Вниз
  Печать  
Автор Тема: Создание сообщения Outlook  (Прочитано 21119 раз)
0 Пользователей и 1 Гость смотрят эту тему.
izvne
Участник
**
Offline Offline

Сообщений: 15


« Стартовое сообщение: 4 Март 2013, 14:00 »

Нужно из ОО создать письмо в outlook, указать адресат, прикрепить открытый файл, в теме прописать название файла. И всю эту красоту отправить, а файл закрыть и сохранить. С ОО дружу первые дни только.

Первый путь пример из гайда:
Код:
Sub UseOutlook( )
  Dim oOLEService
  Dim oOutlookApp
  Dim oOutlookMail

  oOLEService = createUnoService("com.sun.star.bridge.OleObjectFactory")
  oOutlookApp = oOLEService.createInstance("Outlook.Application")
  oOutlookMail = OOUTLOOKAPP.CREATEITEM(0)

  oOutlookMail.To = "andrew@pitonyak.org"
  oOutlookMail.Subject = "Test Subject"
  oOutlookMail.Body = "This is my body text for the email message"
  'oOutlookMail.Attachments.Add("C:\foo.txt")

  'oOutlookMail.Display()
  'oOutlookMail.send()
End Sub
Но не завелось.

Второй путь такой:
Код:
sub Main
dim document   as object
dim dispatcher as object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

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

end sub
Но куда здесь подпихнуть адресата  Непонимающий
Записан
Yakov
Администратор
**
Offline Offline

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


WWW
« Ответ #1: 4 Март 2013, 14:15 »

http://forumooo.ru/index.php/topic,2639.0.html
Записан

izvne
Участник
**
Offline Offline

Сообщений: 15


« Ответ #2: 4 Март 2013, 14:30 »

Именно на ту тему и перешел по яндексу. Но не смог разобраться в коде. При тупом копировании выполняет только создание письма с прикреплением файла. Грубо говоря только ".uno:SendMail"

В первом же приведенном мной варианте ругается "Переменная типа Object не установлена." Может, библиотеки не хватает какой =/
« Последнее редактирование: 4 Март 2013, 14:32 от izvne » Записан
Yakov
Администратор
**
Offline Offline

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


WWW
« Ответ #3: 4 Март 2013, 14:40 »

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")


dim argsMail(0) as new com.sun.star.beans.PropertyValue
argsMail(0).Name = "Recipient"
argsMail(0).Value = "my@mail.ru"

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

end sub
« Последнее редактирование: 4 Март 2013, 15:24 от Yakov » Записан

izvne
Участник
**
Offline Offline

Сообщений: 15


« Ответ #4: 4 Март 2013, 14:50 »

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")


dim argsMail(0) as new com.sun.star.beans.PropertyValue
argsMail(0).Name = "Recipient"
argsMail(0).Value = "my@mail.ru"

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

end sub
Спасибо за желание помочь. Но этот кусок я сумел понять и применить )) Как при таком распкладе указать тему письма? И аутлук начинает матюгаться, что стороння программа пытается получить доступ. Просто по событию .uno:SendMail такого не происходит =/
« Последнее редактирование: 4 Март 2013, 15:25 от Yakov » Записан
Yakov
Администратор
**
Offline Offline

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


WWW
« Ответ #5: 4 Март 2013, 15:24 »

Тогда такой код. А в Outlook надо отключит запрос на предупреждение в отправке от имени пользователя.
Код:


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")


dim argsMail(1) as new com.sun.star.beans.PropertyValue
argsMail(0).Name = "Recipient"
argsMail(0).Value = "my@mail.ru"
argsMail(1).Name = "Subject"
argsMail(1).Value = "mySubject"


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

end sub

Записан

ape
Форумчанин
***
Offline Offline

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


« Ответ #6: 5 Март 2013, 08:54 »

Извините, я так и не понял, о чём разговор:
Нужно из ОО создать письмо в outlook, указать адресат, прикрепить открытый файл, в теме прописать название файла. И всю эту красоту отправить, а файл закрыть и сохранить...
Но куда здесь подпихнуть адресата  Непонимающий
Т.е кто есть "Аутлук": OE-6, MSO-2010...
Записан
Yakov
Администратор
**
Offline Offline

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


WWW
« Ответ #7: 5 Март 2013, 09:50 »

в данном контексте
outlook = почтовый клиент по-умолчанию
Это может быть Outlook express, Outlook, Mozilla Thunderbird, ...

Но самый первый код из 1 сообщения

Код:
Sub UseOutlook( ) 
может работать только с Outlook и НЕ БУДЕТ работать с Outlook Express,  Mozilla Thunderbird и т.д.
« Последнее редактирование: 5 Март 2013, 09:53 от Yakov » Записан

ape
Форумчанин
***
Offline Offline

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


« Ответ #8: 5 Март 2013, 12:25 »

Yakov! У меня в дистрибутивах ещё на стадии создания CD "Win_XP.." ОЕ-6 удалён. Это исключает некоторые возможности, например:
- Outlook_XP\2003 не работает;
- Winword_любой не может преобразовать MHT-архивы в текстовые документы..
--
1. Скажется ли такой модинг на Ваших примерах?
2. Работают ли макросы с Оперой?
Записан
Yakov
Администратор
**
Offline Offline

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


WWW
« Ответ #9: 5 Март 2013, 13:17 »

Должен быть  e-mail клиент. Без него работать не будет. Сам OpenOffice/LibreOffice не может работать с почтой без внешнего e-mail клиента.

Записан

izvne
Участник
**
Offline Offline

Сообщений: 15


« Ответ #10: 5 Март 2013, 13:27 »

outlook = почтовый клиент по-умолчанию
Всё верно. Хотя я имел ввиду конкретно Outlook 2010. Есть необходимость юзать ООо для таблиц, т. к. exel постоянно занять выполнением своих макросов.

Код:
Sub UseOutlook( )  
может работать только с Outlook и НЕ БУДЕТ работать с Outlook Express,  Mozilla Thunderbird и т.д.
Почему-то не работает =/ Может, где-то связь надо указать? В строке
Код:
oOutlookMail = OOUTLOOKAPP.CREATEITEM(0)
твердит "Переменная типа OBJECT не установлена."
Записан
Yakov
Администратор
**
Offline Offline

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


WWW
« Ответ #11: 5 Март 2013, 16:59 »

Проверил с Outlook 2003 - работает.
Может быть при установке Outlook не установлен VBA?
Записан

izvne
Участник
**
Offline Offline

Сообщений: 15


« Ответ #12: 5 Март 2013, 17:22 »

Проверил с Outlook 2003 - работает.
Может быть при установке Outlook не установлен VBA?
Да нет, он тоже крутит макросы =/ У вас ООо из коробки? Может, расширения какие или настройки. Вроде уже всё облазил. Ошибку BASIC выдает ООо.
Записан
Yakov
Администратор
**
Offline Offline

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


WWW
« Ответ #13: 5 Март 2013, 17:27 »

Ошибка заключается в невозможности инициализации  OLE объекта Outlook.
Может, в 2010 Outlook поменяли объектную модель?
Я проверял с 2003.
Записан

Hasim
Форумчанин
***
Offline Offline

Сообщений: 754

Woe from wit


« Ответ #14: 5 Март 2013, 21:40 »

oOutlookMail = OOUTLOOKAPP.CREATEITEM(0)

твердит "Переменная типа OBJECT не установлена."

Парадоксы OpenOffice - зависимость от регистра:
Код:
'  oOutlookMail = OOUTLOOKAPP.CREATEITEM(0)    '<- Ошибка!

  oOutlookMail = oOutlookApp.CreateItem(0)     '<- Работает!!!
« Последнее редактирование: 5 Март 2013, 21:44 от Hasim » Записан
Страниц: 1 2 3 »   Вверх
  Печать  
 
Перейти в:  

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