Tag: outlook

根据Outlook邮件更新Excel表格: 我的目标是更新Excel表，每当我收到一个特定主题的邮件（我build立了一个规则，将相关的邮件移动到一个文件夹）。我在这个网站看到了类似的post，但是给出的代码并不完整。不是“专家”或“技术人员”，很难编码。邮件包含：文件名：所有者名称：上次更新date：文件位置（这将是共享驱动器path）：我会每天收到这封邮件，需要在Excel表格中更新这些信息。（我将继续开放到月底）请帮帮我。提前致谢

读取额外行中的VBA TextStream对象结果: 使用Ron de Bruin的RangeToHTML函数，我将一个范围粘贴到Outlook电子邮件中。但是，看起来多余的空行被粘贴到电子邮件中，如下所示：我已经确认Source:=TempWB.Sheets(1).UsedRange.Address行只能正确抓取数据本身而不是多余的行。我也确认RangetoHTML()的input范围也是正确的。我唯一的猜测是.ReadAll方法是在文件中添加一个额外的行，但我不知道如何debugging。这里是我用来简单参考的RangetoHTML函数： Function RangetoHTML(rng As Range) ' By Ron de Bruin. Dim fso As Object Dim ts As Object Dim TempFile As String Dim TempWB As Workbook Application.ScreenUpdating = False Application.EnableEvents = False TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" 'Copy the range and create […]

Outlook项目更改重复: 在Outlook中，我有一个VBA脚本，它读取新的传入电子邮件，并将一些信息保存到Excel文件，并将文本正文和任何附件保存到文件夹中。现在，我想改变我的脚本，以便保存任何类别为“蓝色”的电子邮件。所以我修改了这里的一些部分： Public WithEvents objMails As Outlook.Items Private Sub Application_Startup() Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items End Sub Private Sub objMails_ItemChange(ByVal Item As Object) If Item.Class = olMail And Item.Categories = "Blue" Then Set objMail = Item Else Exit Sub End If …. 代码的其余部分包括有关保存的细节，其中没有一个是从我以前的工作脚本中更改的，但为了完整起见，我将其包括在内。 … 'Specify the Excel file which you want to auto export […]

VBA Outlook调用Excelmacros并等待macros完成: 我从Outlook规则脚本调用Excelmacros。这个过程是：获取邮件，运行一个运行Outlook脚本的Outlook规则，从该脚本打开Excel，运行Excelmacros，closuresExcel。如何在Outlook规则脚本中validationExcelmacros是否已完成，以保存并closures应用程序？ 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.DisplayAlerts = False appExcel.ActiveWorkbook.Save appExcel.Quit Set appExcel = Nothing Set wkb = Nothing End Sub

如何使用VBA或macros将Outlook邮件复制到Excel中: 我是VBA和macros的新手。如果有人帮助我使用VBA代码和macros，这将是有益的。每天我会收到约50-60邮件与一个标准科目：“任务已完成”。我已经为所有这些邮件创build了一个规则移动到一个特定的文件夹：“任务完成”。每天阅读所有50-60封邮件并更新所有邮件非常耗时。收到的所有50-60封邮件都会有相同的主题，但来自不同的用户。邮件的身体会有所不同。我正在使用Outlook 2010和Excel 2010。

从Outlook下载附件并在Excel中打开: 我试图下载并使用Excel中的VBA在Outlook电子邮件中打开Excel电子表格附件。我怎么能够：从我的Outlook收件箱中的第一封电子邮件（最新电子邮件）下载唯一的附件将附件保存在具有指定path的文件中（例如：“C：…”）使用：当前date + 以前的文件名重命名附件名称将电子邮件保存到不同的文件夹，path如“C：…” 在Outlook中将电子邮件标记为“已读” 在Excel中打开 Excel的附件我也希望能够将以下内容保存为分配给各个variables的单个string：发件人电子邮件地址接收date 发送date 学科电子邮件的消息虽然这可能会更好地问一个单独的问题/自己看看。我目前所做的代码来自其他在线论坛，可能不是很有帮助。不过，这里有一些我一直在努力的东西： Sub SaveAttachments() Dim olFolder As Outlook.MAPIFolder Dim att As Outlook.Attachment Dim strFilePath As String Dim fsSaveFolder As String fsSaveFolder = "C:\test\" strFilePath = "C:\temp\" Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) For Each msg In olFolder.Items […]