Jose Manuel |
12-03-2012 16:58:12 |
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' ); MailItem.bcc := diremail; MailItem.importance := 2; MailItem.Subject := asunto; if t=0 then
MailItem.Body := cuerpo 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; finally
myAttachments := VarNull;
OutlookApp := VarNull;
end;
|