E-mail küldési segítség

E-mail küldési segítség
2006-06-08T14:55:21+02:00
2006-06-09T15:36:21+02:00
2022-10-31T05:00:44+01:00
zerocool
Sziasztok! Tudom hogy sok ilyen téma van a tudástárban, de ilyet nem nagyon találtam. E-mailt próbáltam küldeni az alapértelmezett e-mail programmal, de szeretnék még valamit.
A kódom eddig ilyen:

procedure TForm1.Button1Click(Sender: TObject); var y: string; begin y:=Edit1.Text; ShellExecute(Application.Handle,'Open','MailTo:kovaribence@citromail.hu?Subject=lol&Body=hello',nil,nil,sw_show) end; end.

Én azt szeretném, ha rámegyek a Button1-re, akkor ne csak nyissa meg az outlookomat ezekkel a beirt adatokkal, hanem küldje is el az e-mailt. Ja, és még azt is, hogy az y változo az az Edit1.Text. Amit oda beirok, az legyen az e-mail szövege.

Várom segítségeteket!
Mutasd a teljes hozzászólást!
Leszedsz egy Indy csomagot, ha nincs a Delphidben (nem tom milyen delphid van), felrakod, egy IdSmtp-t nyomsz a formra, majd egy Buttont, a köv. kóddal:

IdSMTP1.QuickSend('smtp.t-online.hu','tárgy','neki@neki.hu','tolem@tolem.hu','szöveg');
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd