Добрый день.
Прошу помочь. Есть функция отправки писем через 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
|
Заранее спасибо!