Automação do Outlook - Alterar conta do remetente

Estou automatizando o Outlook e preciso controlar de quem o email parece ser. Os usuários terão duas ou mais contas configuradas no Outlook e eu preciso selecionar qual conta enviar o email. Alguma ideia?

Precisa ser suportado no Outlook 2003 e acima. Estou usando o Delphi 2006 para codificar isso, mas isso não importa realmente.

3

2 Respostas

Uma pessoa chamada Sue Mosher escreveu um resumo sobre esse assunto em microsoft.public.office.developer.outlook.vba .

Em resumo, tudo se resume a isso:

  • use MailItem.SentOnBehalfOfName, which only works in Exchange enviromnents (I suppose that is the case for you) - when the user has "Send As" permissions for the other Exchange mailbox, this is pretty much the same thing as switching accounts.
  • use a small hack that involves fiddling with the CommandBars
  • use Outlook Redemption
  • (in OL2007, you would have MailItem.SendUsingAccount)
2
adicionado
adicionado o autor Kiquenet, fonte
@Kiquenet Você é mais que bem-vindo para fornecer um. :)
adicionado o autor Tomalak, fonte

Expandindo um pouco a resposta aceita, eu precisava de uma implementação Delphi da função set_account de Sue. Não foi possível encontrar nada na internet em nenhum lugar para isso, então aqui está uma interpretação Delphi do código de Sue.

Function SetAccount(TargetAccount:string; var MailItem:OLEVariant):boolean;
var OLI,CBs,CBP,MC:olevariant;
    strAccountBtnName:String;
    i,t:Integer;
    FoundAccount:Boolean;
Const ID_ACCOUNTS = 31224;
begin
    FoundAccount:=false;
    OLI:=MailItem.GetInspector;
    CBs:=OLI.CommandBars;
    CBP:=CBs.FindControl(, ID_ACCOUNTS);
    t:=1;
    while (not FoundAccount) and (t<=CBP.Controls.Count) do begin
       MC:=CBP.Controls[t];
       i:=Pos(' ',MC.Caption);
       if i > 0 Then strAccountBtnName:=Copy(MC.Caption,i+1,Length(MC.Caption)-i)
       else strAccountBtnName:=MC.Caption;
       if strAccountBtnName = TargetAccount then begin
           MC.Execute;
           FoundAccount:=true;
       end;
       inc(t);
    end;
    Result:=FoundAccount;
end;

Agradecemos a Sue Mosher, obrigado, não poderia ter feito isso sem você :)

2
adicionado