Tag: outlook vba
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
我正在使用Outlook 2010和Excel 2010 。 每天我收到200封电子邮件， 内容与表格中的主题和表格数据完全一致（表格将全部相同）。 我需要将表中的数据以接收的格式复制到Excel中。 请帮助我在这..
将Outlook 2010中已发送文件夹中的电子邮件复制到Excel文件
我需要logging过去几年中发送的一些电子邮件，包括发送给谁，date和邮件正文。 从Outlook导出不包含date，由于某些原因，Access不会从我的公司计算机上的Outlook导入数据 我遇到了这个macros，从Outlook导出到Excel，我需要的大部分信息，但它从收件箱拉： http : //officetricks.com/outlook-email-download-to-excel/ 我searchOffice VBA网站的命令，使其从发送邮件文件夹而不是收件箱，但我不断收到运行时错误438“对象不支持此属性或方法”在ReceivedByDate和CC行（下下面的For命令）。 它只发生在我发送的邮件。 我尝试将它们移动到一个单独的文件夹，并进入我的收件箱，但是当它读取从我发送的电子邮件时，macros会失败。 Sub Mail_to_Excel() ' ' Mail_to_Excel Macro ' Copies emails from Outlook to an Excel file ' Add Tools->References->"Microsoft Outlook nn.n Object Library" ' nn.n varies as per our Outlook Installation Dim Folder As Outlook.MAPIFolder Dim iRow As Integer, oRow As Integer Dim MailBoxName As String, […]
在Excel VBA中禁用Outlook全部回复
我有一个Excel VBAmacros，发送电子邮件给多个人。 我不想隐藏已发送给谁，我只是想禁用对Outlook的全部答复function。 我已经尝试了下面，从outlookVBA，它没有效果 ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = False ActiveInspector.CurrentItem.Actions("Forward").Enabled = False 这是在代码中。 Set OutlMail = OutlApp.CreateItem(0) On Error Resume Next With OutlMail .To = sendto .Subject = "Update for: " & Date Set rng = Workbooks("UpdateV2.xlsm").Sheets("EmailP").Range("A1:S75") Call SortAbs Workbooks("UpdateV2.xlsm").Sheets("EmailP").Calculate .ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = False .ActiveInspector.CurrentItem.Actions("Forward").Enabled = False .htmlbody = "<body style=font-size:11pt;font-family:Arial bgcolor='#FBEDD4'>" & _ […]
如何在Excel中获取Outlook对话ID？
我在Excel中使用电子数据表发送大量电子邮件，使用Outlook参考库作为我的VBA代码。 当我发送电子邮件时，我需要将会话ID号保存到表单元格中。 如何从电子邮件返回此属性以优秀？
使用SenderName重命名已保存的附件
我正在使用VBA脚本将所有附件保存到文件夹。 我正在尝试重命名发件人的名称的文件名。 但是，当我尝试这个更改文件的格式。 如何在不改变文件格式的情况下使用发件人的名称重命名文件？ Sub Save_Mail_Attachment() '''''Variable declarions Dim ns As NameSpace Dim inb As Folder Dim itm As Outlook.MailItem Dim atch As Attachment '''''Variables Initialization Set ns = Outlook.GetNamespace("MAPI") Set inb = ns.GetDefaultFolder(olFolderInbox).Folders("Specified Folder") File_Path = "C:\Attachments\" '''''Loop Thru Each Mail Item For Each itm In inb.Items '''''Loop Thru Each Attachment For Each atch […]
VBA MACRO – 将电子邮件地址导出到Excel
我在这里有一个VBA代码，将所选子文件夹的电子邮件地址导出到Excel文件中。 我的问题是，它只适用于我的文件夹中的一个。 当我尝试使用此macros到其他文件夹时，出现“运行时错误13types不匹配”错误。 我真的不知道为什么我得到这个错误。 我希望有人能帮助我发现问题的来源。 这是我的代码： Sub ExportToExcel() Dim appExcel As Excel.Application Dim wkb As Excel.Workbook Dim wks As Excel.Worksheet Dim rng As Excel.Range Dim strSheet As String Dim strPath As String Dim intRowCounter As Integer Dim intColumnCounter As Integer Dim msg As Outlook.MailItem Dim nms As Outlook.NameSpace Dim fld As Outlook.MAPIFolder Dim itm As […]
Outlook和Excel VBA任务计划程序
由于这个“系统”应该在本周上涨，但是对于vba脚本和代码等是一个完全新手，所以急需帮助，我不知道如何执行任务。 我创build了一个excel，根据到期date生成每日电子邮件提醒，并希望使用任务计划程序将其打开。 我想要的是： PC在7时45分自动启动（很可能使用BIOS电源pipe理） PC到达用户login页面。 任务调度程序打开Outlook，然后是我的Excel，并在上午8点发送电子邮件。 Excel保存并closures。 （这是否需要Excel中的一个单独的macros或代码？） 计算机使用任务计划程序closures。 从我从其他人发现的各种页面/问题中发现，必须编写一个vbs / cmd脚本，但是一些消息来源指出，在任务调度程序中运行该脚本，我不应该勾选“是否运行用户login或不“（不知道如何写他们，我知道的是，我必须写在记事本，并保存在文件名的具体扩展名）希望有人能够提供一个详细的指南关于如何执行上述任务。 此外，我试图使用任务调度程序直接打开Outlook应用程序，但它似乎并没有工作。 它是否也需要脚本？ 其他帮助我的Excel中需要：目前，我的提醒macros只在第一张纸上运行。 它可以在所有的床单上运行吗？ excel的代码如下： Dim Bcell As Range Dim iTo, iSubject, iBody As String Dim ImportanceLevel As String Public Sub CheckDates() For Each Bcell In Range("c2", Range("c" & Rows.Count).End(xlUp)) If Bcell.Offset(0, 5) <> Empty Then ' if email column is not empty […]
Outlook电子邮件正文到Excel
我正在尝试将所有电子邮件的正文输出到一个excel文件。 下面的代码是我正在使用的： Dim appExcel As Excel.Application Dim wkb As Excel.Workbook Dim wks As Excel.Worksheet Dim rng As Excel.Range Dim strSheet As String Dim strPath As String Dim intRowCounter As Integer Dim intColumnCounter As Integer Dim msg As Outlook.MailItem Dim nms As Outlook.NameSpace Dim fld As Outlook.MAPIFolder Dim itm As Object strSheet = "Test.xlsm" strPath = […]
如何在Outlook中收到新邮件后运行Excelmacros？
我想运行一个Excelmacros，当“主题”的电子邮件发送到我的收件箱。 我在Outlook的“pipe理规则和警报”中设置了一个脚本。 当我收到一个邮件与“主题”macros没有发生任何事情。 Sub Test(mail As MailItem) Dim ExApp As Excel.Application On Error Resume Next Set ExApp = GetObject(, "Excel.Application") If Not ExApp Is Nothing Then ExApp.Run "'C:\Users\Desktop\Production v2.7.1.xlsm'!Main_function_Auto" End If End Sub
