如何把word2013作为正文加入到outlook2013邮件
你好 通过调用 word的宏倒可以曲线实现这样的功能 胡乱凑出来的代码 不过调试以已经通过 分享给大家 ,不要贻笑大方哦 Public wdApp As Word.Application Public wdAppTem As Word.Application Public Mail_Doc As String Public Mail_Text Public Mail_Counter As Integer Public ReportDate_Temp As Date Public Sent_Date As String Public Sent_Date_Temp As String Public Report_Flag As String Public Report_Subject As String Public Sub Open_Word_OutLook()....... Work_Path = ThisWorkbook.Path Mail_Doc = Work_Path & "\" & "Mailok.doc" Set wdApp = New Word.Application With wdApp .Documents.Open Filename:=Mail_Doc .Visible = True .ActiveWindow.EnvelopeVisible = False End With'打开word 编辑word wdApp.Selection.WholeStory wdApp.Selection.Delete'##################################################################################### For Mail_Counter = 1 To 18 Mail_Text = ThisWorkbook.Sheets("Mail").Range("A" & Mail_Counter).Value With wdApp .Documents.Open Filename:=Mail_Doc .Visible = True With .Selection .EndKey unit:=wdStory .Text = Mail_Text .EndKey unit:=wdLine .TypeParagraph End With End With Next Mail_Counter'Finish Item 1 to 5'##################################################################################### Sheets("Report").Select ThisWorkbook.Sheets("Report").Range(Cells(39, 1), Cells(51, 6)).Select Application.CutCopyMode = False Selection.Copy ActiveSheet.Pictures.Paste.Select Application.CutCopyMode = False Selection.Cut With wdApp With .Selection .EndKey unit:=wdStory .Paste .EndKey unit:=wdLine .TypeParagraph .TypeParagraph End With End With'Finish Paste Equipment Status PIC'##################################################################################### Sheets("Mail").Select Mail_Text = ThisWorkbook.Sheets("Mail").Range("A19").Value With wdApp With .Selection .EndKey unit:=wdStory .Text = Mail_Text .EndKey unit:=wdLine .TypeParagraph .TypeParagraph End With End With'Finish paste "ATE down Time & HST Availability" Sheets("Report").Select ThisWorkbook.Sheets("Report").Range(Cells(15, 1), Cells(21, 4)).Select Application.CutCopyMode = False Selection.Copy ActiveSheet.Pictures.Paste.Select Application.CutCopyMode = False Selection.Cut With wdApp With .Selection .EndKey unit:=wdStory .Paste .EndKey unit:=wdLine .TypeParagraph .TypeParagraph End With End With'Finish Paste ATE down Time & HST Availability PIC................................. Sheets("Mail").Select ActiveSheet.Shapes("Picture 1").Select Application.CutCopyMode = False Selection.Copy With wdApp With .Selection .EndKey unit:=wdStory .Paste .EndKey unit:=wdLine End With End With'##################################################################################### With wdApp .ActiveDocument.Save End With'编辑word 结束 wdApp.Run "Create_Mail" '调用word 宏 将正文创建邮件 至于标题收件人之类在word vba 中完成 AppActivate "Microsoft word" Do Until wdApp.ActiveWindow.EnvelopeVisible = False On Error GoTo 1 Loop With wdApp' .ActiveDocument.Close .Quit End With Set wdApp = Nothing GoTo 31: Set wdApp = Nothing GoTo 22: MsgBox "You have not sent the mail!!!" & Chr(10) & "The Word Appliction have not close correctly!!!"3: Sheets("Report").Select End Sub
怎么用word2013发送邮件
方法如下:1、使用Word2013打开Word文档,打开“文件”--“共享”命令,然后单击“电子邮件”选项,接着在右侧单击“作为附件发送”选项,如下图所示。
2、接着Outlook2013会自动启动,在“收件人”中输入收件人邮箱地址和邮件内容,再单击“发送”按钮即可将该文档以附件的形式发送到指定收件人的邮箱中。
微软office 2013包含哪些软件?分别是做什么的?
Office 家庭和学生版 2013:Word、Excel、PowerPoint、OneNoteOffice 小型企业版 2013:Word、Excel、PowerPoint、OneNote 和 OutlookOffice 专业版 2013:Word、Excel、PowerPoint、OneNote、Outlook、Publisher 和 AccessOffice 专业增强版 2013:Word、Excel、PowerPoint、OneNote、Outlook、Publisher、Access、Lync、InfoPath除了上述套件,office2013还包括单独售卖的Visio和Project
直接在word里用outlook发邮件,遇到严重问题!!
为什么我无法启动我的 Office 2013 应用程序?Excel、Word、Outlook、PowerPoint、Publisher 或 Visio 的加载项可能会导致此问题。
在安全模式下启动应用程序是一种极好的查明原因的方法。
要执行此操作,请在 Windows 8 中转至您的“开始”屏幕或在 Windows 7 中单击“开始”>“运行”,并键入以下命令之一:键入 excel /safe 并按 Enter 以启动 Excel 2013。
键入 outlook /safe 并按 Enter 以启动 Outlook 2013。
键入 winword /safe 并按 Enter 以启动 Word 2013。
键入 powerpnt /safe 并按 Enter 以启动 PowerPoint 2013。
键入 mspub /safe 并按 Enter 以启动 Publisher 2013。
键入 visio /safe 并按 Enter 以启动 Visio 2013。
如果 Office 应用程序未在安全模式下启动,则加载项没有问题。
转到“详细信息”部分了解您的 Office 应用程序崩溃的其他原因。
如果 Office 应用程序启动,请逐一禁用加载项。
Office 应用程序仍在安全模式下:单击“文件”>“选项”>“加载项”。
在“管理”列表旁边,单击“转到”。
取消选中列表中的加载项之一,然后单击“确定”。
重新启动应用程序(这次不是在安全模式下)。
如果 Office 应用程序启动,则您取消选中的加载项存在问题。
建议您访问加载项的公司网站以检查您可以安装的更新版本。
如果没有较新版本或者您不需要使用该加载项,则可以取消选中或将其从您的 PC 中删除。
如果 Office 应用程序未启动,请重复这些步骤以逐一取消选中其他加载项。
如果所有加载项未选中,而您仍然无法打开 Office 应用程序,请按照“COM 加载项故障排除”下的步骤执行操作。
COM 加载项故障排除COM 加载项可能还会导致启动问题。
Office 应用程序仍在安全模式下:单击“文件”>“选项”>“加载项”。
在“管理”列表中,单击“COM 加载项”,然后单击“转到”。
取消选中列表中的加载项之一,然后单击“确定”。
重新启动应用程序(这次不是在安全模式下)。
如果 Office 应用程序启动,则您取消选中的 COM 加载项导致了该问题。
建议您访问加载项的公司网站以了解是否存在您可以安装的更新版本。
如果没有较新版本或者您不需要使用该 COM 加载项,则可以取消选中它。
如果 Office 应用程序未启动,则不存在与加载项相关的问题。
转到“详细信息”以了解可能会发生这种情况的其他原因。
可能导致 Office 2013 出现问题的加载项这些加载项的早期版本已知会导致 Office 2013 应用程序出现问题:ABBYY FineReader:访问此 ABBYY FineReader 网页以安装最新版本。
Broadcom Send-to-Bluetooth:访问此 Broadcom Bluetooth 网页以安装最新版本。
Intel Send-to-Bluetooth:访问此 Intel 网页以安装最新版本。
Kingsoft 的 PowerWord:访问此 KingSoft PowerWord 网页以安装最新版本。
详细信息如果问题不是由加载项引起的,则您的 PC 的视频配置可能会导致此问题。
有关详细信息,请转到有关视频配置不兼容性的文章。
您也可以在安全模式下启动 Windows 以测试 PC 上的其他程序是否导致了该问题。
有关 Windows 安全模式故障排除的详细信息,请阅读以下文章:对于 Windows 7:什么是安全模式?对于 Windows 8:Windows 启动设置(包括安全模式)感谢您的反馈!
office中的word是什么意思?
Microsoft office最常用的组件有Word/Excel/Outlook……还有很多Microsoft Word是文字处理软件。
它被认为是Office的主要程序。
它在文字处理软件市场上拥有统治份额。
它私有的DOC格式被尊为一个行业的标准,虽然它的最新版本Word 12.0/2007也支持一个基于XML的格式。
Word也适宜某些版本的Microsoft Works。
它适宜Windows和Macintosh 平台。
office 2013包括了那些软件
如图,office2013有好几种套件,不同套件包含不同的软件。
1. Office 家庭和学生版 2013:Word、Excel、PowerPoint、OneNote2. Office 小型企业版 2013:Word、Excel、PowerPoint、OneNote 和 Outlook3. Office 专业版 2013:Word、Excel、PowerPoint、OneNote、Outlook、Publisher 和 Access4. Office 专业增强版 2013:Word、Excel、PowerPoint、OneNote、Outlook、Publisher、Access、Lync、InfoPath除了上述套件,office2013还包括单独售卖的Visio和Project
为什么我用outlook转发邮件会出现word停止工作?
* 不知你是什么邮箱,用浏览器打开看下,是否能转发。
如163邮箱发送的对象多了或邮件发得多常会突然被封掉,只能接收。
类似这种现象,可激活。
* 检查网络是否正常* 检查账号密码的设置,你用的是什么邮箱,是否支持pop3? 因有很多邮箱不支持pop和smtp,就不能用outlook来收发邮件。
* 若平时在outlook里收发邮件一直很正常,突然间不能收发,就反复多试几次,稍后再试,有时又会通的,这和你邮箱的服务器有关。
* 打开outlook属性,检查pop和smtp参数是否正确。
某些邮箱有自己的参数,多数邮箱用默认参数。
若一切检查正常无误,就是不通。
最后就是把这个账号重新创建一次,把原来那个删掉。
* Outlook Express功能很强大,有很多设置可玩呢。
可去我的博客http://blog.sina.com.cn/joicec ,有我写的详细教程,有空还会再继续写下去。
转载请注明出处51数据库 » outlook2013中的word