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 Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-09-2007
SMTZ SMTZ is offline
Miembro
 
Registrado: nov 2003
Posts: 225
Poder: 21
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
 



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 01:16:29.


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