Автоматизация Outlook - изменение учетной записи отправителя - PullRequest
Новая
       21

Автоматизация Outlook - изменение учетной записи отправителя

3 голосов
/ 14 октября 2008

Я автоматизирую Outlook, и мне нужно контролировать, от кого, по-видимому, приходит электронное письмо. У пользователей будет две или более учетных записи, настроенных в Outlook, и мне нужно будет выбрать, с какой учетной записи отправлять электронную почту. Есть идеи?

Требуется поддержка в Outlook 2003 и выше. Я использую Delphi 2006 для кодирования, но это не имеет значения.

Ответы [ 2 ]

2 голосов
/ 10 сентября 2011

Немного расширив принятый ответ, мне потребовалась Delphi-реализация функции Сью set_account. Ничего не мог найти в интернете для этого, так что вот интерпретация Delphi кода Сью. 

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;

Благодарю Сью Мошер, спасибо, без тебя не обошлось бы :)

2 голосов
/ 14 октября 2008

Человек по имени Сью Мошер написал довольно краткое изложение этого вопроса в microsoft.public.office.developer.outlook.vba .

Короче говоря, все сводится к следующему:

  • используйте MailItem.SentOnBehalfOfName, который работает только в средах Exchange (я полагаю, это так) - когда у пользователя есть разрешения «Отправить как» для другого почтового ящика Exchange, это почти то же самое, что переключение учетных записей .
  • используйте небольшой взлом, который включает в себя игру с CommandBars
  • использовать погашение Outlook
  • (в OL2007 у вас будет MailItem.SendUsingAccount)
...