E-Mail vom Programm senden

[Helmi]

Hallo,

schau doch mal bei: swissdelphicenter nach

und such dort nach Mail.

Die haben einiges um Mails senden zu können.

mfg
Helmi

[Duffy]

Hallo alle zusammen,
es geht natürlich auch über "MAPI", siehe Anhang ...

bye
Claus

[Äfan]

@Duffy: Danke, geht aber über den Outlook express.

@Helmi: Jo volltreffer, wenn das dass is was ich suche und es auch geht, dann ist es ja ganz einfach.

MDF

[Duffy]

Hallo Äfan,
wenn Du Mails direkt versenden willst, sind die Indy's die bessere Wahl.


bye
Claus

[Äfan]

@Duffy: Ja will ich. OK aber trotzdem Danke. :thumb:

[Äfan]

Oh, habe doch ein Problem:

Ich habe jetzt diese möglichkeit versucht http://www.swissdelphicenter.ch/de/showcode.php?id=117 . Man braucht allerdings FastNet und des hab ich net, und es soll nur bei Delphi 4-5 Professional und Enterprise dabei sein. Wie kann ich das selbe mit Indy machen ?

[CenBells]

hi,

du brauchst ne komponente idSMTP und eine komponente namens idMessage.
Der Rest geht relativ analog.
Absenden der nachricht machst du mit

Delphi-Quellcode:

idSMTP.send(idMessage);

Gruß
ken

[Äfan]

Wie würde dann folgender code mit idSMTP und idMessage aussehen ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host   := 'mail.host.com';
  NMSMTP1.UserID := 'Username';
  NMSMTP1.Connect;
  NMSMTP1.PostMessage.FromAddress       := '[e-mail]';
  NMSMTP1.PostMessage.ToAddress.Text    := '[e-mail]';
  NMSMTP1.PostMessage.ToCarbonCopy.Text := '[e-mail]';
  NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := '[e-mail]';
  NMSMTP1.PostMessage.Body.Text         := 'This is the message';
  NMSMTP1.PostMessage.Attachments.Text  := 'c:\File.txt';
  NMSMTP1.PostMessage.Subject           := 'Mail subject';
  NMSMTP1.SendMail;
  ShowMessage('Mail sent !');
  NMSMTP1.Disconnect;
end;

MFG

[Kernel32.DLL]

Auch wenn ich dir nicht den Spaß an der Freude nehmen will:

Hier gibbet wunnerbare Demos:

http://www.atozed.com/indy/Demos/Indy9.iwp

Is' für die Indys Ver. 9, gibt auf der Seite auch was für die 10er

[Äfan]

Naja, also die demo funktioniert irgendwie net, also das prog starten, aber kann nix senden. Wenn mir jemand den code da oben umproggen kann, dass er mit indy geht, wär das perfekt :thumb: :-D :wink: