Tag: outlook

将Outlook电子邮件信息从特定datevba中提取到Excel

我有几封电子邮件每天或每15天发送给我，我需要跟踪他们准时交货。 我在Outlook上创build了规则，将它们存储在不同的文件夹和子文件夹中。 我想要做的是有一个Excel工作表，比较客观date/时间与实际date/时间交付。 为此，我需要从Outlook中提取发送时间和date并将其导出到Excel。 我不确定是否要根据文件夹/子文件夹名称或主题片断来完成，就像我的规则完成一样。 我已阅读了类似问题的答案，但无法根据我的需要进行调整。

从outlook导入联系人组 – excel vba

我有以下代码从Outlook导入所有联系人。 Dim olApp As Outlook.Application Dim olNamespace As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Dim olConItems As Outlook.Items Dim olItem As Object Set olApp = New Outlook.Application Set olNamespace = olApp.GetNamespace("MAPI") Set olFolder = olNamespace.GetDefaultFolder(olFolderContacts) Set olConItems = olFolder.Items 'HERE IS THE PROBLEM I do not know how to do so that there are only contacts […]

从Outlook中插入行的边界在Excel中

我正在使用一个macros，当Outlook打开插入一些电子邮件的数据，在Excel中的行，我想添加一个边界到我的Excel中的行A范围到AE。 我正在使用intRow4来确定我的信息input的行地址。 所以我的代码看起来像这样，但我得到一个Dim Rng As Range的对象未定义的错误，因为我得到的感觉前景不支持它。 Const SHEET_NAME4 = "Statistics" excWks4 As Object, _ intRow4 As Integer, _ Set excWks4 = excWkb.Worksheets(SHEET_NAME4) intRow4 = excWks4.UsedRange.Rows.Count + 1 Dim Rng As Range Set Rng = ws2.Range("A" & intRow4 & ":AE" & intRow4 & "") With Rng.Borders .LineStyle = xlContinuous .Color = vbBlack .Weight = xlThin End […]

outlook“要做”项目使用VBA的Excel

首先，我是VBA的新手，大约有20个小时的训练。 我试图将项目从Outlook 2010导出到Excel 2010.我想从Outlook中抓取所有未完成的“待办事宜”项目，并将它们放入Excel，每行一个项目，以及项目参数的列（如Subject，Due Date ，附件等）。 这是第一遍实际上是我所解释的，只input任务（任务是所有项目的一个子集，据我所知）和他们的主题/到期date： Function GetOutlookApp() As Object On Error Resume Next Set GetOutlookApp = GetObject(, "Outlook.Application") If Err.Number <> 0 Then Set GetOutlookApp = CreateObject("Outlook.Application") End If On Error GoTo 0 End Function Sub getOlTasks() Dim olApp As Object ' Outlook.Application Dim olnameSpace As Object ' Outlook.Namespace Dim taskFolder As Object […]

从Outlook导入最近的电子邮件到Excel（VBA）

我花了很多时间来研究这个，我还没有find完整的答案。 我期望做的是从Outlook中抓取100个最近的电子邮件，并将它们粘贴到Excel工作簿中。 我已经build立了一个代码（从几个不同的网站借鉴），已经完成了这个代码，但是它缺less了“ 最新的 ”部分。 当我在Excel中执行这个代码时，用指定的信息打印出101行，这是很好的。 但这不是最近的电子邮件。 如果您在下面的图片中看到，现在的时间是晚上7点18分，但是导入到Excel中的电子邮件只是从今天下午2:17开始。 （我出于隐私的原因将其他列删除） 最初，这些电子邮件只是从2014年5月的某个随机date开始粘贴的。我在Outlook 2013上删除了我的帐户并重新添加了该帐户，这就是Excel代码从今天下午2:17开始抓取它的时间，而不是几个月前。 基于此，我认为这与代码只能读取在创build帐户时链接到Outlook的PST文件有关，但我不完全确定。 我已经广泛地search了这个问题，似乎没有人遇到同样的问题。 我只想知道是否有一种方法可以修改我的代码，只抓取最近的电子邮件。 我不想抓取原始PST文件中的存档电子邮件。 每次执行代码时，有没有办法重buildPST文件？ 有没有一种方法的代码只能从活动的Outlook窗口中读取而不是存档文件？ 任何意见将不胜感激。 这是我的代码： Sub Test() 'Dim objOL As Object 'Set objOL = CreateObject("Outlook.Application") Dim objOL As Outlook.Application Set objOL = New Outlook.Application Dim OLF As Outlook.MAPIFolder Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) Dim CurrUser As String Dim EmailItem Dim i […]

Outlook标志在Excel中完成date格式

