Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > C++ Builder > Работа с почтой


Автор: BeKToP 6.2.2009, 21:42
Здравствуйте. Пишу программу, она посылает и принимает почту (пользуюсь IdPOP3, IdSMPT, IdMESSAGE) не могу найти как прикрепить файл. 

Автор: Alca 7.2.2009, 11:03
TIdAttachment  smile 
Код

procedure TForm1.Button1Click(Sender: TObject);
var
IdAttachment1:TIdAttachment;
begin
IdSMTP1.Host:='smtp.port.net';
IdSMTP1.Username:='[email protected]';
IdSMTP1.Password:='*******';
IdSMTP1.Connect(60000);
//
IdMessage1.CharSet:='UTF-8';
IdMessage1.ContentTransferEncoding:='8bit';
IdMessage1.ContentType:='text/plain'; // Письмо в текстовом виде
IdMessage1.Subject:=AnsiToUTF8('Пересылка письма'); // Тема письма
IdMessage1.Recipients.EMailAddresses:='grig @mail.ru'; // EMail- Кому
IdMessage1.From.Name:=AnsiToUTF8('ОАО ГРИГ'); // От кого - будет в списке писем "от кого"
IdMessage1.From.Address:='[email protected]'; // EMail-От кого;
IdMessage1.Body.Add(AnsiToUTF8('Пересылка письма удалась!'));
//присоединяем файл
IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts, 'e:\файл.txt');
IdAttachment1.FileName:=AnsiToUTF8(att.FileName);
IdAttachment1.ContentType:='Content-Type: text/plain; charset="UTF-8"';

IdSMTP1.Send(IdMessage1);
if IdSMTP1.Connected then IdSMTP1.Disconnect;
end;

P.S. Какой дебилдер?

Автор: Dmi3ev 7.2.2009, 15:26
вот так прикрепляются и отправляются:
Код

//...
if (ListBox1->Items->Count>0)
 {
  //...
  for (int i=0; i<ListBox1->Items->Count; i++)
   {
    //...
     new TIdAttachment(IdMessage1->MessageParts, ListBox1->Items->Strings[i]);
     IdSMTP1->Send(IdMessage1);
    //...
    }
  }
//...

а в ListBox вот так добавляются имена файллов:
Код

void __fastcall TForm1::Button3Click(TObject *Sender)
{
 if (OpenDialog1->Execute())
  {
   Button3->Enabled=false;
   if (OpenDialog1->FileName!="")
    {
     ListBox1->Items->Add(OpenDialog1->FileName);
     OpenDialog1->FileName="";
    }
  }
 Button3->Enabled=true; 
}

Автор: Alca 7.2.2009, 18:37
А если девилдер 2009?  smile 

Автор: Dmi3ev 7.2.2009, 18:51
Цитата

А если девилдер 2009? 

я про 6 писал...  smile 

Автор: Dmi3ev 8.2.2009, 03:49
вот в шестерке так:
Код

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button1->Caption="Отправить";

Form1->IdSMTP1->UserId="dmi3ev";
Form1->IdSMTP1->Password="000000";//пароль
Form1->IdSMTP1->Host="smtp.mail.ru";// сервер
Form1->IdSMTP1->Port=2525;//для smtp.mail.ru, это значение необходимо уточнять (обычно оно просто 25)
Form1->IdSMTP1->AuthenticationType=atLogin;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdSMTP1->Connect();//соединяемся
IdMessage1->Body->Text="Привет, я тебе файл прислал!";//текст письма
IdMessage1->From->Text="[email protected]";//от кого
IdMessage1->Recipients->EMailAddresses="[email protected], [email protected]";//список получателей
IdMessage1->Subject="Проверка";//тема

new TIdAttachment(IdMessage1->MessageParts, "D:\\power.txt");//прикрепляем файл
IdSMTP1->Send(IdMessage1);//отправляем
IdSMTP1->Disconnect();//рвем соединение
}
//---------------------------------------------------------------------------

