![]() |
Delphi Email
kann man sich von einem delphi programm durch einen klick auf den button eine email zuschicken lassen mit anhang eines bildes?
|
Re: Delphi Email
Kommt drauf an, wie du das haben willst.
Email schicken über ein anderes EMailprogramm? -> ShellExecute(0, 'open', 'mailto:bla@blub.de' usw); -> MAPI EMail schicken über eigenes Programm: -> Indys -> Diverse Komponenten |
Re: Delphi Email
Hallo
Für JEDI gibt es eine Demo "JvMail" Shalom Manfred |
Re: Delphi Email
über die TIdSMTP kannst alles machen was du möchtest
Delphi-Quellcode:
var
idAttachment : TIdAttachmentFile; idMessage : TIdMessage; SMTP : TIdSMTP; begin Result := True; //Create TIdSMTP and TIdMessage Componente SMTP := TIdSMTP.Create(); idMessage := TIdMessage.Create(); //Configure SMPTP SMTP.Host := sHost; SMTP.Username := sUsername; SMTP.Password := sPassword; SMTP.Port := iPort; //Configure idMessage idMessage.From.Text := sFrom; idMessage.Sender.Text := sSenderEMail; idMessage.Recipients.EMailAddresses := sReceipt; idMessage.Subject := sSubject; idMessage.Body.Clear; idMessage.Body := strlBody; //Attach Files If sAttachment <> EmptyStr Then Begin If FileExists(sAttachment) = True Then Begin idAttachment := TIdAttachmentFile.Create(idMessage.MessageParts, sAttachment); End; End; //Send E-Mail Try Try SMTP.Connect; SMTP.Send(idMessage); SMTP.Disconnect; Except Result := False; If SMTP.Connected = True Then Begin Try SMTP.Disconnect; Except MessageDlg('Could not disconnect from the E-Mail Server: ' + sHost, mtError, [mbOK], 0); End; End; MessageDlg('Could not send E-Mail to: ' + sReceipt, mtError, [mbOk], 0); End; Finally //Destroy TIdSMTP and TIdMessage Componente SMTP.Free; idMessage.Free; End; |
Re: Delphi Email
Aber dann bitte die Vergleiche auf true weglassen.
|
Re: Delphi Email
Zitat:
;) Sherlock |
Re: Delphi Email
Ich meinte natürlich das "= true" und nicht die komplette Zeile :zwinker:
|
Re: Delphi Email
was spricht denn bitte dagegen zu prüfe ob das attachment das hinzugefügt werden soll auch wirklich existiert???
|
Re: Delphi Email
Dagegen spricht nichts. Was damit gemeint ist:
True ist eine Constante welche 1 ist In der IT ist jedoch alles ungleich 0 Wahr. Niemand garantiert dir also das FileExists und andere Funktionen wirklich 1 (also True) im Erfolgsfall zurück geben. Definiert ist lediglich, dass sie "Wahr" zurückgeben, also ungleich 0. [Edit] also entweder so:
Delphi-Quellcode:
oder
if FunktionWithBooleanResult() then
...
Delphi-Quellcode:
if FunktionWithBooleanResult() <> False then
... |
Re: Delphi Email
Zitat:
Code:
i.d.R macht man hier
False = 0;
True = 1;
Code:
False = 0;
True = !False; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:01 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz