Страницы: 1
RSS
Вставить картинку в тело письма Lotus Notes, вставка в тело письма картинки из определенного диапазона
 
Добрый день.

Прошу помочь. Есть функция отправки писем через Lotus Notes. Но не могу понять как в тело письма крепить картинку, например копию определенного диапазона ячеек, либо диаграмму.
Код
Public Function Local_mail( _
ByVal MyAtt As Variant, _
ByVal MyTheme As String, _
ByVal MyText As String, _
ByVal StrSendTo As Variant, _
ByVal StrCopyTo As Variant, _
StrBCC As Variant)

'MyAtt - вложение
'MyTheme - тема
'MyText - текст письма
'StrSendTo - кому
'StrCopyTo - копия
'StrBCC - Скрытая копия

Dim notesdb As Object
Dim notesdoc As Object
Dim notessession As Object
Set notessession = CreateObject("Notes.notessession")
Set notesdb = notessession.GETDATABASE("", "")

t = StrSendTo
y = MyAtt
StrSendTo = Split(StrSendTo, ",")
StrCopyTo = Split(StrCopyTo, ",")
StrBCC = Split(StrBCC, ",")
MyAtt = Split(MyAtt, ",")

Call notesdb.OPENMAIL
Set notesdoc = notesdb.CREATEDOCUMENT
Call notesdoc.replaceitemvalue("Sendto", StrSendTo)
Call notesdoc.replaceitemvalue("Copyto", StrCopyTo)
Call notesdoc.replaceitemvalue("BlindCopyto", StrBCC)
Call notesdoc.replaceitemvalue("Subject", "ДРНА Report: " & MyTheme)

Set notesrtf = notesdoc.CREATERICHTEXTITEM("body")

 If y <> "" Then
  For i = 0 To UBound(MyAtt)
  If MyAtt(i) <> "" Then
  Call notesrtf.EMBEDOBJECT(1454, "", MyAtt(i))
  End If
  Next i
 End If

 Call notesrtf.AddNewLine(2)
 Call notesrtf.AppendText(MyText)
notesdoc.DeliveryReport = "a"         '-----------Запрос уведомления о доставке адресату
notesdoc.ReturnReceipt = "1"          '-----------Запрос уведомления о прочтении письма адресатом
  notesdoc.SAVEMESSAGEONSEND = True     '-----------Сохранять или нет в папке "Отправленные"
  notesdoc.SignOnSend = True             '---------подписывать
  notesdoc.Importance = "1"              '---------важность док-та(Высокая = 1, Обычная = 2, Низкая = 3)
  'notesdoc.EncryptOnSend = True          '---------шифровать
 Call notesdoc.send(False)
 Set notessession = Nothing
End Function


Заранее спасибо!
 
Ну же, гуру VBA, выручайте :(
Страницы: 1
Наверх