Tag: outlook

如何以编程方式停止出现在Office 2010中的“研究”工具栏？

单击“Alt”button，在Office 2010中创build一个令人讨厌且持久的“研究”工具栏。 我怎样才能通过VBA删除这个？

从Outlookmacros运行Excelmacros获取错误1004

我在Outlook中运行VBA脚本的规则。 这个VBA是打开一个本地Excel文件，然后在Excel文件中运行这个macros。 运行时，打开Excel文件，我得到错误：运行时错误1004：无法运行macros'问我的问题workflow.xlsm！AskMeFlow'。 macros可能不在此工作簿中可用或所有macros可能被禁用。 从Excel运行Excelmacros时，所有运行正常。 我在Outlook中的代码： Sub AskMeAlerts() Dim appExcel As Excel.Application Dim wkb As Excel.Workbook Set appExcel = CreateObject("Excel.Application") appExcel.Workbooks.Open ("C:\Ask me question workflow.xlsm") appExcel.Visible = True appExcel.Run "Ask me question workflow.xlsm!AskMeFlow" appExcel.ActiveWorkbook.Close appExcel.Quit Set appExcel = Nothing Set wkb = Nothing End Sub

Excel显示垃圾字符

我在Outlook中编写了一个脚本来导出选定的电子邮件到Excel。 任何人都可以帮助我configurationExcel或我的代码可能需要什么变化，以便它不显示下面的屏幕截图的垃圾邮件？ 在一台电脑上显示正确，但没有显示。 以下是我的代码： Const ExcelPath = "c:\outlook\outlook_emails.xlsx" Sub Export_To_Excel() Dim oMail As Outlook.MailItem Set oMail = GetCurrentItem If oMail Is Nothing Then MsgBox "No or Invalid Item selected", vbCritical Exit Sub End If On Error GoTo Err_H ' Get Email Info Email = GetSmtpAddress(oMail) Body = Replace(oMail.Body, Chr(9), vbCrLf) Subject = Replace(oMail.Subject, Chr(9), vbCrLf) […]

从发送的邮件中检索VBA中的Outlook附件

我想要做的是让我们在我的工作中使用一些电子邮件模板，当我们拖放一个特定的Excel文件时，它会select并复制一个Excel文件的范围到电子邮件的正文。 我唯一的问题，正如我到处看，我发现的所有代码似乎是接收，而不是写的电子邮件是我如何访问： 我正在写一封电子邮件中的附件 我正在写电子邮件的正文 一旦我能得到当前电子邮件的附件，我确信我可以得到我想要的所有其他代码。 在提到“只是loggingmacros观，看看它是怎样的”之前，由于某种原因，我的前景在任何地方都没有“macros观macros观”项目，因为这也是我第一次参与。

使用Outlook VBA从Excel文件复制/粘贴。

好吧，在这里我有一些难题。 这是我正在尝试的罗嗦版本： 在我已经在Outlook中创build的模板中，打开它并拖动一些文件 – 其中之一将是一个Excel文件。 打开Excel文件并读取到预定的最后一个单元格 将最后一行/列的单元格复制到第一个单元格A1 。 将以前在步骤3中复制的单元格粘贴到Outlook正文中 4号是目前我的问题所在。 附上的是代码 Const xlUp = -4162 'Needed to use the .End() method Sub Sample() Dim NewMail As MailItem, oInspector As Inspector Set oInspector = Application.ActiveInspector Dim eAttachment As Object, xlsAttachment As Object, i As Integer, lRow As Integer, lPriorRow As Integer, lCommentRow As Integer '~~> Get […]

使用Excel Visual Basic的电子邮件正文中的粗体variables

这实际上是我第一次在这个网站发布 – 我真的很感谢所有的帮助，我可以得到！ 我有一个包含的Excel工作表 客户电子邮件， 他们的名字， 他们的支票date和 和他们的处理date。 如果他们的处理date是今天，我想每天发送一封提醒邮件给他们。 我已经成功地编写了代码 – 但是我一直没有能够大胆的部分电子邮件（ ProcessingDate ， CheckDate和Time ）。 再次感谢你！ 这是我的代码： Sub SendEm() Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long, MyDate As Date, Client As String, ProcessingDate As Date, CheckDate As Date, Time As Date, PayrollSpecialist As String Dim Msg As Variant lr […]

使用JAVA打开一个CSV文件（使用JXL库）

我真的是JAVA的绿色angular。 我正在尝试使用JAVA（JXL）来执行以下操作： 1.在位于“C：\ Test”的Excel中打开一个csv文件（我可以把这个文件看作是用JXL打开的excel文件吗？） 2.检查单元格A1 如果A1为空，closures文件并结束例程。 如果A1不为空，请转至步骤3。 3.closurescsv文件并发送一封Outlook电子邮件给3人，说明“正在发生事件” 我假设可能有另一个API库需要与Microsoft Outlook一起工作 我一直在使用Netbeans 我感谢任何帮助！ 戴夫

需要正确的macros代码才能将文档a / o文件从Excel电子表格附加到Outlook

我有一个macrossearch从Excel中的联系人列表中提取数据的联系人列表，并准备要在Outlook中发送的电子邮件。 这个macros的大部分工作成功。 我差不多完成了。 我也需要它来search一个文件夹（使用在单元格A8中input的文件名），并将相应的文件附加到电子邮件。 （文件夹path：C：\ Users \ SERGIL \ Desktop \ VATS） Below is the code I have thus far: Public Sub SendEmails() Const cSUBJECT As String = "C2" Const cBODY As String = "C3" Const cSTART_ROW_INDEX As String = "C4" Const cEND_ROW_INDEX As String = "C5" Const cMAIL_TO_COLUMN As String = "G" ' The […]

通过Outlook完全自动发送和回复Excel

Greettings。 这是我的第一篇文章，请耐心等待。 我计划在MS Access中devise一个数据库软件。 我计划这个软件的function之一就是提交文件以供批准。 理想的是从数据库（报表或表单）中点击发送一个预先写好的电子邮件，附件中有一个文件，但是，这个预先写好的电子邮件会有一个链接，写电子邮件，用于快速自动回复/回复，但不使用Outlook的回复。 目标是人们从数据库发送，其他接收，阅读文件，如果批准，点击“自动回复”，Outlook将只是一个“阅读”软件与所有发送在后台完成。 尽pipe我计划使用Access应用程序，但我在Excel中起草了一个示例，以便进行更快速的testing（目标道具用于传递string，以便能够保存string）。 这是迄今为止的代码。 Private Function SendEmailWithOutlook(MessageTo As String, Subject As String, MessageBody As String, myAttachment As String) ' Define app variable and get Outlook using the "New" keyword Dim olApp As New Outlook.Application Dim olMailItem As Outlook.MailItem ' An Outlook Mail item ' Create a new email object Set […]

VBA使用Outlook打开Excel不能打开

嗨，感谢您的帮助。 我在Outlook 2010＆2007中有以下代码： Sub Openexcel() Dim xlApp As Object Dim sourceWB As Workbook Dim sourceSH As Worksheet Dim strFile As String Set xlApp = CreateObject("Excel.Application") With xlApp .Visible = True .EnableEvents = False End With strFile = "E:\All documents\susan\work\Excel projects\saving files to directory Clean.xls" Set sourceWB = Workbooks.Open(strFile, , False, , , , , , […]