Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
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 12-03-2012
Jose Manuel Jose Manuel is offline
Miembro
 
Registrado: may 2003
Posts: 112
Poder: 21
Jose Manuel Va por buen camino
Outlook 2003 - ¿Cómo seleccionar la cuenta por la que envío el mail?

Hola estoy utilizando D2007 para realizar una aplicación que, entre otras cosas, automatiza el envío del correo electrónico a través de Outlook 2003. Me funciona correctamente, pero ahora quiero indicarle que el correo lo envíe concretamente por una de las 3 cuentas que tengo. Por defecto me sale mi cuenta personal, pero para estos envíos quiero que salga la cuenta corporativa, he añadido la siguiente instrucción que no me funciona:

Código Delphi [-]
 mailItem.sendUsingAccount := OutlookApp.session.accounts.item( 'gestion@corporativa.es' );
Alguien puede decirme como poner en OUTLOOK en el campo “DE” el nombre de la cuenta de correo que quiero utilizar “gestion@corporativa.es


Código Delphi [-]
try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
    OutlookApp := CreateOleObject('Outlook.Application');
  end;

  try
    MailItem            := OutlookApp.CreateItem(olMailItem);
    //------------------------------------------------------------------------------------------------------
    mailItem.sendUsingAccount := OutlookApp.session.accounts.item( 'gestion@corporativa.es' ); // no funciona
    //------------------------------------------------------------------------------------------------------
    MailItem.bcc       := diremail;  // Variable donde he guardado todas las direcciones
    MailItem.importance  := 2;          // Importancia del mensaje 0=Baja, 1=Normal, 2=Alta
    MailItem.Subject    := asunto;   // variable donde he guardado el asunto 
    if t=0 then
      MailItem.Body     := cuerpo      // variable donde he guardado el cuerpo del mensaje  
      else
      MailItem.HTMLBody := Advmemo1.lines.text; variable donde he guardado el cuerpo del mensaje  
    myAttachments          := MailItem.Attachments;
    if length(anexo)>5 then  myAttachments.Add(anexo, olByValue, 1, nombreanexo);
    MailItem.display;    // muestra el email antes de enviarlo
  finally
    myAttachments := VarNull;
    OutlookApp := VarNull;
  end;
Responder Con Cita
  #2  
Antiguo 15-03-2012
Avatar de ElDioni
[ElDioni] ElDioni is offline
Miembro Premium
 
Registrado: jul 2005
Ubicación: Murcia (España)
Posts: 935
Poder: 19
ElDioni Va por buen camino
Hola,

http://www.clubdelphi.com/foros/show...hlight=outlook

Saludos.
__________________
Confórmate con lo que tienes pero anhela lo que te falta.
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
Shellexecute y Outlook 2003 toni.vi Internet 4 07-06-2011 17:34:30
Configuración cuenta para envio de correo yomismo24 Internet 2 01-07-2008 18:27:26
Evitar confirmacion de envio de email en outlook 2003 Durbed Internet 0 05-10-2007 15:16:44
Envio de mail como pagina martinc5 Internet 2 15-05-2006 20:01:48
como capturar con delphi la cuenta de correo de outlook cmena Internet 0 04-10-2005 02:23:14


La franja horaria es GMT +2. Ahora son las 12:38:30.


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