我正在写一个macros的Excel中导出Outlook电子邮件到Excel。 代码工作正常，但数据导出为ex​​cel时，“标记完成date”字段的date格式会更改。 在Outlook中，格式为“dd-mm-yyyy hh：mm”（例如：2015年1月21日12:42）。 将电子邮件导出为Excel时，此字段的格式将更改为2015年1月21日00:00 还有其他的date字段，其格式正确显示在Excel中。 只有这个领域是格式问题。 请帮忙！ 谢谢！ KSP 这是我正在使用的代码： Sub InboxToExcel() Dim objOL As Outlook.Application Dim objNS As Outlook.Namespace Dim objInbox As Outlook.Folder Dim objTable As Outlook.Table Dim objRow As Outlook.Row Dim objMsg As Outlook.MailItem Dim objWB As Excel.Workbook Dim objWS As Excel.Worksheet Dim objRange As Excel.Range Dim strFind As String Dim strProps […]

将电子邮件正文中的表格内容从Outlook收件箱复制到Excel

我正在使用Outlook 2010和Excel 2010 。 每天我收到200封电子邮件， 内容与表格中的主题和表格数据完全一致（表格将全部相同）。 我需要将表中的数据以接收的格式复制到Excel中。 请帮助我在这..

如何创buildExcel和Outlook电子邮件之间的连接/链接？

我一直在从Excel发送Outlook电子邮件，用它来pipe理我在工作中的销售和项目pipe理活动。 我一直在享受更高的生产力，所以我想要做更高级的事情。 例如，我认为我已经编写了代码，可能很粗糙的方法是让Excel帮助跟踪尚未回复的电子邮件。 （我只是简单地使用Outlook，为每个新电子邮件打开一个工作簿，然后在新行中创build一个logging，然后让Excel将它与我以前发送的电子邮件进行匹配。 但是，一旦我在Excel中有一个这样的电子邮件logging，它没有链接或连接到实际的电子邮件。 我希望能够点击电子邮件的Excel图标或链接，然后拉起实际的电子邮件。 我发现使用EntryIDs和MessageIDs，Outlook URL和GUID，甚至是老式的AdvancedSearch（但我认为Excelsearch它启动的电子邮件似乎非常笨重的可能性;应该有一种方法来创build一个硬链接到电子邮件）。 相关的，也可能就像笨重，但我已经沉思在每个Excel启动的电子邮件中“embedded”一个唯一的标识符，可以用来find它，并将其链接回Excel中的logging。 在HTML电子邮件中，我可以在我的签名下添加一串数字，在白色背景上以白色文本添加，这不是完美的，但在大多数情况下，应该不被理会，并允许我的电子表格积极地识别它（作为答复特定的电子邮件等） 我知道我们不应该要求“build议”，但我希望有人能指出我正确的方向，可以为我所希望达成的目标发挥作用。

合并两个Excel VBA代码（另存为PDF +通过Outlook发送）

好心我有一个两个VBA代码之一是保存打印区域为与工作簿同名的PDF和保存文件位置是桌面，它工作正常，我有另一个代码，启动Outlook新消息，并采取一些特定的单元格价值作为主体，另一个价值体现。 问题是我想要新邮件的代码附加从代码1保存的PDF文件，并使主题相同的PDF文件名。 保存pdf代码是： Sub Save_as_pdf() Dim FSO As Object Dim s(1) As String Dim sNewFilePath As String Set FSO = CreateObject("Scripting.FileSystemObject") s(0) = "C:\Users\" & Environ("UserName") & "\Desktop\" & ThisWorkbook.Name If FSO.FileExists(ThisWorkbook.FullName) Then '//Change Excel Extension to PDF extension in FilePath s(1) = FSO.GetExtensionName(s(0)) If s(1) <> "" Then s(1) = "." & s(1) sNewFilePath […]

在Excel中创build超链接以便通过VBA打开特定的电子邮件Outlook

我在Outlook中编写VBA代码，将所有电子邮件信息跟踪到1个Excel文件。 对于每封电子邮件，我将把信息放在Excel的一行中。 我想在Excel文件中添加一个超链接来打开相应的Email。 我的代码如下所示： Set objFD = objNS.Folders("dtk142@aaaa.com") Set objToFD = objFD.Folders("Inbox") For Each Msg In objToFD.Items '' mail information mDate = Msg.ReceivedTime mSubject = Msg.Subject mSender = Msg.SenderName mSAddress = Msg.SenderEmailAddress ' put to excel xlTmp.Sheets("RequestTracker").Cells(cntrow, 1).Value = cntID xlTmp.Sheets("RequestTracker").Cells(cntrow, 2).Value = mDate xlTmp.Sheets("RequestTracker").Cells(cntrow, 3).Value = "Email" xlTmp.Sheets("RequestTracker").Cells(cntrow, 5).Value = mSAddress xlTmp.Sheets("RequestTracker").Cells(cntrow, 7).Value = […]