TÉMA:

A fórumok egyik erőssége pont az, hogy többeknek nyújthatnak megoldást hasonló gondokra, nem csak a kérdést feltevőnek, függetlenül attól, hogy mikori a kérdés, vagy az arra adott válasz.
S talán én sem vagyok egyedül azzal az élményemmel, hogy egy több éve feltett kérdésre adott válaszban találtam meg a megoldást a problémámra.

Látom nem nagyon zavar titeket, hogy egy 2008-ban nyitott kérdésre adtok választ. Így 5 év után biztos szüksége van még rá a kérdezőnek .

Egy másik lehetőség (Windows alatt), hogy az alapértelmezett levelezőt hívod meg:

---

var string ls_nl, ls_program, ls_parameter, ls_mailto, ls_subject, ls_body: String;

ls_nl := '%0A';
ls_program := 'rundll32.exe';
ls_parameter := 'url.dll,FileProtocolHandler ';
ls_mailto := 'Ez az e-mail-cím a szpemrobotok elleni védelem alatt áll. Megtekintéséhez engedélyeznie kell a JavaScript használatát.';
ls_subject := '?subject=A levél tárgya';
ls_body := '&body=Tisztelt Cím!' + ls_nl+ls_nl;
ls_body := ls_body+'Ez a levél első sora.' + ls_nl;
ls_body := ls_body+'Ez meg a második' +ls_nl;
ls_body := ls_body+'...és így tovább...' + ls_nl+ls_nl;
ls_parameter := ls_parameter + '"' + ls_mailto + ls_subject + ls_body + '"';
ls_parameter := UTF8ToAnsi( ls_parameter );
ShellExecute(Handle, 'open', PChar(ls_program), PChar(ls_parameter), nil, 5);

---

Itt a küldés nem automatikus, hanem a felhasználónak kell a levelezőben megjelenő kész levelet elküldenie.

Egy konkrét példa (nem saját szerzemémy, de már nem tudom, honnan vadásztam le, régen volt...)

---

Uses IdSMTP, IdMessage
//Indy10 package

Var
SMTP: TIdSMTP;
MailMessage: TIdMessage;
Begin
SMTP := TIdSMTP.Create();
MailMessage := TIdMessage.Create();

SMTP.Host := 'smtp.mailserver.com'; //Az SMTP server
SMTP.Port := 25;
SMTP.Password := 'userpassword'; //jelszó, bejelentkezéshez, az SMTP serverre
SMTP.Username := 'username'; //név, bejelentkezéshez, az SMTP serverre
MailMessage.From.Address := 'Ez az e-mail-cím a szpemrobotok elleni védelem alatt áll. Megtekintéséhez engedélyeznie kell a JavaScript használatát.';
MailMessage.Recipients.EMailAddresses := 'Ez az e-mail-cím a szpemrobotok elleni védelem alatt áll. Megtekintéséhez engedélyeznie kell a JavaScript használatát.';
MailMessage.Subject := 'Ez a levél tárgy';
MailMessage.Body.Text := 'Ez maga az üzenet.';
Try
try
SMTP.Connect();
SMTP.Send(MailMessage);
except
SMTP.Destroy;
MailMessage.Destroy;
MessageBox( 0, 'A levél elküldése sikertelen!', 'Hiba!', MB_OK );
end;
finally
if SMTP.Connected then Begin
SMTP.Disconnect;
SMTP.Destroy;
MailMessage.Destroy;
MessageBox( 0, 'A levelet elküldtem.', 'Minden rendben', MB_OK );
End;
end;

Result := 0;
End;

---

(Az SMTP server lehet pl. az, amit a saját leveleződ használ.)
A kód működéséhez feltétel, hogy legyen élő internet-kapcsolata a számítógépnek; ha nincs, nem jelentkezik fel magától.

Esetleg ezt nézd meg:

prog.hu/tudastar/159018/Lazarus+LNet+vagy+mail+kuldes.html

Udv, Indy componenssel lehet levelet kuldeni.

Lazarusban írt programmal szeretnék levelet küldeni. Csak nem tudom hogyan kell. Van esetleg valami komponens hozzá?