outlook-vba相关内容

Outlook和Excel VBA任务计划程序

我绝对需要帮助,因为这个整个“系统”应该在本周结束,但作为一个完全新手的 vba脚本和代码等,我不知道如何执行任务。 我已经创建了一个excel,根据到期日生成每日电子邮件提醒,并希望使用任务调度程序每天打开它。 我想要的: PC在745am自动启动(最有可能使用bios电源管理) li> PC到达用户登录页面 任务调度程序打开前景,接着是我的excel,并在上午8点发送电子 ..
发布时间:2017-09-26 22:13:04 Office

VBA自动化Outlook Mail Bug:将两个字符串放在HTMLBody中

运行以下代码后,我将看到第一部分显示在我的新电子邮件弹出窗口中,但不是第二部分。但是,如果我只是点击发送和接收,我将看到正确显示2部分。 为什么?在发送之前,为什么我看不到新电子邮件弹出窗口中的第二部分? 谢谢!! 代码 Dim OutApp As Object Dim OutMail As Object With Application .EnableE ..
发布时间:2017-09-26 21:34:22 Office

对象项不支持此属性或方法

所以,我是VBA的初学者,但我正在尝试创建一个简单的方法,向一些在excel电子表格中找到信息的人发送提醒信息。它应该循环,发送电子邮件到列中找到的地址,直到有一个空单元格。 我不断收到错误对象不在以*开头的行上支持此属性或方法。我花了最后一小时试图弄清楚为什么出现这个错误,因为工作簿具有属性 Sheets code>单元格返回一个值。 Sub Send_Reminder_Email ..
发布时间:2017-09-26 19:59:55 Office

我需要从Excel编写正确的“参考”到MS Outlook

我想在 Excel 中运行一些代码,与 Outlook 进行交谈。在我的机器上,我可以在VBE中从 Tools->参考文献中选择正确的引用。 但是我希望我的代码在他们的机器上为其他用户运行,他们都将有不同版本的Outlook和Excel, 有没有一个整洁的方式,我可以使代码选择对MS Outlook的正确引用,或者告诉我Outlook是否未安装,等等? 谢谢 解决方案 我 ..
发布时间:2017-09-24 20:00:19 Office

将结构化文本块中的数据从Outlook消息复制到Excel工作表

电子邮件正文中的“采购订单:”之后的整数。 所有电子邮件遵循此格式。 http://i.stack.imgur.com/1Ck9Q.jpg 该号码将被粘贴到Excel电子表格的下一个空行。 我的桌面上有一个名为“test”的电子表格,可以尝试这样做。 我试过大约4或5个不同的VBA代码,我发现使用Google没有运气。 解决方案 这里显示一个解决这个常见问题的方法。 ..
发布时间:2017-09-24 19:11:35 Office

Outlook VBA打开excel

我正在试图从展望中打开现有的Excel表。我可以看到工作簿打开,然后再次关闭。我将Excel.Application设置为可见。有任何想法吗?这是代码。 函数openNewForm(toDoSubject) MsgBox(“Called”) Dim xlApp As Object Dim sourceWB As Workbook Dim sourceSH As Worksheet ..
发布时间:2017-09-24 17:04:19 Office

从Excel宏中的Outlook中全部回复

当您点击Outlook中的全部回复时,它将打开一个新的电子邮件箱,但显示您电子邮件正文之前的以前的电子邮件。我正在回覆所有选定的电子邮件的outlook和输入信息。我想从Excel中的一个宏完成这一切。我的问题是,如果我尝试写回复全部的正文,它将删除整个以前的电子邮件线程。 子test() Dim mail'object / mail item iterator Dim reply ..
发布时间:2017-09-24 16:55:20 Office

Excel VBA @SQL字符串过滤器多个LIKE条件

此代码按照预期工作,但我还需要在主题行中排除 Autoreplies 和其他一些字符串。我需要知道是否可以添加2或3个以上的赞。 我尝试过And Or条件,但是我收到了一个解析错误。 以下代码可以正常工作。我只需要在无法投递后添加另一个字符串条件。 “Like'%Automatic reply%'”。 Filter = @ SQL =“& “不”& _ “urn:schema ..
发布时间:2017-09-24 16:16:51 Office

如何从Outlook宏运行Excel宏?

