Tag: 前景

Applescript：无法将date和消息内容从Outlook复制到Excel

我试图从一个文件夹复制Outlook电子邮件，并将其复制到一个Excel文档。 我现在有拉动主题和发件人，但我有两个主要问题。 一，我不能拉date属性的date。 二，我不能只拉取消息内容，因为它从Outlook消息中提取所有的HTML。 这是我现在的完整代码… tell application "Microsoft Excel" set LinkRemoval to make new workbook set theSheet to active sheet of LinkRemoval set formula of range "D1" of theSheet to "Message" set formula of range "C1" of theSheet to "Subject" set formula of range "B1" of theSheet to "From" set formula of range "A1" of […]

将数据插入到第一行而不是工作表的最后一行

目前我正在使用这个脚本，使我的Outlook电子邮件数据总是replaceA1中的数据。 Const xlUp As Long = -4162 Sub ExportToExcel(MyMail As MailItem) Dim strID As String, olNS As Outlook.NameSpace Dim olMail As Outlook.MailItem Dim strFileName As String '~~> Excel Variables Dim oXLApp As Object, oXLwb As Object, oXLws As Object Dim lRow As Long strID = MyMail.EntryID Set olNS = Application.GetNamespace("MAPI") Set olMail = olNS.GetItemFromID(strID) '~~> […]

邮寄多张表和一张表内的特定范围

我正在尝试编写一个macros，它将从表3中的所有Sheet 1和Range（“A7：P20”）中发送电子邮件。我复制下面的代码，用于发送整个工作表，但我不确定如何调整除了所有的Sheet 1之外，我只把一张表格3中的上述范围发送到一张不同的纸上。 Sub Mail_Sheets_Array() 'Working in Excel 2000-2016 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim TheActiveWindow As Window Dim TempWindow […]

Outlook VBA保存邮件附件，然后将附件数据复制到另一个Excel中，并通过邮件发送发送Excel

我试图创build一个Outlook VBA代码来保存从一个特定的邮件到一个文件夹的附件，然后复制粘贴从另一个Excel中的附件中的数据。然后邮件第二个Excel的一些ID。 我创build了一条规则，将传入的自动邮件移动到特定的邮件文件夹，然后将其附件保存到桌面文件夹。保存附件后，数据被复制到第二个Excel文件夹中。 代码是这样的 Public Sub ExportFile(MyMail As MailItem) Dim outNS As Outlook.NameSpace Dim outFolder As Outlook.MAPIFolder Dim outNewMail As Outlook.MailItem Dim strDir As String Set outNS = GetNamespace("MAPI") Set outFolder = outNS.GetDefaultFolder(olFolderInbox).Folders("Network Critical Report") Set outNewMail = outFolder.Items.GetLast strDir = "C:\Users\soumyajitd\Desktop\December\Network Critical Report\" If outNewMail.Attachments.count = 0 Then GoTo Err outNewMail.Attachments(1).SaveAsFile strDir & "Network_Critical_Report.csv" […]

只需点击一下鼠标，即可将macros分配给工作簿的多个Excel工作表

我有一个工作簿8工作表。 我有一个macros分配给每个工作表。 我想要从一个工作表中单击一个button（通过单击一个button来运行所有8个macros）来运行所有8个macros。 这怎么能被执行？ 更新这是我的代码 Sub cf1() Application.Run "v1" Application.Run "a1" Application.Run "t1" Application.Run "p1" Application.Run "k1" Application.Run "k2" Application.Run "k3" Application.Run "m1" End Sub Sub v1() End Sub . . . Sub m1() End sub

VBA-Excel如何在Outlook中find交换用户的电子邮件地址

我一直在尝试根据input名称导入联系人的电子邮件。 我不擅长macros编程，但发现了一个可行的代码。 但是，它只能通过查找联系人文件夹中的信息来工作，我需要它查找全局地址列表中的联系人，并将与该人员关联的电子邮件还给我。 我已经通过其他职位search，他们都希望从Outlook的每一个接触，并将其粘贴到Excel。 我只想根据input的姓名search一个人的全球通讯录，并让其返回该人的电子邮件地址。 这是我有什么： Function GrabContactInfo(rRng As Range, iWanted As Integer) As String Dim olA As Outlook.Application Dim olNS As Namespace Dim olAB As MAPIFolder Dim lItem As Long Dim sNameWanted As String Dim sRetValue As String Set olA = New Outlook.Application Set olNS = olA.GetNamespace("MAPI") Set olAB = olNS.GetDefaultFolder(olFolderContacts) Application.Volatile sNameWanted = […]

