[es] - [BCB] - Slanje e-mail poruke Indy komponentama

itf
Zagreb

Član broj: 59794
Poruke: 993
161.53.237.*

+9 Profil

[BCB] - Slanje e-mail poruke Indy komponentama

^{28.01.2008. u 14:46 - pre 197 meseci}

Mislim da bi ovo mnogima moglo poslužiti, a pogotovo onima koji koriste Borlandove C++ razvojne alate. Evo kako bi poslali e-mail poruku pomoću Indy komponenti, a da ona u sebi može sadržavati i attachment (prilog):

Na formu postavite TIdSMTP(SMTP1) i TIdMessage(M1) komponentu. Dodajte i sljedeće TEdit komponente (opcionalno):

ESMTP - lokacija smtp servera
EPort - port za smtp (25)
ESubject - subject poruke
ESalje - tko šalje poruku (povratna e-mail adresa)
Memo1 - tekst poruke
EPrilog - puna lokacija datoteke koja se šalje kao prilog (attachment)

...i naravno gumb Button1 kojim ćemo aktivirati slanje e-maila.

Code:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TIdAttachment *Prilog;

    SMTP1->Host = ESMTP->Text;
    SMTP1->Port = StrToInt(EPort->Text);

    M1->Subject = ESubject->Text;
    M1->From->Address = ESalje->Text;
    M1->Body->Add(Memo1->Text);
    M1->Recipients->EMailAddresses = EPrima->Text;

    if(EPrilog->Text.Length() > 0)
        Prilog = new TIdAttachment(M1->MessageParts, EPrilog->Text);
    try
    {
        SMTP1->Connect();
        SMTP1->Send(M1);
    }
    catch(Exception &e)    {
        MessageBox(0, e.Message.c_str(),0,0);
    }
    SMTP1->Disconnect();
    if(EPrilog->Text.Length() > 0)
        delete Prilog;
}

...a ovo je source code.

Odgovor na temu