附件用VBA操纵Lotus-notes发邮件

lotus notes  时间:2021-02-01  阅读:()

第一种方法

Sub SendWithLotus()

Dim noSession As Object,noDatabase As Object

Dim noDocument As Object,noAttachment As Object

Dim Fi leSelf As String

Dimi As Long

Co nst EM BED_ATTACHMENT= 1454

Const stSubject As String="For Lotus VBA Programming Test only"

D i m stMsg As Stri ng

Fi leSelf=ThisWorkbook Path+"\"+ThisWorkbook NamestMsg="Bst&Rgds"&vbCrLf&_

Application UserName&vbCrLf&_

"**********************

"(This's an automated e-mai l notification,please do not reply this message)"

DimvaRecipient As VariantvaRecipient=VBA Array("huangfeng8211@163 com")

'Insert Lotus Notes COM object

Set noSession=CreateObject("Notes NotesSession")

Set noDatabase=noSession GETDATABASE("","D:\notes\data\mai l3\tonyhf nsf")

If noDatabase IsOpen= False Then noDatabase OPENMAIL

Set noDocument=noDatabase CREATEDOCUMENT

Set noAttachment= noDocument CREATERICHTEXTITEM("Body")noAttachment EMBED OBJECT EMBED_ATTACHMENT,"" ,Fi leSelf

With noDocument

Fo rm="Memo"

SendTo=vaRecipient

Subject= stSubject

Body= stMsg

SAVEMESSAGEONSEND=True

PostedDate=Now()

SEND 0,vaRecipient

End With

Set noDocument=Nothing

Set noDatabase=Nothing

Set noSession=Nothing

AppActivate"Microsoft Excel"

MsgBox"This fi le be sent" ,vbInformation

EndSub

第二种方法

Sub SendWithLotus()

Dim noSession As Object,noDatabase As Object

Dim noDocument As Object,noAttachment As Object

Dim vaFi les As Variant

Dimi As Long

Co nst EM BED_ATTACHMENT= 1454

Const stSubject As String="For Lotus VBA Programming Test only"

Const stMsg As Stri ng="This fi le is for you!j ust for reference"&vbCrLf&"I am StanleyPan"

DimvaRecipient As VariantvaReci pi ent=VBA Array("stan leypan2000@hotmai l com" ,"stanley pan@Iso laAg com")vaFi les = ApplicationGetOpenFi lename(Fi leFi lter:="Excel Fi ler (*xls),*xls" , Title:="Attach fi les for outgoing E_Mai l" ,MultiSelect:=True)

If Not IsArray(vaFi les)Then Exit Sub

'Insert Lotus Notes COM object

Set noSession=CreateObject("Notes NotesSession")

Set noDatabase=noSession GETDATABASE("","D:\notes\data\mai l3\tonyhf nsf")

If noDatabase IsOpen= False Then noDatabase OPENMAIL

Set noDocument=noDatabase CREATEDOCUMENT

Set noAttachment= noDocument CREATERICHTEXTITEM("Body")

With noAttachment

For i =1 To UBound(vaFi les)

EMBED OBJECT EMBED_ATTACHMENT,"",vaFi les(i)

Next i

End With

With noDocument

Fo rm="Memo"

SendTo=vaRecipient

Subject= stSubject

Body= stMsg

SAVEMESSAGEONSEND=True

PostedDate=Now()

SEND 0,vaRecipient

End With

Set noDocument=Nothing

Set noDatabase=Nothing

Set noSession=Nothing

AppActivate"Microsoft Excel"

MsgBox"Thisfi le is send OK" ,vbInformation

EndSub

a,返回当前数据库的名称

结果

b,返回当前数据库的文件名

c,返回当前数据库的文件路径

Sub aaaaaa()

Dimno AsObject

Dim db As Object

Dim doc As Object

Dim fields As Object

Dim nofields As Object

Dimatt As Variantatt=ApplicationGetOpenFi lename(Fi leFi lter:="Excel Fi ler(*xls),*xls" ,_

Title:="Attach fi les for outgoing E_Mai l" ,MultiSelect:=True) '添加附件

Set no=CreateObj ect("notes notessession")'建立和邮件的连接

Set db=no CURRENTDATABASE'建立和邮件数据库的连接

Set doc=db CREATEDOCUMENT'创建一个新的邮件

Set fields=doc CREATERICHTEXTITEM("body") '设置新邮件的正文附件对象With fields'设置邮件的正文和附件

APPENDTEXT" this e-mai l is generated by an automated processjust for a test"ADDNEWLINE 1 '增加第一行

APPENDTEXT" please do not reply"

ADDNEWLINE 2 '增加第二行

