Прикрепление файла к письму

Всем привет!!! как можно прикрепить файл к письму (слышал про какой то Atachment но как его использовать не знаю) подскажите как это сделать или предложите свой вариант. вот код отправки письма без прикрепления файла


IdSMTP1->Host="smtp.mail.ru";
IdSMTP1->Port=25;
IdSMTP1->Username="fsdol_sex";
IdSMTP1->Password="********";
IdMessage1->From->Address="fsdol_sex@mail.ru";
IdMessage1->Body->Text="раповалвапловрпвалыв";
IdMessage1->Subject="Тема";
IdMessage1->Recipients->EMailAddresses="RRIXAKERRR@mail.ru";
IdSMTP1->Connect();
IdSMTP1->Send(IdMessage1);
IdSMTP1->Disconnect();

Добавлено через 20 часов 27 минут
Тут что вообще ни одного программиста нету!!!

2

Отправка файла на emeil

1

создаю new TIdAttachment(IdMessage1->MessageParts,Edit1->Text);
ругается
---------------
[BCC32 Error] Unit1.cpp(38): E2352 Cannot create instance of abstract class 'TIdAttachment'
[BCC32 Error] Unit1.cpp(38): E2353 Class 'TIdAttachment' is abstract because of '_fastcall TIdAttachment::OpenLoadStream() = 0'
---------------
сделал вот так IdMessage1->MeesageParts, Edit1->Text; компилирует, прога работает но файл не отправляет...
Я даже не знаю что уже делать(((((...может это вообще не реально сделать???

2

Всё с кодом разобрался только при отправке майл говорит что это спам, почему так происходит???

Миниатюры

 

1

адрес у тебя спамовый, и попробуй

IdMessage1->Subject="Microsoft. Your software update";

0

Блин всё равно не получается, ругается на спам(((((((

2

Может из-за MailAgent? Только не знаю, какое должно быть значение, чтобы сервер плохого не подумал. Попробуй прописать "Microsoft Outlook Express".

0

Всё равно не получается гляньте на код может я что то не то написал
на форму присутствуют два компонента IdSMTP1 и IdMessage1

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "IdAttachmentFile.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "IdBaseComponent"
#pragma link "IdComponent"
#pragma link "IdExplicitTLSClientServerBase"
#pragma link "IdMessage"
#pragma link "IdMessageClient"
#pragma link "IdSMTP"
#pragma link "IdSMTPBase"
#pragma link "IdTCPClient"
#pragma link "IdTCPConnection"
#pragma link "IdAttachmentFile"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdSMTP1->Host="smtp.mail.ru";
IdSMTP1->Port=25;
IdSMTP1->Username="логин";
IdSMTP1->Password="пароль";
IdMessage1->CharSet="KOIR-8";
IdMessage1->From->Address="ot_@mail.ru";
IdMessage1->Body->Text="Hello!!!";
IdMessage1->Subject="Microsoft Outlook Express";
new TIdAttachmentFile(IdMessage1->MessageParts,"C:\\1.rar");
IdMessage1->Recipients->EMailAddresses="komu_@mail.ru";
IdSMTP1->Connect();
IdSMTP1->Send(IdMessage1);
IdSMTP1->Disconnect();
Form1->Close();
}

всё запускается нажимают на кнопку жду и после билдер ругается, ошибка находится вверху там я картинку скидывал....
подскажите мож я что то не то всё таки делаю.................

Добавлено через 7 часов 5 минут
Всё разобрался))) всем спасибо!!!

1

поделись опытом - в чем дело было ?

0

да всё очень просто, с майла на майл отправлял бидер ругался, с яндекса на майл отправил всё заработало.....майл какой то дибильный, для него любое сообщение со вложением это спам. У майла фильтр кривой

2

А если через почтовый клиент отправить с этими же настройками?
выше писал насчет MailAgent - он проставлен в свойствах IdSMTP1->MailAgent="Microsoft Outlook Express"; ?

Добавлено через 22 минуты
Только что проверил с майла на майл. Ошибок не было.

0

А куда именно писать этот код?

1

MailAgent оказывается не нужно указывать, без него норм отправляет.
Я использовал твой код, только у меня Builder6 - немного по-другому:

0

Ну самое главное работает), зайди на таксбар мож поможешь чем нить

1