Tag: outlook

在Excel中发送群发邮件使用VBA: 我正在尝试通过Outlook从我的Excel发送电子邮件。我正在使用Excel 2010，Outlook已打开，并select了对Outlook 14.0的引用我创build了一个名为SendEmail的macros，并input了以下代码： Sub SendEmail(what_address As String, subject_line As String, mail_body As String) Dim olApp As Outlook.Application Set olApp = CreateObject("outlook.Application") Dim olMail As Outlook.MailItem Set olMail = olApp.CreateItem(olMailItem) olMail.To = what_address olMail.Subject = subject_line olMail.body = mail_body olMail.Send End Sub 然后我创build了称为SendMassEmail（）的其他macros。并input下面的代码： Sub SendMassEmail() row_number = 1 Do DoEvents row_number = row_number […]

Excel 2013不连接到Outlook MAPI: 在Excel 2007上运行时，此代码运行良好.11月17日我升级到Office 356，现在我无法访问自11月17日以来到达Outlook 2013的MAPI电子邮件。看起来MAPI不同步。请协助。 Public Sub sbImportEmails() Dim olApp As Object Dim olNS As Object Dim olFolder As Object Dim olAnswer As Object, olMsg As Object Dim myName As Object Dim Column As String Dim intLastRow As Integer Dim inx As Integer Application.Calculation = xlCalculationManual Set olApp = GetObject(, "Outlook.Application") If olApp Is […]

Outlook VBA代码导出部分正文到Excel不起作用: 我从stackoverflow和其他几个地方使用了各种资源来获取VBA中的一些代码。这是我尝试过的第三次迭代，仍然没有得到它的工作。第一次迭代主要是从头开始，但没有奏效。第二次迭代是基于这个stackoverflowpost 。我有ThisOutlookSession Outlook对象中的代码启动时运行。目前的迭代是基于这个stackoveflow后，是在它自己的模块。它使用Outlook中的规则运行。从电子邮件正文获取数据的部分似乎在以前的代码迭代中工作正常。但写入Excel的部分似乎没有工作，并没有在任何以前的迭代工作，我不知道为什么。我在Outlook中设置了一个规则，用于在具有特定主题行的电子邮件上运行macros。这些电子邮件是以一种特定的方式构build的，可以轻松获取数据。该规则还设置这些电子邮件阅读，这样做，所以我可以看到规则的作品。我在“我的文档”中有一个Excel工作表，第一行专用于标记列。虽然我已经试过这个空的Excel表格，它仍然没有工作。电子邮件正文如下所示： ID：608 名字：testing MiddleInitial：t 姓氏：testet 出生date：01/01/1900 性别：男街道地址：市：州：压缩：种族： dtAdded：01/19/2016 面积：脱发区域：皮肤癌可能有0到12个区域，每个区域都简单标记为区域。以下是我的一些代码。我已经修剪了一些重复的部分，所以它没有那么长（仍然很长，对不起）： Option Explicit Const xlUp As Long = -4162 Sub ExportToExcel(MyMail As MailItem) Dim strID As String, olNS As Outlook.NameSpace Dim […]

保存一个Outlook项目VBA问题: 我无法保存outlook项目。（嗯，我刚刚意识到我正在与Word女士 – 这是否有关系吗？我仍然可以在这里发表？）无论如何，问题是，Word正在创build消息，并发送它就好（附件，主题和一切），但它不是正确地将文件保存在指定的位置。它保存为1 KB，不开放。下面是错误的代码和图像。非常感谢您的帮助！码： Private Sub CommandButton1_Click() Dim myString As String Dim myString2 As String Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olMailItem) ' Doing some texts replacements here. myString = Label9 myString = Replace(myString, "[Name of Person]", TextBoxNoP.Value) myString = Replace(myString, "[Name of Establishment]", TextBoxNoE.Value) myString = Replace(myString, […]

