Tag: outlook vba

从Excel中发送Outlook电子邮件，并在打开电子表格时添加到行号的电子邮件中的超链接

我有一个Excel电子表格，使用vba发送一封电子邮件： Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "This is email text, click the link <a href='C:\test.xlsm & Range("F" & ActiveCell.Row).Address'></a>" On Error Resume Next With OutMail .To = "####" .CC = "" .BCC = "" .Subject = "Sales Tracker: A New Task has been added to the tracker" .HTMLBody = strbody […]

在Excel中打开一个csv文件并将该数据粘贴到Access数据库表中

我有一个电子邮件进入时运行的Outlook VBA将在Excel中打开一个csv文件，复制其中的数据（不包括标题行），打开Access数据库，打开表格，删除表格行并粘贴新数据并在完成时closuresAccess和Excel。 我有这个代码运行几个规则，并不断得到一个91错误代码。 代码如下： Public Sub CopyPasteIAFeed(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim ExApp As Excel.Application Dim ExWbk As Workbook On Error GoTo CopyPasteIAFeed_Error Set ExApp = CreateObject("Excel.Application") Set ExWbk = ExApp.Workbooks.Open("C:\Users\" & Environ("UserName") & "\Documents\NCR\Data Feeds\Report NCR – Daily New Activity Requests.csv") ' Open Feed in Microsoft Excel window. ExApp.Visible = True ExApp.ScreenUpdating […]

给予优秀的前景控制

我试图编写一个简单的程序来自动发送来自Excel中的列表的电子邮件，它的工作原理，但Outlook不断打开popup窗口要求权限。 你如何得到前景不再要求许可，只要做好excel告诉它没有popup窗口 下面是我到目前为止的代码： Sub SendMessage() Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachment Dim recemail Dim i As Integer i = 1 recemail = Sheet1.Cells(i, 1) ' Create the Outlook session. Set objOutlook = CreateObject("Outlook.Application") ' Create the message. Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg ' Add […]

导出Outlook电子邮件到Excel（从StackExchange使用的代码）

我正在尝试创build一个将Outlook电子邮件迁移到Excel的程序。 大约一年前，我在这个网站上发现了一个解决这个问题的办法，一切正常，直到电子邮件正文发生变化，我不得不更新代码。 回到这里弗兰肯斯坦一些代码在一起，但现在越来越错误，在我的头在VBA。 电子邮件看起来像这样（数字被添加作为参考，并使结构相同，他们不在电子邮件中）： 名称： 你目前居住在美国吗？ 地址： 市： 州： 邮政编码： 电话： 电子邮件： 国籍： 年级： 散文字数： 学校/组织名称：教师姓名：教师电子邮件：您的学校/办学组织是否在美国？ 学校/组织地点：学校/组织所在城市：学校/组织所在州：学校/组织机构邮政编码：学校/组织电话：学校/组织电子邮件：您是如何知道本次比赛的？ 作文文件： 旧的代码直到这个段落。 所以我发现新的代码运行通过段落，只是把它添加 旧代码： Sub CopyToExcel() Dim xlApp As Object Dim xlWB As Object Dim xlSheet As Object Dim olItem As Outlook.MailItem Dim vText As Variant Dim vPara As Variant Dim sText As String Dim vItem As Variant […]

VBA代码适用于Excel 2013，但不适用于Excel 2010;

我在SO上find的代码在Excel 2013中完美工作，但在Excel 2010上完美无缺。代码在2010年执行，但在运行的中途执行，它生成 xlSh.Range("A1").Resize(UBound(aOutput, 1), UBound(aOutput, 2)).Value = aOutput 。“Object not defined error”在xlSh.Range("A1").Resize(UBound(aOutput, 1), UBound(aOutput, 2)).Value = aOutput 新的输出工作簿确实有我需要的信息，但只有一半。 所以看起来，代码运行顺利，直到东西混乱，但我不能从错误开始的地方来源。 如果任何人有2010年，可以给我一些很好的见解。 Option Explicit Dim aOutput() As Variant Dim lCnt As Long Sub SubFolders() ' ' Code for Outlook versions 2007 and subsequent ' Declare with Folder rather than MAPIfolder ' Dim xlApp As Excel.Application Dim […]

发送带有附件和签名的Outlook电子邮件

我需要发送附件和签名的Outlook电子邮件。 以下是我的VBA代码。 我收到错误“Transport failedtoconnect server”。 看来，我没有给一个正确的SMTP服务器地址。 此外，我需要写公司标志签名。 Sub Outlook() Dim Mail_Object As Object Dim Config As Object Dim SMTP_Config As Variant Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Body As String Dim Current_date As Date Current_date = DateValue(Now) Email_Subject = "Daily Pending IMs Report (" & Current_date & ")" Email_Send_From = "report@xxxx.ae" Email_Send_To = "yyyyyy@gmail.com" 'Email_Cc = […]

如何提取电子邮件和填充电子表格的值

我有一个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 […]

重命名相同的名称从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 […]