Отправить письмо с приложенным файлом через Ole

  • Автор темы Mikhail
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Mikhail

#1
Сделал Агента, который отправляет письмо:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", "c:\1.txt")
doc.Form = "Memo"
doc.SendTo = "Ivan I. Ivanov"
doc.Subject = "То что мы пишем в теле письма"
Call doc.Send( False )

как на основе этого сделать так, чтобы этот код работал через OLE??

Сейчас вылетает в двух местах:
Call doc.Send( False )
и
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", "c:\1.txt")

я так понимаю что он невоспринимает "EMBED_ATTACHMENT" и "False".

Основная задача: отправить письмо с приложенным файлом.


Заранее спасибо!
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Для: Mikhail
Первое что бросилось: его сначала сохранить надо
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#3
Попробуй вместо EMBED_ATTACHMENT - 1454, вместо False - 0

<!--QuoteBegin-Morpheus+10:05:2007, 14:16 -->
<span class="vbquote">(Morpheus @ 10:05:2007, 14:16 )</span><!--QuoteEBegin-->Первое что бросилось: его сначала сохранить надо
[snapback]65436" rel="nofollow" target="_blank[/snapback]​
[/quote]
Разве?
 

morpheus

скриптописец
07.08.2006
3 915
1
#4
Для: Medevic
When you change the value of a NotesRichTextItem object, the change is not written to disk until you call the Save method for the parent NotesDocument.

If you specify a new NotesRichTextItem object but do not add content to it, an item is not created when the document is saved.
Правда во втором обзце както неоднозначно расписано, вроде как если внести контент то вроде как сохраниться... непонятно :)
 
M

Mikhail

#5
Для: Morpheus
Он и так через Агента отправляется, без сохранения. А вот через ОЛЕ глючит. :-(

Для: Medevic
Сейчас попробую.
 

morpheus

скриптописец
07.08.2006
3 915
1
#6
<!--QuoteBegin-Mikhail+10:05:2007, 13:37 -->
<span class="vbquote">(Mikhail @ 10:05:2007, 13:37 )</span><!--QuoteEBegin-->А вот через ОЛЕ глючит.
[snapback]65450" rel="nofollow" target="_blank[/snapback]​
[/quote]
Тьфу, не увидел ОЛЕ... ёпть , да тогда проблема в том что сказал Medevic, так как EMBED_ATTACHMENT константа лотусиная , а False , имхо, мог и так сработать9 по крайней мере в Delphi работал )
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#7
<!--QuoteBegin-Morpheus+10:05:2007, 14:35 -->
<span class="vbquote">(Morpheus @ 10:05:2007, 14:35 )</span><!--QuoteEBegin-->Правда во втором обзце както неоднозначно расписано, вроде как если внести контент то вроде как сохраниться... непонятно blink.gif
[snapback]65449" rel="nofollow" target="_blank[/snapback]​
[/quote]
Если мы отсылаем документ, то сохранять в текущей базе его не нужно.
 

morpheus

скриптописец
07.08.2006
3 915
1
#8
<!--QuoteBegin-Medevic+10:05:2007, 13:44 -->
<span class="vbquote">(Medevic @ 10:05:2007, 13:44 )</span><!--QuoteEBegin-->Если мы отсылаем документ, то сохранять в текущей базе его не нужно.
[snapback]65455" rel="nofollow" target="_blank[/snapback]​
[/quote]
хм.... надо будет запомнить :)
 
M

Mikhail

#9
УрАААА!!! заработало!!!

Спасибо, Medevic
Спасибо, Morpheus
 
Статус
Закрыто для дальнейших ответов.