使用VBA粘贴范围到Outlook不会粘贴任何东西: 我试图自动化报告，以便它复制一个范围，将其粘贴到电子邮件的正文中，并发送它。我使用的是Ron De Bruin给出的确切代码，只是input了我自己的范围和filter声明。一切工作正常，除了当我收到/显示电子邮件，这只是一个空白的电子邮件给我。没有粘贴的范围。我觉得奇怪的是，这工作正常，直到我过滤范围。当我使用任何types的filter，它打破了，我不知道为什么。作为参考，这里是我正在使用的确切代码：` Sub Mail_Selection_Range_Outlook_Body() Dim rng As Range Dim OutApp As Object Dim OutMail As Object ActiveSheet.Range("A1").AutoFilter Field:=6, Criteria1:="<>" ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:="Brittany" Set rng = Nothing On Error Resume Next 'Only the visible cells in the selection Set rng = ActiveSheet.Range("A:F").SpecialCells(xlCellTypeVisible) rng.Copy ActiveSheet.Range("U1").Paste On Error GoTo 0 If […]

无法让Excel生成电子邮件: 当我运行我的macros来创build一个电子邮件，它停止在第一步我已经检查了图书馆和MS Office和MS Outlook的检查，用代码; Dim OutApp As Outlook.Application 我收到未定义的错误用户定义types 和代码; Dim OutlookApp As Object Set OutlookApp = CreateObject("Outlook.Application") 我收到活动x无法创build对象我已经尝试作为pipe理员运行，与Outlookclosures和打开，仍然无法让它创build的消息。

Excel VBA电子邮件，偶尔出现错误: 该代码会引发偶尔的运行时错误“424”：必需的对象。电子表格在“C”列中包含一个人的名字，在“BG”列中包含电子邮件地址; 当“AO”列中的错误值大于等于3且“AU”列中有空单元格时，会生成Outlook电子邮件。要closures循环，将在“AU”列中插入date戳记。代码是在图表级别。这个通用表格应该作为一个月份数据的模板。即每年复制12次到相同的工作簿。有关如何消除错误消息的任何build议？先谢谢你。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'This code cycles through each row and looks for an email address in "BG" column. 'If found and recipient "C"'s 'Total Error Occurences' "AO" value is >=3, an email is generated for a display. 'To close the loop […]

从outlook中提取电子邮件地址以获取员工ID的列表: 我几乎完成了代码，但我只能拉一个员工ID号。请参阅下面的代码： Private Sub CommandButton24_Click() Dim outApp As Object 'Application Dim outTI As Object 'TaskItem Dim outRec As Object 'Recipient Dim outAL As Object 'AddressList Set outApp = GetObject(, "Outlook.Application") Set outAL = outApp.Session.AddressLists.Item("Global Address List") Set outTI = outApp.CreateItem(3) outTI.Assign Set outRec = outTI.Recipients.Add(Range("A2").Value) outRec.Resolve If outRec.Resolved Then Range("B2").Value = outAL.AddressEntries(outRec.AddressEntry.Name).GetExchangeUser.PrimarySmtpAddress Else MsgBox "Couldn't […]

VBA Outlook Mail .display，录音如果手动发送: 我使用VBA从Excel发送电子邮件，并试图logging邮件是否已被发送。我已经从另一个post的一些代码在这里：链接我已经完全按照所描述的创build了这个类，并且添加了一些额外的比特来查看它是否工作，它初始化了，但是没有其他的事情发生 – 即使在发送邮件之后，类仍然以某种方式在后台打开，所以我必须在VBE中停止它。这里是调用代码： Sub SendProc2(add As String) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = add .CC = "" .BCC = "" .Subject = ThisWorkbook.Name .Body = Application.WorksheetFunction.VLookup(Worksheets("Data").Range("B135"), Range("formversion"), 2, False) _ & " Attached:" & vbCrLf & vbCrLf & ThisWorkbook.Name .Attachments.add ActiveWorkbook.FullName […]

使用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 […]