delphi 用CreateOLEObject ('Outlook.Application') 不能cc 多个人,aEmail[1] 放的是cc address,如果只有1个就没error,如果有2个就show error
“outlook无法识别一个或多个名称”
代码如下
procedure sendemail(aEmail:array of string);
var
Outlook: Variant;
Mail: Variant;
Recipient:Variant;
const
olTo=1;
olCC=2;
olBCC=3;
begin
if (aEmail[0]='') and (aEmail[1]='') then exit;
Outlook := CreateOLEObject ('Outlook.Application');
if VarIsEmpty(Outlook) then
begin
ShowMessage('Outlook create failed £¡');
Exit;
end;
Mail:=Outlook.CreateItem(0);
Mail.To:=aEmail[0];
if aEmail[1]<>'' then
begin
Recipient:=Mail.Recipients.Add(aEmail[1]);
Recipient.Type:= olCC;
end;
Mail.Subject:= aEmail[2];
Mail.Body:=aEmail[3];
if trim(aEmail[4])<>'' then
Mail.Attachments.add(trim(aEmail[4]));
Mail.Send;
Outlook:=Unassigned;
end;
delphi 用CreateOLEObject 不能cc 多个人
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-