Delphi - 将 BCC 和 CC 收件人添加到 OLE Outlook 对象

Question

帖子的答案“ How is working with Outlook in Delphi different than other email clients?效果很好。见下文。

使用此示例，您将如何添加抄送和密件抄送收件人？

USES OleCtrls, ComObj;

procedure TForm1.Button1Click(Sender: TObject);
const
  olMailItem = 0;
var
  Outlook: OLEVariant;
  MailItem: Variant;
  MailInspector : Variant;
  stringlist : TStringList;
begin
  try
   Outlook:=GetActiveOleObject('Outlook.Application') ;
  except
   Outlook:=CreateOleObject('Outlook.Application') ;
  end;
  try
    Stringlist := TStringList.Create;
    MailItem := Outlook.CreateItem(olMailItem) ;
    MailItem.Subject := 'subject here';
    MailItem.Recipients.Add('someone@yahoo.com');
    MailItem.Attachments.Add('c:\boot.ini');
    Stringlist := TStringList.Create;
    StringList.Add('body here');
    MailItem.Body := StringList.text;
    MailInspector := MailItem.GetInspector;
   MailInspector.display(true); //true means modal
 finally
    Outlook := Unassigned;
    StringList.Free;
  end;
end;

Answer 1

Add() Recipients的方法集合创建并返回一个新的 Recipient目的。 Type Recipient 类的属性允许设置一个表示收件人类型的整数。对于 MailItem 收件人，它可以是以下之一 OlMailRecipientType常量:olBCC、olCC、olOriginator 或 olTo。新邮件收件人的默认Type是olTo。

MailItem.Recipients.Add('someone@yahoo.com'); // Type=1 olTo
MailItem.Recipients.Add('joesmoe@yahoo.com').Type := 2; // olCC
MailItem.Recipients.Add('alice@yahoo.com').Type := 3; // olBCC

您可能会找到How To: Fill TO,CC and BCC fields in Outlook programmatically文章有帮助。