Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > .NET
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-09-2007
SMTZ SMTZ is offline
Miembro
 
Registrado: Nov 2003
Posts: 225
Poder: 15
SMTZ Va por buen camino
Question Error al enviar un email

Hola, utilizando el siguiente código:

Código:
uses
  SysUtils, System.Web.Mail;

Var
   Mensaje      : MailMessage;

begin
 
  Mensaje := MailMessage.Create;

  Mensaje.From := 'MiUsuario@yahoo.es';
  Mensaje.&To := 'MiUsuario@yahoo.es';
  Mensaje.Subject := 'Prueba';
  Mensaje.Body := 'Texto de prueba';
  Mensaje.BodyFormat := MailFormat.Text;

  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusing', '2' );
  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpserver', 'smtp.correo.yahoo.es' );
  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpserverport', '25' );

  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate', '1' );
  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusername', 'MiUsuario@yahoo.es' );
  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendpassword', 'MiContraseña' );

  SMTPMail.SmtpServer := 'smtp.correo.yahoo.es';
  SMTPMail.Send ( Mensaje );

  Mensaje.Free;

end.
compila bien, pero da el siguiente error en tiempo de ejecución:

Código:
Unhandled Exception: System.Reflection.TargetInvocationException: Exception has
been thrown by the target of an invocation. ---> System.Runtime.InteropServices.
COMException (0x800A0EA5): Error al actualizar los campos. Para obtener más info
rmación, examine la propiedad Status de los campos de cada objeto individual.
   --- End of inner exception stack trace ---
   at System.RuntimeType.InvokeDispMethod(String name, BindingFlags invokeAttr,
Object target, Object[] args, Boolean[] byrefModifiers, Int32 culture, String[]
namedParameters)
   at System.RuntimeType.InvokeMember(String name, BindingFlags invokeAttr, Bind
er binder, Object target, Object[] args, ParameterModifier[] modifiers, CultureI
nfo culture, String[] namedParameters)
   at System.Web.Mail.CdoSysHelper.Send(MailMessage message)
   at System.Web.Mail.SmtpMail.Send(MailMessage message)
He buscado por Internet pero no he sacado nada en claro. ¿Alguien sabe a qué puede ser debido este error?

Gracias.
Responder Con Cita
  #2  
Antiguo 15-09-2007
SMTZ SMTZ is offline
Miembro
 
Registrado: Nov 2003
Posts: 225
Poder: 15
SMTZ Va por buen camino
Solucionado

Hola, creo que hay algún error en las opciones de configuración del servidor smtp de Yahoo, porque he configurado un servidor de correo en local y no he tenido ningún problema.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas al enviar Email BuenaOnda Varios 13 26-07-2012 00:13:02
enviar email con bcc raulmm26 Internet 1 03-11-2005 10:38:55
Enviar Email satabel Internet 1 02-08-2005 01:12:56
Al enviar email, Error 550, Por que? URBANO Internet 1 21-02-2005 09:04:50
Enviar un reporte por email ...? Raptor Impresión 1 12-03-2004 21:59:45


La franja horaria es GMT +2. Ahora son las 11:00:45.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi