Как-то не по себе когда решения не найдено. Вот предложу такой вариант.
Проверено на "обычном" ThunderBird, OutlookExpress под Windows XP, Vista, 7
Работает ТОЛЬКО в OpenOffice (даже "Portable"), но ни в каком LibreOffice!
Sub send_email
' Отправляет почту Почтовиком по умолчанию
' Проверено на "обычном" ThunderBird, OutlookExpress под Windows XP, Vista, 7
' Работает ТОЛЬКО в OpenOffice (даже "Portable"), но ни в каком LibreOffice!
' Отправляет интерактивно, с отрытием окна письма в "почтовике" по умолчанию
Dim vAttach(1) ' массив для 2-х вложений (0, 1), если больше - делайте функцией
'eMailer = createUnoService("com.sun.star.system.SimpleCommandMail")
'не сработает нигде, т.к. сервис убран в OpenOffice 4.1.2 и свежих LibreOffice
eMailer = createUnoService("com.sun.star.system.SystemMailProvider")
'это работает в OpenOffice 4.1.2, но НЕ работает в LibreOffice!!!
eMailClient = eMailer.queryMailClient
eMailMessage = eMailClient.createMailMessage()
eMailMessage.Recipient = "pechkin100@mail.ru"
eMailMessage.Subject = "Subject Text"
eMailMessage.Body = "Testing body text"
vAttach(0) = ConvertToUrl("C:\DOWNLOAD\replace.dat")' или "file:///home/.../lalala.txt"
vAttach(1) = ConvertToUrl("C:\DOWNLOAD\replace2.dat")'
eMailMessage.Attachement=vAttach()
eMailClient.sendMailMessage(eMailMessage, 0) ' другие флаги, чтобы убрать появление
'окна почтовика вместо 0 - 1,2, DEFAULTS, NO_USER_INTERFACE, NO_LOGON_DIALOG - ничего
'не дали, окно все равно появляется, но это и не особо напрягает.
End Sub