1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

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

    bigbugzy Гость

    Репутация:
    0
    Помогите плиз новечку!
    из COM пытаюсь создать письмо с аттачем
    Код:
    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

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

    D!m@n Гость

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

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

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

    Akupaka А че я?.. О.о

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

    bigbugzy Гость

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

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

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

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

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

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

    bigbugzy Гость

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

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

    Большое спасибо! получилось! ;)
     
Загрузка...
Похожие Темы - Письмо аттачем
  1. Shandrik
    Ответов:
    18
    Просмотров:
    153
  2. valmont
    Ответов:
    3
    Просмотров:
    113
  3. k85
    Ответов:
    8
    Просмотров:
    188
  4. puks
    Ответов:
    0
    Просмотров:
    254
  5. vital
    Ответов:
    6
    Просмотров:
    1.125
Статус темы:
Закрыта.

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