вот в шестерке так:
| Код |
//---------------------------------------------------------------------------
#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="dmi3ev@mail.ru";//от кого
IdMessage1->Recipients->EMailAddresses="dmi3ev@mail.ru, lexa@mail.ru";//список получателей
IdMessage1->Subject="Проверка";//тема
new TIdAttachment(IdMessage1->MessageParts, "D:\\power.txt");//прикрепляем файл
IdSMTP1->Send(IdMessage1);//отправляем
IdSMTP1->Disconnect();//рвем соединение
}
//---------------------------------------------------------------------------
|
советы:
1) Текст письма лучше писать в RichEdit и тогда
| Код |
IdMessage1->Body->Text=RichEdit1->Text;
|
2) файлы лучше прикреплять с использованием ListBox, см. выше.
Это основы...
|
