Письмо с аттачем

Тема в разделе "Lotus - Программирование", создана пользователем bigbugzy, 18 авг 2008.

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

    bigbugzy Гость

    Помогите плиз новечку!
    из COM пытаюсь создать письмо с аттачем
    Код (Text):
    procedure TForm1.Button1Click(Sender: TObject);
    Var nc:OleVariant;
    doc:OleVariant;
    rt:OleVariant;
    db:OleVariant;
    begin
    nc:=CreateOleObject('Lotus.NotesSession');
    nc.Initialize(Pass);
    db:=nc.GetDatabase(server,'names.nsf',false);
    doc:=db.CreateDocument;
    doc.ReplaceItemValue('Form','MEMO');
    doc.ReplaceItemValue('Subject','test');
    rt:=doc.CreateRichTextItem('Body');
    rt.AppendText('Test message');
    rt.EmbedObject(1454,'',FileName);
    end;
    не получается. Пишет что Вы не имеете права выполнять эту операцию.
    Просто приаттачить файл к письму в клиенте дает.
    Что я не так делаю?
     
  2. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Возможно, не с той базой работаешь?
     
  3. D!m@n

    D!m@n Гость

    Нет прав на создание документов в names.nsf?
    А без приаттачивания файла работает?
    Кстати, а зачем вообще это письмо создавать в Domino Directory? Нет, я понимаю, конечно, что его никто сохранять не собирается... Но мало ли какой мусор может остаться от неудачных отработок программы.
    Кстати, не забудьте заполнить поле SendTo (CopyTo/BlindCopyTo/Recipients) и вызвать метод NotesDocument.Send. Сейчас у Вас этого нет.
     
  4. morpheus

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

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    bigbugzy
    да и на какаой строке? может даже и инициализация не проходит?Отправки точно нету. И вообще как заметили выше - нафиг лезть в серверную АК
     
  5. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    ну че вы набросились, видать человек пока не знает какая база для чего служит... ;)
     
  6. bigbugzy

    bigbugzy Гость

    без аттача все проходит, просто текст отправляется нормально
    doc.ReplaceItemValue('SendTo',SendTo);
    doc.Send(false);
    это есть
    как создать письмо не в серверной АК??

    лотус вижу второй день только ;)
     
  7. morpheus

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

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    bigbugzy
    прконектиться к локальной(не указывать имя сервера) АК или почте.

    а что у Вас в переменнной FileName ?

    //лотус вижу второй день только
    как для 2го дня неплохие результаты
     
  8. bigbugzy

    bigbugzy Гость

    rt.EmbedObject(1454,'',FileName);
    вот на этой строчке пишет отлуп

    в FileName путь к файлу 'C:\myFile.xls'

    Большое спасибо! получилось! ;)
     
Загрузка...
Статус темы:
Закрыта.

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