To send an email in Delphi, you can use the IdSMTP component from the Internet Direct (Indy) library. Indy is a third-party library for Delphi that provides support for client and server communications over various Internet protocols, including SMTP (Simple Mail Transfer Protocol), which is used to send email.
Here is an example of how to use the IdSMTP component to send an email in Delphi:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
uses IdSMTP, IdMessage, IdExplicitTLSClientServerBase, IdSSL, IdSSLOpenSSL; procedure TForm1.Button1Click(Sender: TObject); var SMTP: TIdSMTP; Message: TIdMessage; SSL: TIdSSLIOHandlerSocketOpenSSL; begin SMTP: = TIdSMTP.Create(nil); try Message := TIdMessage.Create(nil); try //Set the SMTP server and port SMTP.Host := ‘smtp.gmail.com’; SMTP.Port := 587; //Set the email addresses Message.Recipients.EMailAddresses := ‘recipient@example.com’; Message.From.Address := ‘sender@example.com’; Message.Subject := ‘Test email’; //Set the message body Message.Body.Text := ‘This is a test email sent from Delphi’; //Enable SSLTLS for secure communication SSL = TIdSSLIOHandlerSocketOpenSSL.Create(SMTP); SMTP.IOHandler := SSL; SMTP.UseTLS := utUseExplicitTLS; //Connect to the SMTP server and send the email SMTP.Connect; SMTP.Send(Message); SMTP.Disconnect; finally Message.Free; end; finally SMTP.Free; end; end; |
In this example, the TIdSMTP component is used to connect to an SMTP server and send an email using the Send method. The TIdMessage component is used to create the email message, and the TIdSSLIOHandlerSocketOpenSSL component is used to enable SSLTLS for secure communication.
To use the IdSMTP component, you will need to add the IdSMTP, IdMessage, IdExplicitTLSClientServerBase, IdSSL, and IdSSLOpenSSL units to the uses clause of your Delphi code. You will also need to have the Indy library installed on your system.
Note that this example uses Gmail as the SMTP server, but you can use any other SMTP server by setting the Host and Port properties appropriately. You may also need to authenticate with the SMTP server using a username and password by setting the Username and Password properties of the TIdSMTP component.
Leave a Reply