lixiaojia 2015-04-09 07:12 采纳率: 0%
浏览 815

delphi 用CreateOLEObject 不能cc 多个人

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;

  • 写回答

0条回答 默认 最新

    报告相同问题?

    悬赏问题

    • ¥15 求差集那个函数有问题,有无佬可以解决
    • ¥15 【提问】基于Invest的水源涵养
    • ¥20 微信网友居然可以通过vx号找到我绑的手机号
    • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
    • ¥15 解riccati方程组
    • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
    • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
    • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
    • ¥50 树莓派安卓APK系统签名
    • ¥65 汇编语言除法溢出问题