советы:
1) Текст письма лучше писать в RichEdit и тогда
Код

IdMessage1->Body->Text=RichEdit1->Text;

2) файлы лучше прикреплять с использованием ListBox, см. выше.
Это основы...

Автор: Alca 9.2.2009, 10:32
Меня интересует С++Builder 2009. Делаю так:
Код

void __fastcall TForm1::Button1Click(TObject *Sender) {
    IdSMTP1->AuthType = satDefault;
    IdSMTP1->Host     = L"192.168.1.48";
    IdSMTP1->Port     = 25;

    IdMessage1->Clear();

    IdMessage1->Recipients->EMailAddresses = L"[email protected]";        //EMail- Кому
    IdMessage1->From->Name                 = L"Serg";                //От кого - будет в списке писем "от кого"
    IdMessage1->From->Address              = L"[email protected]";        //EMail-От кого;
    IdMessage1->Subject                    = L"Пересылка письма";    //Тема письма
    IdMessage1->Body->Text                 = L"Пересылка письма удалась!";

    //аттач
    TIdAttachment *pAttach;
    TStringList *pHead = new TStringList;
    IdMessage1->DoCreateAttachment(pHead, pAttach);
    pAttach->FileName                             = L"Test.zip";
    ((TIdAttachmentFile*)pAttach)->StoredPathName = L"C:\\Test.zip";

    IdSMTP1->Connect();
    IdSMTP1->Send(IdMessage1);
    IdSMTP1->Disconnect();
}

Аттачмент (файл) содержит не то имя и не то расширение!!!
Вместо Test.zip получаю  ATT00074.dat. 
Если открыть этот аттач архиватаром, то все открывается номально - архив не битый.
Цель: получить правильное имя файла.

Автор: Dmi3ev 9.2.2009, 13:41
а если попробовать для начала, как я сказал? глупо, конечно, но все же... для спокойствия...
Код

new TIdAttachment(IdMessage1->MessageParts, "D:\\power.txt");

или там такое нельзя делать? я просто в 2009 не работал, только качать собираюсь.

Добавлено через 2 минуты и 1 секунду
А еще попробуй не Indy юзать! такая же шняга?

Автор: Alca 9.2.2009, 13:46
Цитата

Код

new TIdAttachment(IdMessage1->MessageParts, "D:\\power.txt");


Ты думаешь я не пробывал?  smile 
А
Цитата

 еще попробуй не Indy юзать! такая же шняга?

Хочу добить индейцев до конца, если не прокатит буду пробывать другое.

Автор: Dmi3ev 9.2.2009, 14:30
так со всеми файлами, или только с zip?

Автор: Alca 9.2.2009, 14:43
со всеми

Автор: Dmi3ev 9.2.2009, 15:10
как я и думал, это баг Indy. Нужно загрузить новенькое и установить.
чтобы не быть голословным, вот:
http://qc.codegear.com/wc/qcmain.aspx?d=66867

Удачи! за Indy водится такое... Я всегда с недоверием к этим вкладкам отношусь...  

Автор: Alca 9.2.2009, 18:40
Цитата

Нужно загрузить новенькое и установить

И протра..ся недельку.....  smile  smile 
Какие есть альтернативы инди для C++Builder 2009?

Автор: Dmi3ev 9.2.2009, 20:36
Код

Какие есть альтернативы инди для C++Builder 2009?

в шестерке есть NMSMTP и ... на FastNet

Автор: Alca 9.2.2009, 20:56
Эт я знаю.

Автор: Alca 10.2.2009, 17:39
Цитата

http://qc.codegear.com/wc/qcmain.aspx?d=66867
Recompile the .pas and place the dcu (debug and release) in the appropriate directories

Как это .pas перекомпилить?  smile 
P.S. еше не много и  smile 

Автор: BeKToP 11.2.2009, 02:07
У меня Builder 6 в ней все работает нормально, не знал про TIdAttachment(). Спасибо подсказали как надо.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)