Email Küldés Delphi XE-ben probléma

Keresés
Hírlevél
 
ASPC#C++CSSDelphiFlashJavaJavaScriptPascalPerlPHPPythonuniPaaSVisual BasicVisual C++  »    
nyitotta: ctmmisu, idő: 2012.07.14., moderátor: netangel, megoldás elfogadva: 2012.07.18. 16:22
  Értesítés változás esetén Felvétel kedvencekhez Küldés emailben

Kategóriák:Programozási nyelvek » Delphi

Sorrend:
Időzóna:
Blokkméret:
Oszd meg!
Sziasztok,
Segítséget szeretnék kérni, ezzel az egyszerű függvénnyel szeretnék e-mail-t küldeni ami megy is, de nem tudom hozzá csatolni a kívánt mellékletet.

ShellExecute(Self.Handle,
nil,
'mailto:' +
'me@me.com' +
'?Subject=Test Message Subject' +
'&Body=Test Message Body' +
'&Attach="c:\csat.txt"',
nil,
nil,
SW_NORMAL);

Mit ronthatok el... az E-mail bejön, cím, tárgy OK a csatolmány sehol.

Köszönöm.

Köszönöm: Tivadari Misu


De nem működik, mi lehet benne hibás

Nagyon fáradt lehetsz! Szerintem elfelejtetted megadni a címzettet :) Nem hoztad létre az objektumot, nem is szabadítottad fel, smtp-t sem adtál meg, esetleg a tárgy, és a mail body lehet szükséges :D:D


előzmény
http://support.embarcadero.com/article/36054

előzmény
Ez a fuggveny az alapertelmezett email clienst hivja meg.Ha ez nalad az outlook expressz,az pl nem tamogatja az attach parancsot.
Szoval elvileg ez mukodik,de bizonytalan.Hasznald inkabb Madamm javaslatat,az megbizhatobb. előzmény
Köszönöm Madamm,
Delphi 2006 alatt ez működik de az XE alatt nem, most megpróbálom átdolgozni, remélem sikerül, nagyon kellene.

Köszönöm. előzmény
XE alá:
http://docwiki.embarcadero.com/CodeSamples/en/TSendMail_(Delphi)

előzmény
Ez nagyon jónak tűnik... írtam is egy kis alapot.

procedure TMainForm.BitBtn1Click(Sender: TObject);
Var
SendMail1 : TSendMail;
begin
if OpenDialog1.Execute then
if FileExists(OpenDialog1.FileName) then
begin
SendMail1.Attachments.Add(OpenDialog1.FileName);
SendMail1.Execute;
end
else
raise Exception.Create('No such file');
end;

De nem működik, mi lehet benne hibás.
DELHI XE Prof. rendszerrel dolgozom.

Nagyon köszönöm.
T. Misi előzmény
A Delphi XE nem arról híres, hogy már kitalálja a használójának a gondolatait, és ezt alapból titokban lekódolja? előzmény
Az a Xe2 előzmény
Köszönöm,
Átnéztem és meg lett baja és működik a levél küldés ahogy írtad.
Köszönöm, el is fogadtam megoldásnak mert az is volt.

Köszönöm. T. Misu előzmény
Na jó .... de akkor milyen fejlesztést tettek az XE3-ba? előzmény
Oszd meg!