Макрос Excel отправляет расширенную почту, используя LotusNotes - PullRequest
Новая
       7

Макрос Excel отправляет расширенную почту, используя LotusNotes

0 голосов
/ 04 июня 2010

Я работаю над небольшим макросом для отправки почты из Excel 2007, используя мой сеанс Lotus Notes. Часть отправки почты работает нормально. Теперь мне нужно отправить часть тела, часть таблицы стилей (например, область из A1: B20). Эта область имеет цвета, жирный шрифт. Для отправки мне на почту вот код: 

Set oSess = CreateObject("Notes.NotesSession")
Set oDB = oSess.GETDATABASE("", "")
Call oDB.OPENMAIL
flag = True
If Not (oDB.IsOpen) Then flag = oDB.Open("", "")


If Not flag Then
    MsgBox "Can't open mail file: " & oDB.SERVER & " " & oDB.FILEPATH


End If
On Error GoTo err_handler

'Building Message
Set oDoc = oDB.CREATEDOCUMENT



Set oItem = oDoc.CREATERICHTEXTITEM("BODY")


oDoc.Form = "Memo"
'mail subject
oDoc.Subject = "subject"
'mail body
oDoc.sendto = "toto@myserver.com"
oDoc.body = "my text"

oDoc.postdate = Date
oDoc.SaveMessageOnSend = True


oDoc.visable = True
'Sending Message
oDoc.SEND False

Кто-нибудь имеет представление о том, как отправить таблицу стилей?

1 Ответ

0 голосов
/ 15 июня 2011

Вы можете попробовать решение, описанное в этом вопросе SO: Отправка отформатированного электронного письма Lotus Notes с расширенным текстом из Excel VBA

С уважением,

Макс

...