查看: 1681|回复: 7
如何在邮件中插入附件资讯
阅读权限10
在线时间 小时
在网上找到如下VBA码可在邮件内文插入附件资讯，可是插入点却是在邮件尾，如何修改可以将资讯于游标停留点插入？谢谢！
[code=vb]Option Explicit
Sub Names()
Dim Atmt As attachment
Dim Mensaje As Outlook.MailItem
Dim Adjuntos As String
Dim Body As String
Dim i As Integer
Set Mensaje = Application.ActiveInspector.currentItem
Mensaje.BodyFormat = olFormatHTML
Body = Mensaje.HTMLBody
Adjuntos = &&
For Each Atmt In Mensaje.Attachments
& & 'If Atmt.Size & 5 Then
& & Adjuntos = Adjuntos & &** Attached file: &u&& & Atmt.FileName & &&/u&&br&&
& & i = i + 1
& & 'End If
Adjuntos = &&font face='calibri'&&u&&b&Total number of attached files: & & i & &&/u&&/b&&br&& & Adjuntos & &&/font&&
Mensaje.HTMLBody = Left(Body, InStr(Body, &&/body&&) - 1) & Adjuntos & Right(Body, Len(Body) - InStr(Body, &&/body&&) + 1)
Set Mensaje = Nothing
阅读权限10
在线时间 小时
你说的这个方式我有想过，可我希望能自订字型颜色等，所以要嘛将格式化的内容先复制至剪贴板再贴上，要嘛直接将内容插入游标点（这得修改第27行的码）。
可惜VBA我不会撰写，只能到网上找范本，所以上述问题还望高手指导。谢谢！
阅读权限100
在线时间 小时
你可以先把增加的内容放到剪贴板中，然后粘贴。
阅读权限100
在线时间 小时
用第三方的库吧。
阅读权限10
在线时间 小时
虽然没用到你提供的资料，还是谢谢你的回复。已自行改写达到需求。
阅读权限100
在线时间 小时
vane42 发表于
虽然没用到你提供的资料，还是谢谢你的回复。已自行改写达到需求。
希望能分享出来。
阅读权限10
在线时间 小时
本帖最后由 vane42 于
10:08 编辑
dsd999 发表于
希望能分享出来。
[code=vb]'须设定引用项目[Microsoft Word 14.0 Object Library]
Option Explicit
Sub InsrtAttachmentsInfo()
& & Dim Atmt As attachment
& & Dim Mensaje As Outlook.MailItem
& & Dim Adjuntos As String
& & Dim i As Integer
& & Dim objOL As Outlook.Application
& & Dim objDoc As Word.Document
& & Dim objSel As Word.Selection
& & Set Mensaje = Application.ActiveInspector.currentItem
& & Adjuntos = &&
& & For Each Atmt In Mensaje.Attachments
& && &&&Adjuntos = Adjuntos & &** Attached file: & & Atmt.FileName & vbCrLf
& && &&&i = i + 1
& & Next Atmt
& & Set objOL = Application
& & Set objDoc = objOL.ActiveInspector.WordEditor
& & Set objSel = objDoc.Windows(1).Selection
& & With objSel
& && &&&.collapse wdCollapseStart
& && &&&.InsertAfter &Total number of attached files: & & vbCrLf & Adjuntos
& && &&&.Font.Name = &Calibri&
& && &&&.Font.Size = &12&
& && &&&.Font.Bold = True
& && &&&.Font.Color = wdColorGreen
& & End With
& & Set Mensaje = Nothing
补充内容 ( 17:09):
第26行程式码修正为：
.InsertAfter &Total number of attached files: & & i & vbCrLf & Adjuntos
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师求永中office2010专业版的 cd key_百度知道
求永中office2010专业版的 cd key
提问者采纳
(1) GBQ2P-BK9R4-396P8-CD878-CKRHX(2) HX6TK-9C4G2-BW9PB-DQ9KT-YFC8K(3) J833D-MJ3MD-6XHVH-4W9QV-496KD如不行可以把邮箱告诉我给你发过去
其他类似问题
为您推荐：
其他2条回答
我这里也有！，你说一声，我再偷偷给你提供如果不行的话
(1) GBQ2P-BK9R4-396P8-CD878-CKRHX(2) HX6TK-9C4G2-BW9PB-DQ9KT-YFC8K(3) J833D-MJ3MD-6XHVH-4W9QV-496KD
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁《永中Office 2010 专业版》(YOZO Office 2010 Pro)5.0.ZH[光盘镜像]
推荐阅读：
简介: 永中Office在一套标准的用户界面下集成了文字处理、电子表格和简报制作三大应用，提供自选图形、艺术字、剪贴画、图表和科教编辑器等附加功能；基于创新的数据对象储藏库专利技术，有效解决了Office各应用之间的数据集成问题，构成了一套独具特色的集成办公软件。永中Office 办公软件 2010 中新增了多个功能，在文档兼容、产品易用性以及支持二次开发等方面作出了众多改进。下面将针对一些主要的新增及改进功能进行相关描述。增强了文档兼容性新版永中Office 增强了与 Microsoft Office 文档的兼容性，增加了对 Microsoft Office XP、2003 和 2007 文档及模板文件兼容，支持打开密码保护的微软格式文档，支持打开微软碎片文件，打开的微软格式文档可以直接保存为原格式。除能与微软文档精确双向兼容外，还可以打开由 WPS Office 制作的金山表格、金山文字及金山演示文稿。此外，还提供了文档转换工具，实现了 Microsoft Office 文档和永中Office 文件之间的双向批量转换。常用新增及改进功能任务面板永中Office 根据应用的不同，配置了不同的面板。通过任务面板可以进行该应用下最常用的操作。包括：打开文档、新建、导航定位、插入科教素材、粘贴内容管理，以及文字处理操作（样式、文档结构图）、工作表操作（图表样式、图表三维视图）和幻灯片操作（版式、应用模板、配色方案、动画方案、自定义动画、幻灯片切换）。文件切换工具栏新增文件切换工具栏。当打开多个集成文件或集成文件中包含多个应用文档时，使用此工具栏可以在不同集成文件或同一集成文件的不同应用文档之间快速切换。文字处理主要新增及改进功能表格新增手绘表格及擦除表格功能，实现了表格与文本的绕排，还可创建嵌套表格，即表中表。中文版式特色新增在文档中设置带圈字符、合并字符、双行合一及首字下沉或悬挂格式，使文档版式更符合中文特色。手写批注新增插入手写批注功能，可以通过鼠标或外接的手写笔在文档页面上进行标记。文字工具新增一批文字工具，使用这些工具可统一处理空格和段落，如增加、删除空格和空段，合并段落，删除软回车等；也可批量删除超链接或带圈字符的外圈；还可将西文双引号转换为中文双引号。此外，文字工具还提供智能格式管理的功能，利用该功能可快速规范文档的格式，尤其适用于处理从网页上复制过来的文档。电子表格主要新增功能按颜色筛选新增按颜色筛选功能，当为单元格设置填充色或字体颜色来标注列表中较为特殊的数据后，可按颜色来筛选数据列表。条件求和新增条件求和功能，利用向导引导您对工作表的指定列中符合条件的数值进行求和计算。保护工作表及工作簿新增保护工作表及工作簿功能。通过保护特定工作表的元素或工作簿结构来禁止用户对其进行更改，也可以设置保护密码，只有键入正确的密码才能修改受保护的工作表元素。规划求解提供规划求解工具，这种假设分析工具在求解时采用了相反的途径，是一种反向求解，即知道某一公式的结果取值，计算在一个或多个可变单元格中需要填入的值。数据分析提供 6 种用于分析数据的工具，使用这些工具可对工作表中的样本数据进行比较、假设、预测等分析。分析后的结果将以报表形式显示，其中有些工具在生成报表的同时还可以生成图表。简报制作主要新增及改进功能动画效果可以给同一对象设置播放次序不同的动画效果，可以为动画绘制自定义的动作路径，还提供了多套预设的动画方案供选择。多监视器同步放映在 Windows 系统下，如果您的机器上连有两个或两个以上显示设备，且已设置将桌面扩展到另一个监视器上，可以在一台监视器（例如便携式电脑）上放映幻灯片，而让观众在另一台监视器（例如大型投影仪）上观看。这样可以运行其他程序而观众不会看到，并可以访问演示者视图，使得演示更为得心应手。政府办公特色功能全面支持国家 UOF 标准作为国内 UOF 标准的主要制定者和参与者，永中公司一直积极参与并大力支持 UOF 标准的制定与实施。自此，用户将有更多文档格式可以选择，利用第三方软件就可以自由交换文档，从此不再拘泥于微软Office。强大的 PDF 输出功能增加将文档输出为有权限设置的 PDF 文件的功能，权限设置包含权限设置密码、文件打开密码以及允许打印、允许低质量打印、允许更改、允许复制、允许添加注释、允许填写表单域、允许文档组合、允许启用屏幕阅读器设备等选项，使 PDF 阅读功能更加实用而强大。二维条码可制作 PDF417 条码和公文二维条码，该条码符合中央下发的《机关二维条形码使用规范》，可配合政府机关推进公文处理科学化、规范化，提高公文运转效率教育应用特色功能新增插入函数图像功能，增加了地理和生物两个学科的应用素材，应用领域更加广泛。还增加了生僻字素材，提供一些经常会碰到的生僻字。国际化功能增加从右向左语言功能，实现了对从右向左的阿拉伯语和维吾尔语文本的输入、编辑和显示。在线资源可以连接并获取永中公司网站上的资源，包括模板文件和科教素材。可以在线升级永中Office。永中在线模板 http://永中在线科教素材 http://[red]***
镜像文件中包含正式版的KEY ***[/red]<
【文明转载，互利你我；原文网址：/RuanJian/369583，本文版权归90下载所有。】
更多推荐：> Outlook正文插入附件？简单设置即可！
Outlook正文插入附件？简单设置即可！微软·易宝典
责任编辑：刘建 【转载】
默认的邮件格式是 HTML 格式，邮件附件默认列在标题栏下方。这在附件少时还没什么，可一旦附件多杂就难免会显得混乱了。长长的一串附件，在查看正文时还得拖动上下翻寻，忍不住长叹一声：为什么无法按照邮件正文的条理逐步插入附件呢？常见的邮件附件 无法在邮件正文中显示&　　其实在邮件正文中插入附件是可以实现的，但需要将邮件格式由默认的 HTML 格式转变为 RTF 格式。　　以 Outlook 2010 为例，新建一份邮件，切换到设置文本格式选项卡。在格式栏选中 RTF 格式。Outlook2010中更改设置&　　对于 Outlook 2007 ，您可以在选项中找到 RTF 格式。Outlook2007中的相应设置选项&
下载 Office2010 请点击：
本软件在办公应用中排名第75位
用户评分：7.8 |
更新时间：日
下载次数：次
应用平台：Win XP/Win2000/Win98/Win ME
软件分类：
论坛讨论：
频道热词：&&&&&&
办公软件排行榜
软件名称下载量
130356884203518226896224161339413295119531171410972
下载周排行榜
软件名称下载量
26373310924610915599393959357887347020437774281735409
月热门资讯排行
排行 文章标题
精美壁纸推荐
美女明星风景动漫手机