Tag: outlook

如何提取电子邮件和填充电子表格的值: 我有一个macros，它读取收件箱中的未读消息，并使用“：”分隔符从消息中提取数据。在循环中，我想能够加载新的Excel电子表格与消息的值。我能够select第一个单元格并保存数据，但是它正在被写入。每次在循环中我想要数据到列中的下一个单元格是空的，而不是覆盖同一个单元格。这是我的代码到目前为止… Public Sub Application_NewMail() Dim newbk As Workbook Set newbk = Workbooks.Add newbk.SaveAs "C:\Users\RickG\Desktop\test2.xlsx" 'other parameters can be set here if required ' perform operations on newbk newbk.Close savechanges:=True Dim ns As Outlook.NameSpace Dim InBoxFolder As MAPIFolder Dim InBoxItem As Object 'MailItem Dim Contents As String, Delimiter As String Dim Prop, […]

VBA从单元格更改: 为了解释我的标题，基本上我有一个macros的代码，显示在秒内的请求天数，需要它从我们的共享邮箱中导出。现在每天都要改变我们需要出口的天数，并且变得非常令人沮丧。以下行是有问题的： If VBA.DateValue(VBA.Now) – VBA.DateValue(vItem.ReceivedTime) <= 10 Then 这个数字10需要每天更改，所以我尝试使用活动单元格，但没有成功，因为我得到一个运行时错误438。所以我的问题是：是否有一种方法，在一个分开的电子表格中input我需要导出的天数，那条线可以从那里获取信息并继续执行代码？请参阅下面的完整代码。 Sub Accomplished() Application.Run "Module5.OptimizeCode_Begin" Dim Folder As Outlook.MAPIFolder Dim sFolders As Outlook.MAPIFolder Dim iRow As Integer, oRow As Integer Dim MailBoxName As String, Pst_Folder_Name As String Dim vItems As Outlook.Items Dim vItem As Object 'Mailbox or PST Main Folder Name (As how […]

从电子邮件下载并保存附件到Excel: 目前我下面列出的代码将从收到的电子邮件中复制正文信息并打开指定的Excel表格，并将内容复制到Excel表格中并closures它。我还想将传入邮件中的附件保存到指定的path：C：\ Users \ ltorres \ Desktop \ Projects 我已经试过这个，但是这个代码不会和Outlook结合在一起。我将不得不运行与Excel Public Sub saveAttachtoDisk (itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String Dim dateFormat As String saveFolder = "C:\Users\ltorres\Desktop\Projects" dateFormat = Format(Now, "yyyy-mm-dd H-mm") For Each objAtt In itm.Attachments objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName Set objAtt = Nothing Next […]

从Excel导入date到Outlook日历: 我正在试图做的是我有一个特定的列“E”导入date到我的Outlook日历我有一个编码开始，但是它不是完全的function，它只是添加某些date到我的日历，它不会增加它看起来我喜欢多个date为ex.The 6/2的date被添加到我的日历与正确的主题date和正文，但date为6/1我有一个空插槽。有什么build议么？ Option Explicit Public Sub CreateOutlookApptz() Sheets("Sheet2").Select On Error GoTo Err_Execute Dim olApp As OUtlook.Application Dim olAppt As OUtlook.AppointmentItem Dim blnCreated As Boolean Dim olNs As OUtlook.Namespace Dim CalFolder As OUtlook.MAPIFolder Dim subFolder As OUtlook.MAPIFolder Dim arrCal As String Dim i As Long On Error Resume Next Set olApp = OUtlook.Application If olApp […]

函数调用后，将.gif文件embedded到电子邮件正文中: 我正试图在邮件正文中embedded.gif文件。但是我使用RangetoHTML函数将我的Excel工作表的范围粘贴到电子邮件正文中。我想embedded邮件正文范围下的.gif文件，而不是添加MyGif.gif作为附件。以下是代码片段： Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) dt = Format(CStr(Now), "yyyy_mm_dd") With Dest .SaveAs Destination & "MyFile" & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To = "abc@email.com" .CC = "" .BCC = "" .Subject = "This is the Subject line" .Attachments.Add MyGif .HTMLBody = "<br><B>My HTML Body</B><br>" _ […]

