kurono
11-02-2014, 04:04:07
hola amigos e impletamentado un codigo para enviar un email con gmail en delphixe5 pero no me funciona el boton donde tengo el codigo se queda conjelado y no envia el email este es el codigo
begin
IdSMTP1.Heloname:='test';
IdSMTP1.Host:='smtp.gmail.com';
IdSMTP1.Username:='umail@gmail.com';
IdSMTP1.Port:=465;
IdSMTP1.Password:='pass';
IdSMTP1.Connect;
IdMessage1.clear;
IdMessage1.From.Text :='Testing';
IdMessage1.BccList.EMailAddresses :='umail@gmail.com';
IdMessage1.Priority := mpHigh;
IdMessage1.Sender.Text:='Umail';
IdMessage1.Subject := 'Subject';
IdMessage1.Body.Add('test');
Try
IdSMTP1.Send(IdMessage1);
except
showmessage('No se pudo enviar el Email')
end;
end;
begin
IdSMTP1.Heloname:='test';
IdSMTP1.Host:='smtp.gmail.com';
IdSMTP1.Username:='umail@gmail.com';
IdSMTP1.Port:=465;
IdSMTP1.Password:='pass';
IdSMTP1.Connect;
IdMessage1.clear;
IdMessage1.From.Text :='Testing';
IdMessage1.BccList.EMailAddresses :='umail@gmail.com';
IdMessage1.Priority := mpHigh;
IdMessage1.Sender.Text:='Umail';
IdMessage1.Subject := 'Subject';
IdMessage1.Body.Add('test');
Try
IdSMTP1.Send(IdMessage1);
except
showmessage('No se pudo enviar el Email')
end;
end;