Please, Im having problems sending emails.Estou developing in Delphi for Windows. I use the XE7 version. When I try to run the code below it crashes the application. below is the code. If you can help me, I am grateful. // objetos necessários para o funcionamento IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketOpenSSL; IdSMTP: TIdSMTP; IdMessage: TIdMessage; CaminhoAnexo: string; begin // instanciação dos objetos IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(Self); IdSMTP := TIdSMTP.Create(Self); IdMessage := TIdMessage.Create(Self); try // Configuração do SSL IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23; IdSSLIOHandlerSocket.SSLOptions.Mode := sslmClient; // Configuração do SMTP IdSMTP.IOHandler := IdSSLIOHandlerSocket; IdSMTP.AuthType := satDefault; IdSMTP.UseTLS:=utUseRequireTLS; IdSMTP.Port := 465; IdSMTP.Host := smtp.gmail; IdSMTP.Username := My mail; IdSMTP.Password := password of the mail; // Tentativa de conexão e autenticação try IdSMTP.Connect; IdSMTP.Authenticate; except on E:Exception do begin MessageDlg(Erro na conexão e/ou autenticação: + E.Message, mtWarning, [mbOK], 0); Exit; end; end; // Configuração da mensagem IdMessage.From.Address := my email; IdMessage.From.Name := my name; IdMessage.ReplyTo.EMailAddresses := IdMessage.From.Address; IdMessage.Recipients.EMailAddresses:=Mail Recipient; IdMessage.Subject := Subject; IdMessage.Body.Text := Body of Mail; // Anexo da mensagem (opcional) CaminhoAnexo := C:\Anexo.txt; if FileExists(CaminhoAnexo) then // TIdAttachment.Create(IdMessage.MessageParts, CaminhoAnexo); // Envio da mensagem try IdSMTP.Send(IdMessage); MessageDlg(Mensagem enviada com sucesso., mtInformation, [mbOK], 0); except On E:Exception do MessageDlg(Erro ao enviar a mensagem: + E.Message, mtWarning, [mbOK], 0); end; finally // liberação dos objetos da memória FreeAndNil(IdMessage); FreeAndNil(IdSSLIOHandlerSocket); FreeAndNil(IdSMTP); end;
Posted on: Sun, 25 Jan 2015 02:43:07 +0000
Trending Topics
© 2015