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

[Mikhail]

Сделал Агента, который отправляет письмо:
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]

Для: Mikhail
Первое что бросилось: его сначала сохранить надо

 

[Medevic]

Попробуй вместо 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]

Для: 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.

Правда во втором обзце както неоднозначно расписано, вроде как если внести контент то вроде как сохраниться... непонятно

 

[Mikhail]

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

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

 

[morpheus]

<!--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]

<!--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]

<!--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]
хм.... надо будет запомнить

 

[Mikhail]

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

Спасибо, Medevic
Спасибо, Morpheus