Как отправить файл по почте в АОО 4.1.1?

Автор Игорь, 29 января 2015, 20:36

0 Пользователи и 1 гость просматривают эту тему.

Игорь

Для отправки файла по почте в АОО 3.4.1 использовал createUnoService("com.sun.star.system.SimpleCommandMail"). В АОО 4.1.1 это не работает.
Вопрос: Как отправить файл по почте в АОО 4.1.1?

vladboscaneanu

("com.sun.star.system.SimpleCommandMail")- просто удалили данный сервис.
я работаю с этим кодом

Sub send_email
eMailer = createUnoService( "com.sun.star.system.SystemMailProvider" )
eMailClient = eMailer.queryMailClient
eMailMessage = eMailClient.createMailMessage()
eMailMessage.Recipient = "adress@gmail.com"
eMailMessage.Subject = "Subject Text"
eMailMessage.Body = "Testing body text"
eMailClient.sendMailMessage(eMailMessage,0)
Exit Sub

Игорь

Большое спасибо за помощь. Я ещё дописал eMailMessage.Attachement = vAttach() для отправки файла и всё прекрастно работает.