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