ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 10866|回复: 15

[已解决]用VBA操作Lotus Notes发邮件的时候如何paste speical(rich text)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-5-20 18:02 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:邮件应用开发
本帖最后由 tonyibm 于 2012-5-21 16:25 编辑

我们在用Lotus Notes发邮件的时候,比如从EXCEL里面复制了一些单元格,然后在邮件里面,选择菜单"edit" - "paste special" - 选择rich text,这时候就会粘贴到邮件中一个类似的表格形式,

但是我找了一圈,不知道在VBA中咋实现,


TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-20 20:31 | 显示全部楼层
用richtextitem的appendtable方法搞定了,
代码贴出来共享一下,

[code=vb]
Sub aaaaaa()
Dim no As Object
Dim db As Object
Dim doc As Object
Dim fields As Object
Dim att() As String
Dim nrtn As Object
Dim x, y As Integer
Set no = CreateObject("notes.notessession") '建立和邮件的连接
Set db = no.CURRENTDATABASE '建立和邮件数据库的连接
Set doc = db.CREATEDOCUMENT '创建一个新的邮件
Set fields = doc.CREATERICHTEXTITEM("body") '设置新邮件的正文(附件)对象
Set nrtn = fields.CREATENAVIGATOR
fields.APPENDTABLE 11, 4
nrtn.FINDFIRSTELEMENT (RTELEM_TYPE_TABLECELL)
For x = 1 To 11
    For y = 1 To 4
   
        fields.BEGININSERT nrtn
        fields.APPENDTEXT Sheets(1).Cells(x, y).Value
        fields.ENDINSERT
        nrtn.FINDNEXTELEMENT RTELEM_TYPE_TABLECELL
        
    Next y
   
Next x
With doc '设置新邮件的除正文和附件外的其他信息
    .form = "Memo" '新邮件
    .sendto = "tonyhf@cn.ibm.com" '发送给
    .Subject = "this mail is just for testing" '主题
    .SAVEMESSAGEONSEND = True '是否保存发送的邮件到发件箱
    .postdate = DateAdd("d", 1, Date) '发送日期等于当天
    .SEND 0 '发送
End With
MsgBox "successfully sent out the mail!"
Set no = Nothing '释放内存
Set db = Nothing
Set doc = Nothing
Set fields = Nothing
Set nrtn = Nothing
End Sub

[/code]

TA的精华主题

TA的得分主题

发表于 2012-9-20 14:57 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-11-25 11:28 | 显示全部楼层
本帖最后由 yucan20018 于 2012-11-25 11:29 编辑
tonyibm 发表于 2012-5-20 20:31
用richtextitem的appendtable方法搞定了,
代码贴出来共享一下,


非常感谢你的分享,现在有个新的问题需要你的帮忙,我希望打开NOTES把附件加进去后,就停留在“新建便笺”的界面,不要自动发送出去,具体见附件,请帮忙确认是否可以实现,谢谢!

帮忙.zip

36.78 KB, 下载次数: 53

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-11-25 21:34 | 显示全部楼层
注意这一句:
Set aDataBase = anotes.GETDATABASE("", "C:\notes\data\mail3\tonyhf.nsf")
我这里是用的getdatabase方法,这里需要自己指写地址,
还有一种方法就是anotes.CURRENTDATABASE, 用这种方法要注意一点,不能有其他的邮件数据库打开并激活,否则找到的就是这个另外打开的数据库,
  1. Sub aaa()

  2.     Dim anotes
  3.     Dim aDataBase
  4.     Dim aview
  5.     Dim itotal
  6.     Dim adocument
  7.     Dim ws
  8.     Dim notesdoc
  9.     Dim field
  10.     Dim att As Variant
  11.     Dim x As Integer
  12.    
  13.     att = Application.GetOpenFilename(filefilter:="All file,*.*", MultiSelect:=True)
  14.    
  15.     Set ws = CreateObject("Notes.NotesUIWorkspace")

  16.     Set anotes = CreateObject("Notes.NotesSession")

  17.     Set aDataBase = anotes.GETDATABASE("", "C:\notes\data\mail3\tonyhf.nsf")

  18.     Set notesdoc = aDataBase.CREATEDOCUMENT
  19.     Set field = notesdoc.CREATERICHTEXTITEM("body")
  20.    
  21.     For x = 1 To UBound(att)
  22.    
  23.         field.embedobject 1454, "", att(x)
  24.         
  25.     Next x
  26.    
  27.     Set uidoc = ws.EDITDOCUMENT(True, notesdoc)

  28. End Sub
