Newsgrupos.com  

Retroceder   Newsgrupos.com > Forum > Newsgroup es.comp.lenguajes.* Foro > Newsgroup es.comp.lenguajes.delphi
email con delphi 7 email con delphi 7
Registrarse Preguntas Frecuentes Lista de Foreros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




Respuesta
Página 1 de 2 1 2 >
 
LinkBack Herramientas Desplegado
  #1 (permalink)  
Antiguo 04-12-2005, 22:31:20
JF
 
Mensajes: n/a
Predeterminado email con delphi 7
Hola a todos:
En el siguiente enlace explica como enviar un email desde delphi:
http://delphi.about.com/od/interneti.../aa020304a.htm
El problema es que pide un HOST (SMTP Server) que no se cual es.
Alguna idea??

Responder Con Cita
Alt Today
Advertising
Google Adsense 		 
This advertising will not be shown
in this way to registered members.
Register your free account today
and become a member on
Newsgrupos.com
Standard Sponsored Links
  #2 (permalink)  
Antiguo 07-12-2005, 10:23:56
qvaserqno
 
Mensajes: n/a
Predeterminado Re: email con delphi 7
On 4 Dec 2005 14:31:20 -0800, "JF" <ustatic***hotmail.com> wrote:

>Hola a todos:
>En el siguiente enlace explica como enviar un email desde delphi:
>http://delphi.about.com/od/interneti.../aa020304a.htm
>El problema es que pide un HOST (SMTP Server) que no se cual es.
>Alguna idea??

a mi me funciona perfectamente con los indy.
lo hago así:

Un componente TidMessage y un TidSMTP
----

idMessage1.From.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.From.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.From.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Sender.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Recipients.EMailAddresses :=
trim(tblY.FieldByName('EMail').AsString);
idMessage1.Subject :=
trim(.tblX.FieldByName('Asunto').AsString);
idMessage1.Organization :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Date := Now;

idMessage1.Body.Add('lo que pone el mail');
idMessage1.Body.Add('');
idMessage1.Body.Add(tblX.FieldByName('Firma').AsSt ring);

idSMTP1.Host :=
trim(tblX.FieldByName('Servidor_SMTP').AsString);
idSMTP1.Username := trim(tblX.FieldByName('Cuenta').AsString);
idSMTP1.Password := trim(tblX.FieldByName('Password').AsString);