For i = 1 To UBound(att) '添加附件

E MB ED OB J E CT 1454,"" ,att(i)

Next i

EndWith

With doc '设置新邮件的除正文和附件外的其他信息form= "Memo" '新邮件sendto=VBA Array("huangfeng8211@163 com" ,"tonyhf@cn i bm com") '发送给Subject= "this mai l isjust for testing" '主题

SAVEMESSAGEONSEND=True'是否保存发送的邮件到发件箱postdate=DateAdd("d" ,1,Date) '发送日期等于当天

SEND0'发送

EndWith

MsgBox"successfully sent out the mai l!"

Set no=Nothing'释放内存

Set db=Nothing

Set doc=Nothing

Set fields=Nothing

EndSub

在添加附件的时候如果只是想将当前的活动工作薄作为附件的话如下

注意一下,如果是1452的话,效果如下,

会出现一个提示,询问文档包含外部对象链接,是否要更新链接,如果确定的话,效果如下,会将EX CEL文件中的内容以图片形式打开,同时文件是只读格式的,

如果是1453,效果如下,

不会有提示,但是文件为只读,

如果为1454,则为正常的EX CEL文件格式,

3,提取邮件的一些信息

以上的发件人发送时间主题等信息还可以如下表示

运行结果

a,收件箱等邮箱本身就存在的

b,如果是自己创建的文件夹及子文件夹

比如在我的邮箱中有自定义的文件夹 fo lders,如果要想获取其下面的子文件夹之一的相关资料则应如下书写4,用上面的方法提取出来的发件人是有公司名称的anotes CREATENAME(adocumentGETITEMVALUE("from")(0))ABBREVIATED

如果不使用abbreviated,则结果为

如果想要输出的发件人只有名字没有公司名的话可以做如下更改

结果为

排版之后的效果如下所示

以上代码是将发件箱中的附件保存到D盘的新建文件夹

数脉科技8月促销,新客减400港币,BGP、CN2+BGP、阿里云线路低至350元

数脉科技(shuhost)8月促销:香港独立服务器,自营BGP、CN2+BGP、阿里云线路,新客立减400港币/月,老用户按照优惠码减免!香港服务器带宽可选10Mbps、30Mbps、50Mbps、100Mbps带宽,支持中文本Windows、Linux等系统。官方网站:https://www.shuhost.com* 更大带宽可在选购时选择同样享受优惠。* 目前仅提供HKBGP、阿里云产品,香港...

Dataideas:$1.5/月KVM-1GB/10G SSD/无限流量/休斯顿(德州)_主机域名

Dataideas是一家2019年成立的国外VPS主机商,提供基于KVM架构的VPS主机,数据中心在美国得克萨斯州休斯敦,主机分为三个系列:AMD Ryzen系列、Intel Xeon系列、大硬盘系列,同时每个系列又分为共享CPU和独立CPU系列,最低每月1.5美元起。不过需要注意,这家没有主页,你直接访问根域名是空白页的,还好他们的所有套餐支持月付,相对风险较低。下面以Intel Xeon系列共...

日本美国站群服务器raksmart站群新增,限量低至月1.99美元

RAKsmart 商家八月份的促销活动今天更新。基本上和上个月的产品套餐活动差不多的,不过也是有简单的微调。对于RAKsmart商家还是比较了解的,他们家产品虽然这两年增加多个机房,以及在VPS主机方案上有丰富的机房和调整到一些自营机房,他们家的策划能力还是有限,基本上每个月的套餐活动都差不多。RAKsmart 在八月份看到有新增香港高防服务器可选,最高100GB防御。同时原来上个月缺货的日本独立...

lotus notes为你推荐
手机内存卡数据恢复软件免费下载内存卡数据修复工具,有没有apk安卓版的免费卡巴斯基杀毒软件怎样免费用卡巴斯基杀毒软件?qq空间首页QQ空间的主页电脑杀毒软件哪个好电脑用什么杀毒软件好?压缩软件哪个好电脑常用压缩软件哪个好ps软件哪个好什么PS软件好苹果手机助手哪个好苹果手机助手哪个好,苹果手机助手推荐?手机管家哪个好最好的手机管家红茶和绿茶哪个好红茶和绿茶哪个更好?电动牙刷哪个好有人懂电动牙刷吗?飞利浦的好用还是欧乐B好用
香港vps vps优惠码 中国域名交易中心 域名抢注工具 greengeeks ubuntu更新源 七夕促销 股票老左 稳定免费空间 双12 360云服务 便宜空间 国内域名 广州主机托管 亿库 蓝队云 windowsserver2012r2 hosting24 塔式服务器 ncp 更多