在尝试获取用户信息时，如何绕过Outlook警报？

我正在尝试从Outlook中获取用户名，用户电子邮件，用户部门和用户位置，以填充Excel用户表单。 该代码工作没有问题。 我遇到的问题是这样的：我从Excel的popup式窗口中看到“程序正在尝试访问存储在Outlook中的电子邮件地址信息，如果这是意外的，请单击”拒绝“并确认您的防病毒软件是最新的。 我发现一些代码是应该抑制这个popup窗口，但它似乎没有工作。 下面是使用该过程调用的过程。 我已经多次调用了“Turn_Auto_Yes_On”过程来查看它是否适用于任何调用。 Turn_Auto_yes_On成功执行，但似乎没有效果，因为我仍然执行后得到Outlook消息。 我被困在这里，并已去了多个网站的答案，我没有find。 任何帮助将非常感激。 Function fill_Outlook_Info() As Boolean Application.DisplayAlerts = False Call Turn_Auto_Yes_On Set OL = CreateObject("outlook.application") Call Turn_Auto_Yes_On Set olAllUsers = OL.Session.AddressLists.Item("All Users").AddressEntries Call Turn_Auto_Yes_On s_OutlookUser = OL.Session.CurrentUser.Name Call Turn_Auto_Yes_On Set oentry = olAllUsers.Item(s_OutlookUser) Call Turn_Auto_Yes_On Set oExchUser = oentry.GetExchangeUser() v_department = oExchUser.DEPARTMENT v_Email = oExchUser.PrimarySmtpAddress s_OutlookCity = oExchUser.city […]

VBA – Outlook到Excel：对象_global的方法行失败

我正在每个电子邮件上运行一个脚本，打我的前景。 该脚本需要打开指定的Excel文档，并保存发件人姓名和地址，主题和date。 我得到运行时错误1004：对象_global的方法行失败的一些我收到的邮件，不是全部。 我在错误发生的代码中指定了这一行。 这是一个参考问题？ Public Sub CoupaQueries(MItem As Outlook.MailItem) Dim objOutlook As Outlook.Application PersonName = MItem.SenderName PersonAddress = MItem.SendUsingAccount PersonSubject = MItem.Subject PersonDate = MItem.ReceivedTime Dim objExcel As Excel.Application Dim wks As Excel.Worksheet Dim wkb As Excel.Workbook Set objExcel = New Excel.Application objExcel.Workbooks.Open ("C:\Users\a222012\Desktop\CoupaQueries.xlsx") objExcel.Visible = True Set wkb = objExcel.ActiveWorkbook Set wks = […]

vba outlook签名与发件人姓名

我已经search了很多问题，但是我找不到与我想要做的事情相匹配的东西。 我有这个Outlook代码通过电子邮件发送我的工作表称为Pedidos 。 Sub Mail_ActiveSheet() Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object Dim sCC As String Dim Signature As String sCC = Range("copia").Value With Application .ScreenUpdating = False .EnableEvents = […]

代码优化 – 循环/searchExcel中的电子邮件

我有一个macros，通过收件箱中的项目循环，并通过ReportProvider返回这些发送（保存在Table1中的详细信息）。 在这一点上，macros运行良好，但在我看来，这是缓慢的 – 大约需要2分钟循环6000封电子邮件。 有没有办法做得更快？ 这是我的代码： Option Explicit Sub getOutlookData() Dim oApp As Outlook.Application Dim oMail As Object Dim oFolder, oSubFolder As Outlook.Folder Dim oSubject, oSender, oTime, oSubFolderID As String Dim oAttachment As Outlook.Attachment Dim i, j, k, counter As Integer Set oApp = New Outlook.Application Application.ScreenUpdating = False Range("Table1").AutoFilter If Range("Table1").Rows.Count > 1 Then […]