E-mail senden

[Landfloh]

Hallo

Ich habe mal eine Frage.
Ist es möglich das man wenn man auf einen Button klickt eine Nachricht per E-mail an eine E-mail Adresse schickt?

Gruß Landfloh

[mkinzler]

Ja du benötigst eine SMTP-Client Komponente z.B. TidSMTP bei den INDYs

[Landfloh]

Tut mir leid aber da blick ich nicht mehr durch. :wiejetzt:

[mkinzler]

http://www.delphi-treff.de/tutorials...2/indy/page/8/

[Landfloh]

Bei mir funktioniert dass nicht :?:

[mkinzler]

Zitat:

Zitat von Landfloh

Bei mir funktioniert dass nicht :?:

Bitte nicht so genau :zwinker:

[Kroko1999]

schau mal, was ich hier gepostet habe, die Suche hätte das bestimmt auch ausgespuckt, :gruebel:

[Landfloh]

[Fehler] Unit1.pas(29): Undefinierter Bezeichner: 'SmtpAuthType'
[Fehler] Unit1.pas(30): Undefinierter Bezeichner: 'SMTP'
[Fehler] Unit1.pas(30): Undefinierter Bezeichner: 'atNone'
[Fehler] Unit1.pas(31): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(31): Undefinierter Bezeichner: 'atLogin'
[Fehler] Unit1.pas(35): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(35): 'END' erwartet, aber '@' gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

OK! ist ja gut! :snowball:

[Kroko1999]

[gelöscht] man sollte mal auf die Zeit schauen!

[RavenIV]

Du kannst auch den Standard-Emailclient dazu verwenden, um eine neue email zu erstellen.

Ich hab hier ein TLabel (LaEmail), in dem der Empfänger steht.
Bei einem Click darauf wird der Standard-Emailclient (Outlook oder sowas) veranlasst, ein neues Email zu erstellen.
Dort sind dann schon Empfänger und Betreff ausgefüllt.

Delphi-Quellcode:

procedure TFoAboutBox.LaEmailClick(Sender: TObject);
begin
  ShellExecute(0, nil, PChar('mailto:' + (Sender as TLabel).Caption + '?subject=' + fVersInfo.sProductName + ' / ' + fVersInfo.sFileVersion + '&body=' + ''), nil, nil, SW_NORMAL);
end;

[Larsi]

Kann man eigentlich Outlook da auch irgendwie ausbleden beim Senden? nee, oder???

[Bernhard Geyer]

Zitat:

Zitat von Larsi

Kann man eigentlich Outlook da auch irgendwie ausbleden beim Senden? nee, oder???

Ausblenden (direktes senden über MAPI) ja, aber dann kommt die schönee Sicherheitsmeldung das unbekanntes Programm email senden will (was uns diverse VB-Script-Kiddies und Spam-Maffia eingebrockt hat).

[RavenIV]

Zitat:

Zitat von Larsi

Kann man eigentlich Outlook da auch irgendwie ausbleden beim Senden? nee, oder???

Also wenn ich bei mir das Outlook geschlossen habe und auf meinen Label klickt, dann geht das Fenster zum eine neue Email schreiben auf und Empfänger + Betreff sind ausgefüllt.
Dann klicke ich auf "Senden", das email-Fenster geht zu.
Weiter gehen sonst keine Fenster auf.

[mkinzler]

Ich vermute er will das eine Mail gesendet wird, un nicht das Standard-Emailprogramm öffnen.

[RavenIV]

Zitat:

Zitat von mkinzler

Ich vermute er will das eine Mail gesendet wird, un nicht das Standard-Emailprogramm öffnen.

Dann wird er wohl am Besten selbst einen Email-Cleint schreiben.
Bevorzugt mit den Indy-Komponenten oder mit JVCL.

[Landfloh]

Wo find ich den diesen LaEmail?

Oder ist ein ganz gewönlicher gemeint? :?:

[DeddyH]

Zitat:

Zitat von RavenIV

Ich hab hier ein TLabel (LaEmail), in dem der Empfänger steht.

:zwinker:

[BullsEye]

Ich hab ma nen altes Prog wieder ausgegraben und hochgeladen! Ich denke das erklärt das von deddydH ein wenig besser!

[Landfloh]

Vielen Dank an alle! :oops: :thumb: :spin2:

Landfloh :dancer: :dancer2: