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

Тема в разделе "Lotus - Программирование", создана пользователем Mikhail, 10 май 2007.

Статус темы:
Закрыта.
  1. Mikhail

    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".

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


    Заранее спасибо!
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: Mikhail
    Первое что бросилось: его сначала сохранить надо
     
  3. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Попробуй вместо 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]
    Разве?
     
  4. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: Medevic
    Правда во втором обзце както неоднозначно расписано, вроде как если внести контент то вроде как сохраниться... непонятно :)
     
  5. Mikhail

    Mikhail Гость

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

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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 работал )
     
  7. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--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]
    Если мы отсылаем документ, то сохранять в текущей базе его не нужно.
     
  8. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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]
    хм.... надо будет запомнить :)
     
  9. Mikhail

    Mikhail Гость

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

    Спасибо, Medevic
    Спасибо, Morpheus
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей