Hola a todos en el foro...tengo un problema nuevo para mi pero se que para los usuarios del foro es algo que ya solucionaron es por ello que pido su ayuda..
Resulta que necesito enviar un correo electronico en formato HTML desde delphi, anadando en la red me encontre con este codigo..pero resulta que me menciona error al momento de conectar con el servidor smtp de gmail..les agradeceria me dijeran en que esta mal o me dieran una pagina de referencia para estudiar..El codigo es el siguiente: UTILIZO DELPHI 2007
Código Delphi
[-]
procedure TForm1.EnviarCorreo;
var smtp:TIdSMTP;
mail:TIdMessage;
begin
smtp := TIdSMTP.Create(Self);
Mail := TIdMessage.Create(Self);
with smtp do
begin
Port:=587;
Host:= 'smtp.gmail.com';
Username:='Mi_Correo@gmail.com';
Password:='Mi_Clave';
end;
with mail do
begin
Recipients.Add;
Recipients[0].Name :='SitiSystems';
Recipients.EmailAddresses:='Mi_correo@gmail.com';
From.Name :='PMS';
From.Address :='Mi_Correo@gmail.com';
Subject :='Subject..';
Body.Text:='Prueba de correo..';
end;
try
smtp.Connect;
except
ShowMessage('Ocurred an Error, The Message was not Sent');
end;
Screen.Cursor:=CrDefault;
try
smtp.Send(mail);
except
ShowMessage('The Message was not Sent');
end;
if smtp.Connected then
smtp.Disconnect;
mail.Free;
smtp.Free;
end;
y tambien utilizp este codigo e igual..no me envia el correo...
Código Delphi
[-]
procedure TForm1.EnviarMensaje(sUsuario, sClave, sHost, sAdjunto, sAsunto,
sDestino, sMensaje: String);
var SMTP: TIdSMTP;
Mensaje: TIdMessage;
begin
SMTP := TIdSMTP.Create( nil );
SMTP.Username := sUsuario;
SMTP.Password := sClave;
SMTP.Host := sHost;
SMTP.Port := 587;
SMTP.AuthType := atDefault;
SMTP.SupportsTLS;
Mensaje := TIdMessage.Create( nil );
Mensaje.Clear;
Mensaje.From.Name := sDestino;
Mensaje.From.Address := sDestino;
Mensaje.Subject := sAsunto;
Mensaje.Body.Text := sMensaje;
Mensaje.Recipients.EMailAddresses := 'Mi_correo@gmail.com';
Mensaje.Recipients.Add;
Mensaje.Recipients.Items[0].Address := 'Correo_Destino@hotmail.com';
try
SMTP.Connect;
except
raise Exception.Create( 'Error al conectar con el servidor.' );
end;
if SMTP.Connected then
SMTP.Send(Mensaje);
FreeAndNil( Mensaje );
FreeAndNil( SMTP );
Application.MessageBox( 'Mensaje enviado correctamente.',
'Fin de proceso',MB_ICONINFORMATION );
end;
EnviarMensaje('Mi_correo@gmail.com', 'mi_Clave', 'smtp.gmail.com',
'-', 'Te envio mi documento',
'Mi_correo@gmail.com', 'Adjunto archivo: documento.zip');
les agradecere mucho su ayuda..