复制代码

评分

参与人数 1鲜花 +1 收起 理由
excel333 + 1 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-12-1 12:44 | 显示全部楼层
tonyibm 发表于 2012-11-25 21:34
注意这一句:
Set aDataBase = anotes.GETDATABASE("", "C:\notes\data\mail3\tonyhf.nsf")
我这里是用的 ...

非常感谢,验证了,确实达到了预期的效果。现在还有2个邮件外观美化的需求,请帮忙看下可不可以实现。

1、以上代码插入的附件是直接在邮件最后面的,但我的邮件是带有签名的,可不可以让附件加在签名之前;
2、以上代码插入的附件,是灰色的,可不可以将插入的附件显示为我附件需求的那种形式(文件的图标加文件明)。

谢谢!

帮忙.zip

36.78 KB, 下载次数: 91

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-12-5 21:02 | 显示全部楼层
第二个问题,看一下这篇文章

http://www.vbafan.com/2012/07/14/method-to-show-correct-application-icon-in-lotus-notes-by-vba/

第一个问题,

没有找到好的解决方案,只有将签名先去除,然后在代码中再添加,

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-12-5 21:21 | 显示全部楼层
本帖最后由 tonyibm 于 2012-12-5 21:23 编辑

对于你的第二个问题,我偶然发现下面的方式可以解决,只不过这样会让附件出现在邮件正文上面的灰色区域,

test.jpg
[code=vb]Sub test()
    Dim anotes
    Dim aDataBase
    Dim ws As Object
    Dim notesdoc
    Dim field
    Dim att As Variant
    Dim x As Integer
    Dim uidoc As Object
   
att = Application.GetOpenFilename(filefilter:="All file,*.*", MultiSelect:=True)

    Set ws = CreateObject("Notes.NotesUIWorkspace")

    Set anotes = CreateObject("Notes.NotesSession")

    Set aDataBase = anotes.GETDATABASE("", "C:\notes\data\mail3\tonyhf.nsf")

    Set notesdoc = aDataBase.CREATEDOCUMENT
   
    Set uidoc = ws.CURRENTDOCUMENT()
   
Set field = notesdoc.CREATERICHTEXTITEM("body1")

For x = 1 To UBound(att)

        field.embedobject 1454, "", att(x)

Next x

    Set uidoc = ws.EDITDOCUMENT(True, notesdoc)

End Sub

[/code]

起作用的代码是:

Set field = notesdoc.CREATERICHTEXTITEM("body1"), 注意这里不是body, 而是body1,

TA的精华主题

TA的得分主题

发表于 2014-2-22 17:53 | 显示全部楼层
tonyibm 发表于 2012-11-25 21:34
注意这一句:
Set aDataBase = anotes.GETDATABASE("", "C:\notes\data\mail3\tonyhf.nsf")
我这里是用的 ...

您好,我采用 aotes.CURRENTDATABASE 这种方式连接数据库,保证邮件数据库已打开激活,直接在vba里运行是生效的。于是我在
Private Sub Workbook_Open()

End Sub
里直接调用这个sub,并在发送邮件这个sub里增加了Applicaiton.Quit
然后用windows server的计划任务定时打开这个excel文档,已达到定时发送邮件的效果,测试失败,计划任务显示已完成(0X1),应该是哪里才出了问题。正常执行的任务为已完成(0X0)
求大神破解,万分感谢

TA的精华主题

TA的得分主题

发表于 2015-4-8 22:53 | 显示全部楼层
求教类似问题:如果我已经设置好一个以"Template"命名的信纸时,如何每次发邮件的时候都可以直接调用该信纸?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-8-23 05:11 , Processed in 0.118586 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表