Tag: 电子邮件

VBA'1004'错误在ActiveWorkbook.Save: 我创build了一个VBA模块：在Outlook中search特定的电子邮件从它find的电子邮件中抓取excel文件附件格式的Excel文件附件（添加颜色和网格，使其看起来更能呈现）将格式化的excel文件保存到我的桌面上将格式化的excel文件作为附件发送给我们的客户（并将excel文件粘贴到电子邮件正文中） **我使用多个arrays发送给个人客户我的代码工作得很好，并且没有多less问题。但是，现在每处理一次，它会随机popup一个“1004运行时错误”。当我debugging时，我需要“ActiveWorkbook.Save”。通常如果我再次运行它，它工作得很好，但我需要它更友好的用户使用。代码如下。 Public f As Integer 'format integer Sub Clients() 'Array([file destination to be saved], [subject of file being searched in outlook], [file name given when saved], [emails the report is going to]) f = 0 email_1 = Array("C:\User\Desktop\", "FL Test Results", "FL_Reports", "client1@email.com") Call […]

在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 […]

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

Excel vba，使包含超链接的单元格出现在电子邮件正文中: 添加提交date时，我有一个向用户发送电子邮件的代码。在这封电子邮件的正文中，我指的是包含超链接到文件夹的单元格。这个超链接的目的地出现，但它不活跃，这意味着它只出现在文本。这里是我的代码，超链接单元格在电子邮件正文中引用 Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set KeyCells = Range("J3:J1000") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then ' Display a message when one of the designated cells has been […]

使用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的消息。

邮件中使用不同url的多个embedded式图像（Excel VBA）: 嗨，我想创build一个可以发送多个embedded式图像的邮件的macros。我想在每个图像中添加不同的url，并将其作为单个图像embedded到表格中。一旦用户点击单一图片的这些不同部分，就应该将他引导至相应的网站。请帮助我与vbamacros代码。我想要的代码作为我的代码在下面给出的问题或代码粘贴在这里的扩展。如何使用单元格值更改邮件中embedded图像的宽度和高度提前致谢。 Sub SendMail() Dim olApp As Object Dim olMail As Object For I = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row With ws Set olApp = CreateObject("Outlook.Application") Set olMail = olApp.CreateItem(olMailItem) End With With olMail .To = Cells(I, 2).Value .cc = Cells(I, 3).Value .bcc = Cells(I, 4).Value .Subject = Cells(I, 5).Value .Body […]

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