нужно отправить письмо на мэйл получателя

[Азамат Казанчев]

что прописать? я не понял

[Zer0]

IdMessage1->Body->Text=Memo1->Text;

IdSMTP1->Connect();
if (IdSMTP1->Connected())

[Азамат Казанчев]

написал, выдает ошибку Socket Error # 11004

[Азамат Казанчев]

ответьте если можете, срочно надо!.......Горю!!!!!

[Zer0]

проверьте все ли настройки для сервера (порт, адрес, логин и пароль) верно заполнены

[Азамат Казанчев]

.....отправляю письмо с мэйла на мэйл........

[Азамат Казанчев]

в программе все прописано как сами видите. может что-то в настройках поменять

#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)
{
IdSMTP1->Host="smtp.mail.ru";
IdSMTP1->Port=25;
IdSMTP1->UserId="power@mail.ru"; //свой логин
IdSMTP1->Password="свой пароль"; //свой пароль
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdMessage1->From->Text=Edit1->Text;
IdMessage1->Recipients->EMailAddresses=Edit2->Text;
IdMessage1->Subject=Edit3->Text;
IdMessage1->Body->Text=Memo1->Text;
IdSMTP1->Connect();  
if (IdSMTP1->Connect()) 
    IdSMTP1->Send(IdMessage1);
    else
    IdSMTP1->Disconnect();

}

[Zer0]

AuthenticationType какой стоит у idsmtp? попробуйте с ним поиграться

[Азамат Казанчев]

срочно....срочно.....срочно надо!!!!!!!!!!!!

[Zer0]

если мне не изменяет память то у мэйла требуется проверка, то есть нуэно еще добавить

idSMTP1->AuthenticationType = atLogin;

но я могу ошибиться