[Jose Manuel]

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;