// real mail addresses
RECIBE = 'aaa@bbb.com';
ENVIA = 'aaa@ccc.com <aaa@ccc.com>';
ENVIA_USUARIO = 'aaa@ccc.com';
ENVIA_PASSWORD = 'password';
ENVIA_HOST = 'smtp.live.com';
ENVIA_PORT = '587';
procedure TfrmSoporte.btnEnviarClick(Sender: TObject);
var
Mail: TSendMail;
begin
if not IsValidEmail(edCorreoElectronico.Text) then
begin
ShowMessage(rsIngreseCorreoValido);
exit;
end;
Mail := TSendMail.Create;
try
try
// Mail
Mail.Sender := ENVIA;
Mail.Receivers.Add(RECIBE);
Mail.Subject := 'Soporte ' + edUsuario.Text;
Mail.Message.Add('Empresa: ' + edEmpresa.Text);
Mail.Message.Add('Usuario: ' + edUsuario.Text);
Mail.Message.Add('Nombre: ' + edNombre.Text);
Mail.Message.Add('Correo Electrónico: ' + edCorreoElectronico.Text);
Mail.Message.Add('');
Mail.Message.Add('Detalle: ');
Mail.Message.AddStrings(mDetalle.Lines);
if (captura <> '') and (FileExists(captura)) then
Mail.Attachments.Add(captura);
if (config <> '') and (FileExists(config)) then
Mail.Attachments.Add(config);
// SMTP
Mail.Smtp.UserName := ENVIA_USUARIO;
Mail.Smtp.Password := ENVIA_PASSWORD;
Mail.Smtp.Host := ENVIA_HOST;
Mail.Smtp.Port := ENVIA_PORT;
//Mail.Smtp.SSL := True;
mail.Smtp.FullSSL := False;
Mail.Smtp.TLS := True;
Mail.Send;
ShowMessage(rsCorreoEnviado);
Self.Close;
except
on E: exception do
ShowMessage(rsCorreoNoEnviado + LineEnding + '(' + E.Message + ')');
end;
finally
Mail.Free;
end;
end;