代码-delphi 用CreateOLEObject 不能cc 多个人

作者:用户 来源:互联网 浏览:293 次 时间:2016-09-28 13:59:51

stringdelphi代码outlook

代码-delphi 用CreateOLEObject 不能cc 多个人 - 摘要: delphi用CreateOLEObject不能cc多个人delphi用CreateOLEObject('Outlook.Application')不能cc多个人,aEmail[1]放的是ccaddr

问题描述

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;

【云栖快讯】直播推荐——现在预约2月28日14:00 VPN网关新品发布会直播,即可赢取SSL-VPN网关一个月免费试用,尽享安全、稳定、快捷的企业级服务!先到先得哦!  详情请点击
云栖社区(yq.aliyun.com)为您免费提供代码-delphi 用CreateOLEObject 不能cc 多个人相关信息,包括 stringdelphi代码 outlook 的信息 ,所有代码-delphi 用CreateOLEObject 不能cc 多个人相关内容均不代表云栖社区的意见! 该页面h5页面的地址是:https://m.aliyun.com/yunqi/wenzhang/show_58119,您可以点击代码-delphi 用CreateOLEObject 不能cc 多个人-手机站访问。
稳定可靠、可弹性伸缩的在线数据库服务,全球最受欢迎的开源数据库之一

6款热门基础云产品6个月免费体验;2款产品1年体验;1款产品2年体验

弹性可伸缩的计算服务,助您降低 IT 成本,提升运维效率

开发者常用软件,超百款实用软件一站式提供

热点导航