如何从Outlook宏运行Excel宏? 解决方案 您将需要添加Microsoft Excel 14.0数据对象库。转到工具 - >参考。 您还需要打开该工作簿才能从中运行宏。 这应该工作: Dim ExApp As Excel.Application Dim ExWbk As Workbook Set ExApp = New Excel.Application ..
发布时间:2017-09-24 16:07:24 Office

Excel VBA代码从Outlook中检索电子邮件

我要编写一个VBA代码,可以根据某些条件从Outlook中检索电子邮件。我的问题是我必须在我的代码中表示某个文件夹(在下面的示例中,表示为“PRE Costumer”的文件夹,我想从我的“收件箱”中或从更好的情况下从所有outlook文件夹中删除所有电子邮件问题是我的收件箱由许多子文件夹组成(因为rules0)我的问题是我可能不知道所有的子文件夹名称(因为许多用户将使用宏,甚至有人可以在个人文件夹 ..
发布时间:2017-09-24 15:55:08 Office

在VBA中更改HTML电子邮件正文字体类型和大小

我有一个VBA脚本,当一个VBA按钮被推送到给定的工作表中时生成并发送电子邮件。 脚本目前以相对较小的字体生成电子邮件。我想知道是否有一种方法可以将字体设置为Calibri,并且文本正好位于11. 以下是当前的VBA脚本: Private Sub CommandButton1_Click() Dim OutApp作为对象 Dim OutMail As Object ..
发布时间:2017-09-24 15:11:31 Office

添加附件到展望与不同的文件名

我有excel文件命名为“家庭音频规划(28-3-2013) 日期会不断变化,但文本将是一样的,那么如何附加这些文件到Outlook? Sub Test() Dim OutApp作为对象 Dim OutMail As Object Set OutApp = CreateObject(“Outlook.Application”) 设置OutMail = OutApp.Creat ..
发布时间:2017-09-23 21:13:19 Office

从Excel调用外观VBA

在某个excel工作簿关闭时,我有一个VBA中的功能,我想打电话。有没有办法使用BeforeClose事件的excel?我知道如何为这个事件编写函数,但是我不知道如何将它们链接到当前的outlook会话以获得该功能。 解决方案 如果您希望获取对已经运行的Outlook的实例的引用,您将需要使用: 设置myOutlookApp = GetObject(,“Outlook.Applica ..
发布时间:2017-09-23 20:15:53 Office

出口表从excel的展望是黑莓友好

所以我从互联网上的不同地方收集了一些代码,将表格导出到Outlook中,并自动发送出去,并注意到电子邮件不是真正的黑莓友好的(主要是因为电子邮件正文被发送为HTML而不是“富文本”,记住表格也需要以丰富的格式)。我错过了一行代码,可以将Outlook发送为“Rich Text”,但不知道是什么。有人可以帮我吗请参阅下面附的完整代码(提前为代码延长)。 感谢 P Sub Mail_Sh ..
发布时间:2017-09-23 19:40:39 Office

将Excel中的单元格范围复制到Outlook中的电子邮件正文

如何使用VBA将一系列单元格从Excel复制到Outlook中的电子邮件正文(而不是使用附件添加Excel文件)。我只需要内容才能成为Outlook邮件的一部分。任何人可以帮助我使用宏来编码这个? 解决方案 请参阅 here 如果可以帮助你。 我在看对于使用VBA将多个Excel 2007单元格复制/粘贴到Outlook邮件正文中的解决方案,但无法直接复制/粘贴, MsgBody.H ..
发布时间:2017-09-09 20:02:18 Office

电子邮件从外观与Excel单元格值在主题

如何从excel文件发送包含主题中的单元格值的Outlook的电子邮件? 我发现每个可能的代码都能从excel发送电子邮件,但我真的想让电子邮件打开,并且具有来自excel文件的单元格值。 所有这些都是从Outlook而不是从Excel完成的。谢谢。 解决方案 请参阅下面的示例 code> Option Explicit Sub Cell_Value_in_Subje ..
发布时间:2017-09-09 17:25:42 Office

如何在Excel VBA电子邮件中添加签名?

我用这个VBA代码发送电子邮件,当用户点击一行中的单元格。 我想添加一个图像的签名给我电子邮件正文我如何修改我的代码呢? Private Sub Worksheet_SelectionChange(ByVal Target As Range) 如果Target.Column = Range(“BL1”)。Column Then 如果Target.Row> 7和Target. ..
发布时间:2017-09-09 16:20:07 Office