Automatizarea Outlook - Schimbarea Contului expeditorului

Automăm Outlook și trebuie să controlez de la cine apare e-mailul. Utilizatorii vor avea două sau mai multe Conturi configurate în Outlook și trebuie să pot selecta din care cont să trimită e-mailul. Vreo idee?

Trebuie să fie acceptate în Outlook 2003 și mai sus. Folosesc Delphi 2006 pentru a codifica acest lucru, dar asta nu contează.

3

2 răspunsuri

O persoană pe nume Sue Mosher a scris un sumar sumar despre această problemă în microsoft.public.office.developer.outlook.vba .

Pe scurt, se reduce la oricare dintre acestea:

  • 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
adăugat
@Kiquenet Sunteți mai mult decât bineveniți să oferiți unul. :)
adăugat autor Tomalak, sursa

Extinzând un pic la răspunsul acceptat, aveam nevoie de o implementare Delphi a funcției set_account a lui Sue. Nu a putut găsi nimic pe internet oriunde pentru asta, deci aici este o interpretare Delphi a codului lui 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;

Creditul pentru Sue Mosher, vă mulțumesc, nu l-ar fi putut face fără dvs. :)

2
adăugat