重命名相同的名称从Outlook复制时多个电子邮件附件: 从历史上看，我使用Excel和莲花笔记来做这件事，因为它是标准的电子邮件客户端，所以公司正在转换到Outlook 2016。我们每天都会向多个分支机构的冰箱单元收到一封信箱。每个分支是一个单独的电子邮件，但一些附件命名相同。我使用了一个脚本来复制LN中的附件，它有一个私有函数，在复制附件的过程中，如果它们具有相同的名称，将会重命名它们。我在堆栈溢出处发现了一个脚本，我修改它来将附件从Outlook保存到networking文件夹中。这工作正常。这是脚本 Public Sub SaveAttachments() Dim objOL As Outlook.Application Dim objMsg As Outlook.MailItem 'Object Dim objAttachments As Outlook.Attachments Dim objSelection As Outlook.Selection Dim i As Long Dim lngCount As Long Dim strFile As String Dim strFolderpath As String Dim strDeletedFiles As String ' Get the path to your My […]

读取到CC和BCC属性时出错: 我试图将所有的电子邮件提取到外部程序（AIMMS）。我首先将其全部存储在Excel中以供阅读。我写了一些VBA代码。当多个电子邮件地址在此字段中时， .Tofunction不起作用（给出即时错误）。 .CC和.BCC也是如此。 Sub Extract_mail(MailBoxName As String, Pst_Folder_Name As String, Subfolder As String) 'Add Tools->References->"Microsoft Outlook nn.n Object Library" Dim folders As Outlook.folders Dim Folder As Outlook.MAPIFolder Dim iRow As Integer Dim objMItem As MailItem If Subfolder = "" Then Set Folder = Outlook.Session.folders(MailBoxName).folders(Pst_Folder_Name) Else Set Folder = Outlook.Session.folders(MailBoxName).folders(Pst_Folder_Name).folders(Subfolder) End If If […]

电子邮件多个收件人VBA错误: 寻求帮助发送电子邮件的人的名单。我的代码有一个简单的循环，并在每次发送电子邮件的位置抓取值。在testing的时候，第一封电子邮件总是会被发送。之后，第二次通过我的错误“.To” Run-time error – '-2147221238 (8004010a):项目已被移动或删除。这令我感到困惑，因为代码确实可以抓取下一个电子邮件的值？电子邮件需要逐个发送，而不是将收件人添加到密件抄送列表。这可能与VBA？提前致谢！ Sub TestingAgain() 'Setting up the Excel variables. Dim outApp As Object Dim outMailItem As Object Dim iCounter As Integer Dim sDest As String Dim sName As String 'Create the Outlook application and the empty email. Set outApp = CreateObject("Outlook.Application") Set outMailItem = […]

使用VBA将Outlook电子邮件中的富文本表复制到Excel？: 我正在为我工作的公司build立一个自动化stream程。我已经设立了人力资源系统，发出一个在不久的将来会休假的员工的富文本表格（只有格式）。人力资源系统能够存储每个月的时间假期，PTO和病假时间。我在SQL中编写了一个代码，让系统发出一个月度表，列出下个月有空rest的所有员工。我正试图采取这些信息，并将其填充到我们的Outlook日历中。目前，我已经设置了一个Excel表格，在信息被复制并粘贴到表格中后，该表格将填入一个人员日历。理想情况下，我希望将这些信息自动复制到Excel工作表或设置一个从Outlook中创build约会的系统。我现在有点难住。我以前所有的努力都是失败的。当谈到VBA时，我是一个小菜鸟，所以我能得到的任何帮助将不胜感激。谢谢。电子邮件看起来像这样有很多控制（蓝色的行是标题和放置在它下面的行中的信息）：

在Outlook VBA中执行Excel函数的应用程序定义或对象定义的错误: 我有一些代码将文件夹中的电子邮件正文提取为.xlsm文件。提取后，文件保持打开状态，需要重新格式化才能将数据分离出单元格，然后将数据堆叠到单个列中。这是我第一次在Outlook VBA编码，我觉得我有什么可能导致应用程序定义的错误有一些根本性的缺陷。以下是电子邮件提取代码： Sub OutlookToExcel() Dim appExcel As Excel.Application Dim wkb As Excel.Workbook Dim wks As Excel.Worksheet Dim rng As Excel.Range 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 strPath = "C:\Users\me\Documents\Action Items\WMV […]