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;