Tag: 前景

Excel安全设置从Outlook打开时

我有一个Excelmacros启用工作簿保存在一个受信任的位置。 我正试图打开该工作簿并从Outlook运行macros。 Sub run_Excel_Macro() Dim App As Excel.Application Dim wkbk As Excel.Workbook Set App = New Excel.Application App.Visible = True Set wkbk = App.Workbooks.Open("C:\file.xlsm") App.OnTime DateAdd("s", 5, Now()), wkbk.Name & "!macro" Set App = Nothing Set wkbk = Nothing End Sub 我遇到的问题是，Excel的安全通知会popup，询问我是否信任内容以及是否应启用macros。 为什么安全通知popup？ 我怎样才能解决这个问题？

检查是否有未读电子邮件，附件名称中包含“Production_Plan”作为名称的一部分，使用excel – vba

我正在使用excel-vba和outlook工作。 我在一个excel工作簿中工作。 我需要能够运行一个macros，以便： 检查是否有未读电子邮件， Dim oOutlook As Object Dim oOlns As Object Dim oOlInb As Object Const olFolderInbox = 6 '~~> Get Outlook instance Set oOutlook = GetObject(, "Outlook.application") Set oOlns = oOutlook.GetNamespace("MAPI") Set oOlInb = oOlns.GetDefaultFolder(olFolderInbox) '~~> Check if there are any actual unread emails If oOlInb.Items.Restrict("[UnRead] = True").Count = 0 Then MsgBox "NO […]

如何从特定的Excel表格中select数据

我需要从excel工作表调用'sheet1'的单元格中select数据 但是，当我导航到我的Excel文档上的另一张表格，并且只是说我从VBA开发者页面运行macros时，它将从我所在的工作表中获取数据，而不是“sheet1”。 这是我的代码… Sub CreateMail() Dim objOutlook As Object Dim objMail As Object Dim rngTo As Range Dim rngBody As Range Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) With ActiveSheet Set rngBody = .Range(.Range("B5"), .Range("D5").End(xlDown)) End With rngBody.Copy With objMail .To = "xxxx" .Subject = "Project Update – " & Range("D2") & " on […]

如何访问每个条目的Outlook GAL属性

我正在使用Excel VBA迭代谷歌Outlook GAL。 我需要能够访问每个项目的属性 我离开了下面的代码，并尝试访问AddressEntry中的属性 我用这个代码尝试了不同的东西，但是我一直无法弄清楚如何得到每个条目的细节。 Private Sub GetAddresses() Dim o, AddressList, AddressEntry Set o = CreateObject("Outlook.Application") Set AddressList = o.Session.AddressLists("Global Address List") For Each AddressEntry In AddressList.AddressEntries . . . Next AddressEntry End Sub 我需要到属性和提取信息，并将其传递到Excel表： 我会张贴图片，但没有代表。 如果我从GAL中select一个项目并右键单击并select属性，那就是我正在尝试检索的信息。 Last Name, First Name, Alias, etc. 如何使用Excel VBA访问这个？

Excel VBAsearchOutlook GAL使用ExchangeUser别名属性

我正在尝试使用Excel VBAsearch槽200,000加上Outlook GAL，并且我作为一个search参数唯一的事情就是别名属性。 这可以通过Outlook >>地址簿>>高级查找对话框完成，并且返回的结果相当快。 我尝试了像每个项目一样，调用ExchangeUser对象，并将Alias属性与我的search进行比较，但是要花费很长时间。 来源是一个月度报告，包含和不断变化的约100个别名的Excel列表，每个报告必须在Outlook GAL中search超过200,000个条目。 有没有一种方法可以从Excel的实际操作中响应速度与Outlook对话框一样快？

将数据从Outlook导出到特定文件中的特定工作表

经过一天的游戏和David Zemens的大量帮助，我终于得到了这个代码在Outlook VBA中工作。 问题：它导出我想要导出的数据，但总是到一个新的工作簿。 它会打开正确的文件（C：\ Users \ George \ Desktop \ gs.xlsx），但数据会转到新文件。 我会问大卫，但他已经帮助过我（而且教过我），所以我不想这样做。 所以，这里是代码： Sub Application_NewMailEx(ByVal EntryIDCollection As String) 'Excel objects Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook Dim xlSheet As Excel.Worksheet MsgBox "Mail received!" Dim id As Variant 'used to iterate the EntryIDCollection Dim email As Outlook.MailItem 'represents each email item Dim msgText […]

将电子邮件的内容导出到Excel / Google表格

我定期收到相同的电子邮件（大约每天10到20天）的电子邮件，所有电子邮件都遵循设置的格式，然后手动inputGoogle Sheet for Sales工作人员访问。 理想的情况是，如果我能在早晨的例行工作中减less这一点，那么这会使我的生活变得更简单。 什么是按主题行searchOutlook的最佳方法，然后将相关数据导出到Excel工作表，以便我只需将该.xls文件导入到共享工作表中？

从Outlook运行Excelmacros，基于邮件主题触发

我试图build立一个自动化的过程，当我收到一个电子邮件在Outlook中包含“主题”它会自动引发一个macros打开Excel中附加的.xls文件，并运行我在Excel中设置的macros。 这怎么能做到呢？ 如有必要可以提供更多信息 – 谢谢！

Excel范围Outlook电子邮件正文自动调整

我想问是否可以自动将excel范围复制到电子邮件正文？ 当它自动粘贴/使用代码时，excel范围看起来很乱。 但是，当我手动复制并粘贴它，它看起来更好。 用于自动粘贴/使用VBA的示例照片： 使用VBA 手动示例照片（对我来说更好）： 手动复制 我的工作最新更新： 最新 Function RangetoHTML(rng As Range) Dim fso As Object Dim ts As Object Dim TempFile As String Dim TempWB As Workbook TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" 'Copy the range and create a new workbook to past the data in rng.Copy Set […]

PowerShell脚本从特定的Outlook文件夹中提取.xls文件

我想从每天收到的电子邮件中提取并保存一个.xls文件。 我有一个规则设置，将邮件保存在收件箱的特定子文件夹中的Outlook邮箱中。 Outlook文件夹结构如下所示： -> Inbox –> Data (subfolder of "Inbox") —> ToExtract (subfolder of "Data") 我需要从“ToExtract”文件夹中提取.xls文件。 我发现一个脚本可以完成大部分工作，但是它需要用户监督脚本并手动select要search的Outlook文件夹。 我需要更改脚本，以便它指向“ToExtract”子文件夹。 代码如下。 它工作正常，但我需要修改pickfolder()部分。 #file path $filepath = “c:\test\” #set outlook to open $o = New-Object -comobject outlook.application $n = $o.GetNamespace(“MAPI”) #you'll get a popup in outlook at this point where you pick the folder you want to scan […]