求助：如何实现某一制定用户的发送邮件自动抄送给他的领导

pinda

A公司和B公司是我的客户,两家公司的业务由他们员工和我联系,但他们领导又都要求我把和他们员工的往来邮件抄送给他们,每次添加抄送人很麻烦,求助：如何实现某一制定用户的发送邮件自动抄送给他的领导?

masterexcel

在“联系人”界面下，新建-通讯组列表。将需要抄送的人添加进去，为这个组起个名字。在发邮件时，直接添加这个组就可以了。

[ 本帖最后由 masterexcel 于 2010-3-4 13:11 编辑 ]

dsd999

用VBA实现，有时间我可以给你写。

ashleyfeng

高人請快快寫出代碼來分享下哈

yhhylgw

这是个好想法。呵呵。。

alansmith

高手救勒个命。。。我就缺个抄送属性不知道怎么写了，我是用VFP写数据邮件的，VPF调用和正常发送都可以，但是不会写CC和BCC那段，求教了，谢谢。

dsd999

原帖由 alansmith 于 2010-8-9 17:05 发表
高手救勒个命。。。我就缺个抄送属性不知道怎么写了，我是用VFP写数据邮件的，VPF调用和正常发送都可以，但是不会写CC和BCC那段，求教了，谢谢。

VFP 没用过，能否贴出发送的代码？

alansmith

#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2

dimension email(10)
email(1)='Alan@163.com'


oOutLookObject = CreateObject('Outlook.Application')
oEmailItem = oOutLookObject.CreateItem(MAILITEM)


&& 以下收件人有三個人：email(1)
&& 附件文件為fn_Dx1

fn_Dx1="D:\AM\daily\ochart\temp\2886\黄志勇.xls"

WITH oEmailItem

.Recipients.Add(email(1))     &&收件人地址
*.Recipients.Add(email(3))
*.Recipients.Add(email(4))

.cc=email(1)                            &&抄送地址,BCC为暗送地址

&&以下正文部分使用HTML编码,可以先写一个模板Mail，然后抄写HTML代码。

.Subject = juststem(fn_Dx1)
.Importance = IMPORTANCENORMAL
.Body = '您好！'+chr(13)+chr(10)+chr(13)+chr(10)+'　　這是：'+juststem(fn_Dx1)+chr(13)+chr(10)+;
'　　請查收，謝謝！'
.Attachments.Add(fullpath(fn_Dx1))
*.Body = GetBoiler(ThisWorkbook.Path & "\test.txt")
.Send
*.display

ENDWITH

RELEASE oEmailItem
RELEASE oOutLookObject

这个其实是通过VBA调用OUTLOOK发的，基本可以无视，因为每发一封都要提示一下，告诉你有程序调用OUTLOOK，然后要你同意什么的。

我找过其他方式，什么MAPI，CDO，都不成功，STMP服务器ping得通，设不上去就是。。而JMAIL和MYMAIL，也不行，因为公司电脑不能装载DLL。。。完全无语。

现在考虑是否能模拟WORD里面那个MAIL MERGE邮件合并过程。。。但是没找到现成的代码，郁闷中。。。