try
idSMTP1.Connect;
frm.Caption := rsConectadoEnviandoElMensaje;
idSMTP1.Send(idMessage1);
frm.Caption := rsEnviadoDesconectandoDelServidorDeCorreo;
idSMTP1.Disconnect;
ShowMessage(rsMensajeEnviado);
except
on E : Exception do
if idSMTP1.connected then
begin
ShowMessage(rsNoSeHaPodidoEnviarElMensaje + #10 + #13 +
rsError + ': ' + E.Message);
try
idSMTP1.disconnect;
except
end;
end
else
ShowMessage(rsNoSeHaPodidoConectarConElServidor + #10 +
#13 + rsError + ': ' + E.Message);
end;
-------------------------

saludos

Mia.
Responder Con Cita
  #3 (permalink)  
Antiguo 07-12-2005, 10:23:56
qvaserqno
 
Mensajes: n/a
Predeterminado Re: email con delphi 7
On 4 Dec 2005 14:31:20 -0800, "JF" <ustatic***hotmail.com> wrote:

>Hola a todos:
>En el siguiente enlace explica como enviar un email desde delphi:
>http://delphi.about.com/od/interneti.../aa020304a.htm
>El problema es que pide un HOST (SMTP Server) que no se cual es.
>Alguna idea??

a mi me funciona perfectamente con los indy.
lo hago así:

Un componente TidMessage y un TidSMTP
----

idMessage1.From.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.From.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.From.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Sender.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Recipients.EMailAddresses :=
trim(tblY.FieldByName('EMail').AsString);
idMessage1.Subject :=
trim(.tblX.FieldByName('Asunto').AsString);
idMessage1.Organization :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Date := Now;

idMessage1.Body.Add('lo que pone el mail');
idMessage1.Body.Add('');
idMessage1.Body.Add(tblX.FieldByName('Firma').AsSt ring);

idSMTP1.Host :=
trim(tblX.FieldByName('Servidor_SMTP').AsString);
idSMTP1.Username := trim(tblX.FieldByName('Cuenta').AsString);
idSMTP1.Password := trim(tblX.FieldByName('Password').AsString);

try
idSMTP1.Connect;
frm.Caption := rsConectadoEnviandoElMensaje;
idSMTP1.Send(idMessage1);
frm.Caption := rsEnviadoDesconectandoDelServidorDeCorreo;
idSMTP1.Disconnect;
ShowMessage(rsMensajeEnviado);
except
on E : Exception do
if idSMTP1.connected then
begin
ShowMessage(rsNoSeHaPodidoEnviarElMensaje + #10 + #13 +
rsError + ': ' + E.Message);
try
idSMTP1.disconnect;
except
end;
end
else
ShowMessage(rsNoSeHaPodidoConectarConElServidor + #10 +
#13 + rsError + ': ' + E.Message);
end;
-------------------------

saludos

Mia.
Responder Con Cita
  #4 (permalink)  
Antiguo 07-12-2005, 10:23:56
qvaserqno
 
Mensajes: n/a
Predeterminado Re: email con delphi 7
On 4 Dec 2005 14:31:20 -0800, "JF" <ustatic***hotmail.com> wrote:

>Hola a todos:
>En el siguiente enlace explica como enviar un email desde delphi:
>http://delphi.about.com/od/interneti.../aa020304a.htm
>El problema es que pide un HOST (SMTP Server) que no se cual es.
>Alguna idea??

a mi me funciona perfectamente con los indy.
lo hago así:

Un componente TidMessage y un TidSMTP
----

idMessage1.From.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.From.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.From.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Sender.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Recipients.EMailAddresses :=
trim(tblY.FieldByName('EMail').AsString);
idMessage1.Subject :=
trim(.tblX.FieldByName('Asunto').AsString);
idMessage1.Organization :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Date := Now;

idMessage1.Body.Add('lo que pone el mail');
idMessage1.Body.Add('');
idMessage1.Body.Add(tblX.FieldByName('Firma').AsSt ring);

idSMTP1.Host :=
trim(tblX.FieldByName('Servidor_SMTP').AsString);
idSMTP1.Username := trim(tblX.FieldByName('Cuenta').AsString);
idSMTP1.Password := trim(tblX.FieldByName('Password').AsString);

try
idSMTP1.Connect;
frm.Caption := rsConectadoEnviandoElMensaje;
idSMTP1.Send(idMessage1);
frm.Caption := rsEnviadoDesconectandoDelServidorDeCorreo;
idSMTP1.Disconnect;
ShowMessage(rsMensajeEnviado);
except
on E : Exception do
if idSMTP1.connected then
begin
ShowMessage(rsNoSeHaPodidoEnviarElMensaje + #10 + #13 +
rsError + ': ' + E.Message);
try
idSMTP1.disconnect;
except
end;
end
else
ShowMessage(rsNoSeHaPodidoConectarConElServidor + #10 +
#13 + rsError + ': ' + E.Message);
end;
-------------------------

saludos

Mia.
Responder Con Cita
  #5 (permalink)  
Antiguo 07-12-2005, 10:23:56
qvaserqno
 
Mensajes: n/a
Predeterminado Re: email con delphi 7
On 4 Dec 2005 14:31:20 -0800, "JF" <ustatic***hotmail.com> wrote:

>Hola a todos:
>En el siguiente enlace explica como enviar un email desde delphi:
>http://delphi.about.com/od/interneti.../aa020304a.htm
>El problema es que pide un HOST (SMTP Server) que no se cual es.
>Alguna idea??

a mi me funciona perfectamente con los indy.
lo hago así:

Un componente TidMessage y un TidSMTP
----

idMessage1.From.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.From.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.From.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Sender.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Recipients.EMailAddresses :=
trim(tblY.FieldByName('EMail').AsString);
idMessage1.Subject :=
trim(.tblX.FieldByName('Asunto').AsString);
idMessage1.Organization :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Date := Now;

idMessage1.Body.Add('lo que pone el mail');
idMessage1.Body.Add('');
idMessage1.Body.Add(tblX.FieldByName('Firma').AsSt ring);

idSMTP1.Host :=
trim(tblX.FieldByName('Servidor_SMTP').AsString);
idSMTP1.Username := trim(tblX.FieldByName('Cuenta').AsString);
idSMTP1.Password := trim(tblX.FieldByName('Password').AsString);

try
idSMTP1.Connect;
frm.Caption := rsConectadoEnviandoElMensaje;
idSMTP1.Send(idMessage1);
frm.Caption := rsEnviadoDesconectandoDelServidorDeCorreo;
idSMTP1.Disconnect;
ShowMessage(rsMensajeEnviado);
except
on E : Exception do
if idSMTP1.connected then
begin
ShowMessage(rsNoSeHaPodidoEnviarElMensaje + #10 + #13 +
rsError + ': ' + E.Message);
try
idSMTP1.disconnect;
except
end;
end
else
ShowMessage(rsNoSeHaPodidoConectarConElServidor + #10 +
#13 + rsError + ': ' + E.Message);
end;
-------------------------

saludos

Mia.
Responder Con Cita
  #6 (permalink)  
Antiguo 07-12-2005, 10:23:56
qvaserqno
 
Mensajes: n/a
Predeterminado Re: email con delphi 7
On 4 Dec 2005 14:31:20 -0800, "JF" <ustatic***hotmail.com> wrote:

>Hola a todos:
>En el siguiente enlace explica como enviar un email desde delphi:
>http://delphi.about.com/od/interneti.../aa020304a.htm
>El problema es que pide un HOST (SMTP Server) que no se cual es.
>Alguna idea??

a mi me funciona perfectamente con los indy.
lo hago así:

Un componente TidMessage y un TidSMTP
----

idMessage1.From.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.From.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.From.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Address :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Sender.Name :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Sender.Text :=
trim(tblX.FieldByName('EMail').AsString);
idMessage1.Recipients.EMailAddresses :=
trim(tblY.FieldByName('EMail').AsString);
idMessage1.Subject :=
trim(.tblX.FieldByName('Asunto').AsString);
idMessage1.Organization :=
trim(tblX.FieldByName('Nombre').AsString);
idMessage1.Date := Now;

idMessage1.Body.Add('lo que pone el mail');
idMessage1.Body.Add('');
idMessage1.Body.Add(tblX.FieldByName('Firma').AsSt ring);

idSMTP1.Host :=
trim(tblX.FieldByName('Servidor_SMTP').AsString);
idSMTP1.Username := trim(tblX.FieldByName('Cuenta').AsString);
idSMTP1.Password := trim(tblX.FieldByName('Password').AsString);

try
idSMTP1.Connect;
frm.Caption := rsConectadoEnviandoElMensaje;
idSMTP1.Send(idMessage1);
frm.Caption := rsEnviadoDesconectandoDelServidorDeCorreo;
idSMTP1.Disconnect;
ShowMessage(rsMensajeEnviado);
except
on E : Exception do
if idSMTP1.connected then
begin
ShowMessage(rsNoSeHaPodidoEnviarElMensaje + #10 + #13 +
rsError + ': ' + E.Message);
try
idSMTP1.disconnect;
except
end;
end
else
ShowMessage(rsNoSeHaPodidoConectarConElServidor + #10 +
#13 + rsError + ': ' + E.Message);
end;
-------------------------

saludos

Mia.
Responder Con Cita
  #7 (permalink)  
Antiguo 07-12-2005, 14:24:03
qvaserqno
 
Mensajes: n/a
Predeterminado Re: email con delphi 7
On Wed, 07 Dec 2005 11:23:56 +0100, qvaserqno <qvaserqno***terra.es>
wrote:

>On 4 Dec 2005 14:31:20 -0800, "JF" <ustatic***hotmail.com> wrote:
>
>>Hola a todos:
>>En el siguiente enlace explica como enviar un email desde delphi:
>>http://delphi.about.com/od/interneti.../aa020304a.htm
>>El problema es que pide un HOST (SMTP Server) que no se cual es.
>>Alguna idea??
>
>a mi me funciona perfectamente con los indy.
>lo hago así:
>
>Un componente TidMessage y un TidSMTP
>----
>
> idMessage1.From.Address :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.From.Name :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.From.Text :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Sender.Address :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Sender.Name :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.Sender.Text :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Recipients.EMailAddresses :=
>trim(tblY.FieldByName('EMail').AsString);
> idMessage1.Subject :=
>trim(.tblX.FieldByName('Asunto').AsString);
> idMessage1.Organization :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.Date := Now;
>
> idMessage1.Body.Add('lo que pone el mail');
> idMessage1.Body.Add('');
> idMessage1.Body.Add(tblX.FieldByName('Firma').AsSt ring);
>
> idSMTP1.Host :=
>trim(tblX.FieldByName('Servidor_SMTP').AsString );
> idSMTP1.Username := trim(tblX.FieldByName('Cuenta').AsString);
> idSMTP1.Password := trim(tblX.FieldByName('Password').AsString);
>
> try
> idSMTP1.Connect;
> frm.Caption := rsConectadoEnviandoElMensaje;
> idSMTP1.Send(idMessage1);
> frm.Caption := rsEnviadoDesconectandoDelServidorDeCorreo;
> idSMTP1.Disconnect;
> ShowMessage(rsMensajeEnviado);
> except
> on E : Exception do
> if idSMTP1.connected then
> begin
> ShowMessage(rsNoSeHaPodidoEnviarElMensaje + #10 + #13 +
>rsError + ': ' + E.Message);
> try
> idSMTP1.disconnect;
> except
> end;
> end
> else
> ShowMessage(rsNoSeHaPodidoConectarConElServidor + #10 +
>#13 + rsError + ': ' + E.Message);
> end;
>-------------------------
>
>saludos
>
>Mia.

Uy! se me olvidaba. El servidor smtp pues eso, el servidor smtp.
P.Ej. Para Terra: "smtp.terra.es"
No se pueden usar cuentas webmail como hotmail, gmail y cosas así.
(weno, sí, aceptamos barco, pero hay que hacer mas cosas...)

Saludos.

Mia.
Responder Con Cita
  #8 (permalink)  
Antiguo 07-12-2005, 14:24:03
qvaserqno
 
Mensajes: n/a
Predeterminado Re: email con delphi 7
On Wed, 07 Dec 2005 11:23:56 +0100, qvaserqno <qvaserqno***terra.es>
wrote:

>On 4 Dec 2005 14:31:20 -0800, "JF" <ustatic***hotmail.com> wrote:
>
>>Hola a todos:
>>En el siguiente enlace explica como enviar un email desde delphi:
>>http://delphi.about.com/od/interneti.../aa020304a.htm
>>El problema es que pide un HOST (SMTP Server) que no se cual es.
>>Alguna idea??
>
>a mi me funciona perfectamente con los indy.
>lo hago así:
>
>Un componente TidMessage y un TidSMTP
>----
>
> idMessage1.From.Address :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.From.Name :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.From.Text :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Sender.Address :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Sender.Name :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.Sender.Text :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Recipients.EMailAddresses :=
>trim(tblY.FieldByName('EMail').AsString);
> idMessage1.Subject :=
>trim(.tblX.FieldByName('Asunto').AsString);
> idMessage1.Organization :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.Date := Now;
>
> idMessage1.Body.Add('lo que pone el mail');
> idMessage1.Body.Add('');
> idMessage1.Body.Add(tblX.FieldByName('Firma').AsSt ring);
>
> idSMTP1.Host :=
>trim(tblX.FieldByName('Servidor_SMTP').AsString );
> idSMTP1.Username := trim(tblX.FieldByName('Cuenta').AsString);
> idSMTP1.Password := trim(tblX.FieldByName('Password').AsString);
>
> try
> idSMTP1.Connect;
> frm.Caption := rsConectadoEnviandoElMensaje;
> idSMTP1.Send(idMessage1);
> frm.Caption := rsEnviadoDesconectandoDelServidorDeCorreo;
> idSMTP1.Disconnect;
> ShowMessage(rsMensajeEnviado);
> except
> on E : Exception do
> if idSMTP1.connected then
> begin
> ShowMessage(rsNoSeHaPodidoEnviarElMensaje + #10 + #13 +
>rsError + ': ' + E.Message);
> try
> idSMTP1.disconnect;
> except
> end;
> end
> else
> ShowMessage(rsNoSeHaPodidoConectarConElServidor + #10 +
>#13 + rsError + ': ' + E.Message);
> end;
>-------------------------
>
>saludos
>
>Mia.

Uy! se me olvidaba. El servidor smtp pues eso, el servidor smtp.
P.Ej. Para Terra: "smtp.terra.es"
No se pueden usar cuentas webmail como hotmail, gmail y cosas así.
(weno, sí, aceptamos barco, pero hay que hacer mas cosas...)

Saludos.

Mia.
Responder Con Cita
  #9 (permalink)  
Antiguo 07-12-2005, 14:24:03
qvaserqno
 
Mensajes: n/a
Predeterminado Re: email con delphi 7
On Wed, 07 Dec 2005 11:23:56 +0100, qvaserqno <qvaserqno***terra.es>
wrote:

>On 4 Dec 2005 14:31:20 -0800, "JF" <ustatic***hotmail.com> wrote:
>
>>Hola a todos:
>>En el siguiente enlace explica como enviar un email desde delphi:
>>http://delphi.about.com/od/interneti.../aa020304a.htm
>>El problema es que pide un HOST (SMTP Server) que no se cual es.
>>Alguna idea??
>
>a mi me funciona perfectamente con los indy.
>lo hago así:
>
>Un componente TidMessage y un TidSMTP
>----
>
> idMessage1.From.Address :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.From.Name :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.From.Text :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Sender.Address :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Sender.Name :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.Sender.Text :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Recipients.EMailAddresses :=
>trim(tblY.FieldByName('EMail').AsString);
> idMessage1.Subject :=
>trim(.tblX.FieldByName('Asunto').AsString);
> idMessage1.Organization :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.Date := Now;
>
> idMessage1.Body.Add('lo que pone el mail');
> idMessage1.Body.Add('');
> idMessage1.Body.Add(tblX.FieldByName('Firma').AsSt ring);
>
> idSMTP1.Host :=
>trim(tblX.FieldByName('Servidor_SMTP').AsString );
> idSMTP1.Username := trim(tblX.FieldByName('Cuenta').AsString);
> idSMTP1.Password := trim(tblX.FieldByName('Password').AsString);
>
> try
> idSMTP1.Connect;
> frm.Caption := rsConectadoEnviandoElMensaje;
> idSMTP1.Send(idMessage1);
> frm.Caption := rsEnviadoDesconectandoDelServidorDeCorreo;
> idSMTP1.Disconnect;
> ShowMessage(rsMensajeEnviado);
> except
> on E : Exception do
> if idSMTP1.connected then
> begin
> ShowMessage(rsNoSeHaPodidoEnviarElMensaje + #10 + #13 +
>rsError + ': ' + E.Message);
> try
> idSMTP1.disconnect;
> except
> end;
> end
> else
> ShowMessage(rsNoSeHaPodidoConectarConElServidor + #10 +
>#13 + rsError + ': ' + E.Message);
> end;
>-------------------------
>
>saludos
>
>Mia.

Uy! se me olvidaba. El servidor smtp pues eso, el servidor smtp.
P.Ej. Para Terra: "smtp.terra.es"
No se pueden usar cuentas webmail como hotmail, gmail y cosas así.
(weno, sí, aceptamos barco, pero hay que hacer mas cosas...)

Saludos.

Mia.
Responder Con Cita
  #10 (permalink)  
Antiguo 07-12-2005, 14:24:03
qvaserqno
 
Mensajes: n/a
Predeterminado Re: email con delphi 7
On Wed, 07 Dec 2005 11:23:56 +0100, qvaserqno <qvaserqno***terra.es>
wrote:

>On 4 Dec 2005 14:31:20 -0800, "JF" <ustatic***hotmail.com> wrote:
>
>>Hola a todos:
>>En el siguiente enlace explica como enviar un email desde delphi:
>>http://delphi.about.com/od/interneti.../aa020304a.htm
>>El problema es que pide un HOST (SMTP Server) que no se cual es.
>>Alguna idea??
>
>a mi me funciona perfectamente con los indy.
>lo hago así:
>
>Un componente TidMessage y un TidSMTP
>----
>
> idMessage1.From.Address :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.From.Name :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.From.Text :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Sender.Address :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Sender.Name :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.Sender.Text :=
>trim(tblX.FieldByName('EMail').AsString);
> idMessage1.Recipients.EMailAddresses :=
>trim(tblY.FieldByName('EMail').AsString);
> idMessage1.Subject :=
>trim(.tblX.FieldByName('Asunto').AsString);
> idMessage1.Organization :=
>trim(tblX.FieldByName('Nombre').AsString);
> idMessage1.Date := Now;
>
> idMessage1.Body.Add('lo que pone el mail');
> idMessage1.Body.Add('');
> idMessage1.Body.Add(tblX.FieldByName('Firma').AsSt ring);
>
> idSMTP1.Host :=
>trim(tblX.FieldByName('Servidor_SMTP').AsString );
> idSMTP1.Username := trim(tblX.FieldByName('Cuenta').AsString);
> idSMTP1.Password := trim(tblX.FieldByName('Password').AsString);
>
> try
> idSMTP1.Connect;
> frm.Caption := rsConectadoEnviandoElMensaje;
> idSMTP1.Send(idMessage1);
> frm.Caption := rsEnviadoDesconectandoDelServidorDeCorreo;
> idSMTP1.Disconnect;
> ShowMessage(rsMensajeEnviado);
> except
> on E : Exception do
> if idSMTP1.connected then
> begin
> ShowMessage(rsNoSeHaPodidoEnviarElMensaje + #10 + #13 +
>rsError + ': ' + E.Message);
> try
> idSMTP1.disconnect;
> except
> end;
> end
> else
> ShowMessage(rsNoSeHaPodidoConectarConElServidor + #10 +
>#13 + rsError + ': ' + E.Message);
> end;
>-------------------------
>
>saludos
>
>Mia.

Uy! se me olvidaba. El servidor smtp pues eso, el servidor smtp.
P.Ej. Para Terra: "smtp.terra.es"
No se pueden usar cuentas webmail como hotmail, gmail y cosas así.
(weno, sí, aceptamos barco, pero hay que hacer mas cosas...)

Saludos.

Mia.
Responder Con Cita
 
Respuesta
Página 1 de 2 1 2 >

« email con delphi 7 | Nombre de columna en DbGrid. »

Herramientas
Desplegado
Mode Lineal Mode Lineal

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes
El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último mensaje
Al enviar una convocatoria de reunión (via email) me responden a otro email Javier Avila Newsgroup microsoft.public.es.outlook 2 08-04-2008 21:54:48
email propaganda por email envio anônimo email bun88888@gmail.com Newsgroup es.tecnica.sonido 0 24-12-2007 02:29:58
A Killer Email Message - How to Write Killer Email Promos that Get Results RED Newsgroup es.ciencia.marketing 0 28-09-2007 11:12:43
Bueno acabo de pasar de Delphi 7 a Delphi 2006 William Betalleluz Donayre Newsgroup es.comp.lenguajes.delphi 16 27-06-2006 20:23:38
¿Merece la pena cambiar de Delphi 3 a delphi 6? jose Newsgroup es.comp.lenguajes.delphi 20 22-12-2004 17:15:57


La franja horaria es GMT. Ahora son las 16:03:50.

Motor - Moteros - Educacion Fisica - Religion - Futbol - Bricolaje - Series Tv - Cinema - Fotografia - Literatura - Comics - Ficcion - Decodificacion - Hattrick Matematicas - Actualidad - Politica - Filosofia - Hardware - Electronica - Tv - Viajes - Linux Instalacion - Linux - Adsl - Telefonia - Windows XP - Windows Server


Newsgrupos Home Page RSS Feeds - Newsgrupos Home Page - Archivo - Top

Powered by: vBulletin, Versión 3.6.8
Derechos de Autor ©2000 - 2008, Jelsoft Enterprises Ltd.

LinkBacks Enabled by vBSEO 3.1.0 © 2007, Crawlability, Inc.