Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
- IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdMessage,
- IdSMTP, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdText;
- procedure TForm1.Button1Click(Sender: TObject);
- var
- // variáveis e objetos necessários para o envio
- IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketOpenSSL;
- IdSMTP: TIdSMTP;
- IdMessage: TIdMessage;
- IdText: TIdText;
- sAnexo: string;
- begin
- // instanciação dos objetos
- IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(Self);
- IdSMTP := TIdSMTP.Create(Self);
- IdMessage := TIdMessage.Create(Self);
- try
- // Configuração do protocolo SSL (TIdSSLIOHandlerSocketOpenSSL)
- IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23;
- IdSSLIOHandlerSocket.SSLOptions.Mode := sslmClient;
- // Configuração do servidor SMTP (TIdSMTP)
- IdSMTP.IOHandler := IdSSLIOHandlerSocket;
- IdSMTP.UseTLS := utUseImplicitTLS;
- IdSMTP.AuthType := satDefault;
- IdSMTP.Port := 465;
- IdSMTP.Host := 'smtp.gmail.com';
- IdSMTP.Username := 'MYLOGIN@gmail.com';
- IdSMTP.Password := 'MYPASS';
- // Configuração da mensagem (TIdMessage)
- IdMessage.From.Address := 'MYLOGIN@gmail.com';
- IdMessage.From.Name := 'John Smith';
- IdMessage.ReplyTo.EMailAddresses := IdMessage.From.Address;
- IdMessage.Recipients.Add.Text := 'receiver@example.com';
- IdMessage.Subject := 'Hello World';
- IdMessage.Encoding := meMIME;
- // Configuração do corpo do email (TIdText)
- IdText := TIdText.Create(IdMessage.MessageParts);
- IdText.Body.Add('The body of the e-mail goes here');
- IdText.ContentType := 'text/plain; charset=iso-8859-1';
- // Conexão e autenticação
- try
- IdSMTP.Connect;
- IdSMTP.Authenticate;
- except
- on E:Exception do
- begin
- MessageDlg('Cannot authenticate: ' +
- E.Message, mtWarning, [mbOK], 0);
- Exit;
- end;
- end;
- // Envio da mensagem
- try
- IdSMTP.Send(IdMessage);
- MessageDlg('Message sent successfully!', mtInformation, [mbOK], 0);
- except
- On E:Exception do
- begin
- MessageDlg('Error while sending a message: ' +
- E.Message, mtWarning, [mbOK], 0);
- end;
- end;
- finally
- // liberação dos objetos da memória
- FreeAndNil(IdMessage);
- FreeAndNil(IdSSLIOHandlerSocket);
- FreeAndNil(IdSMTP);
- end;
- end;
Add Comment
Please, Sign In to add comment