Отправка мыла

Тема в разделе "Delphi - Сети", создана пользователем vital, 2 янв 2007.

  1. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Все осложнено тем, что мне нужно отправить письмо из консольной программы, плюс нужно отправить сообщение с количеством вложений намного >1(т.е дофига).
    Mapi не подходит сразу же т.к нет гарантии что он будет настроен.
    Я хотел динамически создать компоненты от Indy(IdSmtp,IdMessage,IdAttachment) но мне не дошло как отправить больше одного вложения в письме.
    Помогите кто чем может..
    ЗЫ.
    У меня D2006 и Indy 10.
     
  2. Barmutik

    Barmutik Гость

    Ну так и вчём проблема ? Создавайте атачменты и цепляйте их к TIDMessage .. приведите Ваш код.. в чём конкретно проблема?
     
  3. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Проблема в том, что работать с этими компанентами мне ещё не приходилось, а потому я не совсем в курсе как отправить кучу вложений..
    код..ну..что-то в духе..
    Код (Text):
    {...}
    usprof:=GetEnvironmentVariable('USERPROFILE')+'\';
    flisttxt:=TStringList.Create;
    FindFiles(usprof+'путь','*.txt',flisttxt); //процедурка ищет все файлы подоходящие маске в дереве папок начиная от указанной
    //далее
    smtp:=TIdSMTP.Create;
    smtp.Host:='mail.tut.by';
    smtp.Password:='пароль';
    smtp.Username:='vitalyhome@tut.by';
    msg:=TIdMessage.Create;
    msg.Subject:='Message from AL';
    msg.From.Text:='от кого';
    msg.Recipients.Add;
    msg.Recipients.Items[0].Text:='кому';
    atch:=TIdAttachment.Create(nil);
    { а вот тут у меня трабла.. нуна что в духе}
    for I := 0 to fListtxt.Count - 1 do
    begin
    {добавляем атачмент путь к которому flisttxt.strings[i]}
    end;
    smtp.connect;
    smtp.send(msg);
    {...}
     
  4. Barmutik

    Barmutik Гость

    Ну так у Вас всё пои готово . тоьлко чсутка поправить... вот так:

    Код (Text):
    AAttach: TIDAttachment;
    AMessage: TIdMessage;
    .....

    for I := 0 to fListtxt.Count - 1 do
    begin
    AAttach := TIDAttachment.Create(AMessage.MessageParts, fListtxt[I]);
    AAttach.FileName := fListtxt[I];
    end;
     
  5. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Спасибо.
     
Загрузка...
Похожие Темы - Отправка мыла
  1. k85
    Ответов:
    4
    Просмотров:
    112
  2. k85
    Ответов:
    10
    Просмотров:
    883
  3. motogarri
    Ответов:
    4
    Просмотров:
    794
  4. JohnLemon
    Ответов:
    18
    Просмотров:
    1.581
  5. erdi
    Ответов:
    3
    Просмотров:
    1.387

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