Tag: 电子邮件

VBA：给范围和图像发送电子邮件

我有每天生成的报告。 这个报告包含大约7个图表，1个表格（只是普通的excel单元格组）和一些格式化的合并单元格。 我已经写了一大堆的VBA来自动化这个报告，现在我正在想自动发送这个报告。 我试图寻找http://www.rondebruin.nl/这似乎是正常的电子邮件从Excel正常的第一个端口，但我似乎无法find我在找什么。 我试图复制的function是 复制范围（“H5：N100”） 在主题为“X”的Outlook中创build新电子邮件 select性粘贴（Enchance Meta文件或位图通常会提供最佳效果） 发送电子邮件给收件人“Y” 我的问题是，我不希望附加文件，我需要的图表。 当转换为HTML我似乎失去了图表和奇怪的某些合并单元格中的渐变丢失。 编辑：按要求我目前正在使用的代码 Sub Mail_Selection_Range_Outlook_Body() Dim rng As Range Dim Sxbdy As Range Dim OutApp As Object Dim OutMail As Object Set SxRvSht = Application.ThisWorkbook.Worksheets("Report") On Error Resume Next SxRvSht.Select Set Sxbdy = Worksheets("Report").Range("H5:N100") On Error GoTo 0 If Sxbdy Is Nothing Then MsgBox "The […]

发送电子邮件到收件人列表Excel

我想在运行报表时自动从Excel发送一个报表，但是我需要它对客户端名称执行VLOOKUP并select分配给该客户端的所有电子邮件地址。 你能帮忙吗？ 所以我会在名为“ Client Emails的工作表中Client Emails如下表格 Company 1 | example@mail.com Company 1 | example2@mail.com Company 2 | somebody@somewhere.com Company 3 | you@here.com Company 1 | him@there.com 使其更容易保持最新。 现在我有下面的代码发送正确的电子邮件，但我希望它从工作簿，而不是代码的地址，因为这是更容易更新。 Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = "example@mail.com; example2@mail.com" .CC = "" .BCC = "" .Subject = "Subject" .Body = "Hello World." […]

VBA代码从Outlook中的辅助电子邮件地址发送电子邮件

我在W7 x64上使用Excel 2010，并使用来自Ron de Bruin的代码从Outlook发送电子邮件。 我有一个个人和群组的电子邮件地址，我正在寻找一种方法，通过在VBA中更改组地址来发送。 辅助地址不是在Outlook中设置为实际帐户。 如果我转到Outlook中的文件 – 帐户设置，则只列出一个电子邮件帐户。 团体电子邮件地址只是转发给该组。 我创build了一个实际帐户的组框，并在VBA中添加了对Microsoft Outlook对象库的引用，并添加了使用MailItem.SendUsingAccount属性在帐户1或2之间进行select的代码，但是Outlook在尝试从这个地址。 当我发送电子邮件时，可以在Outlook的“从”下拉框中select个人和组之间的电子邮件。 有没有另一种方法来做到这一点在VBA没有build立第二个帐户？

使用VBA在Microsoft 365电子邮件中按“新邮件”button

我正在尝试通过使用IE作为浏览器的Microsoft 365发送电子邮件。 我目前很难得到VBA创build一个新的电子邮件，并试图通过简单地告诉它点击具有以下HTML代码的“新邮件”button： <button autoid="_n_j" type="button" class="_n_j2 o365button" aria-labelledby="_ariaId_31" regionbehavior="1"> <span class="_n_l2 owaimg ms-Icon–plus ms-bcl-tp ms-bg-transparent ms-icon-font-circle ms-fcl-tp ms-icon-font-size-20-circle" role="presentation"></span> <span class="_n_k2 ms-font-weight-regular ms-font-color-themePrimary" id="_ariaId_31">New mail</span> </button> 我正在尝试使用以下VBA代码按此： Dim objButton As Object Set objButton = IE.Document.getElementById("_n_j2 o365button") objButton.onfocus objButton.onclick 但是我得到一个运行时错误。 我认为这是因为button是使用JavaScript（页面没有重新加载时按下，只是更新）。 任何想法如何做到这一点？

单独（不作为批处理）通过电子邮件将一条消息发送至Excel中保存的地址列表

我有一个我需要发送的邮件列表（大约100个），如果我把所有这些人发送一条消息（所以我发送一次到100人），它将最终在他们的垃圾邮件文件夹。 由于它是相当重要的，我没有想到在VBScript中制作一个程序，在Excel工作表和电子邮件程序之间的tabs和alt+tabs按ctrl+c和ctrl+v 。 问题是， alt+tab （ wshshell.sendkeys "%+{TAB}" ）只是使选定的窗口失去焦点，并没有select另一个窗口。 我想知道是否有一个程序/方式来分别发送电子邮件给不同的人，但同一个电子邮件。

Excelmacros用活动行的信息发送电子邮件

我试图开始在Excel中创build一个macros，允许我发送带有活动行内容的电子邮件（例如，单击一行，select所有内容）。 我需要从该行上的特定单元格中接收电子邮件，并将其分配给“发送电子邮件到”字段。 主题字段应该有一个标题，并在末尾添加特定单元格的数据（在选定的行上）。 在正文中，我需要包含选定行的内容。 在每个选定单元格的内容之前，我需要input一个标题。 我可以直接通过Excel发送电子邮件，还是至less可以通过打开Outlook发送电子邮件并使用macros准备好所有数据？ 以下是我需要的（显示在电子表格中）： FirstName LastName PhoneNumber Dan Daniels 123 Jim Jameson 321 如果第二行是选定的行。 电子邮件应该是这样的： To: email@email.com Subject: Random text – Dan Daniels Body: Hello, FirstName: Dan LastName: Daniels PhoneNumber: 123 任何build议我应该如何开始build立这个macros？ 谢谢！！！ UPDATE！ 这里是我修改的代码，并给我编译错误： Sub SendMail() Dim OutlookApp As Object: Set OutlookApp = CreateObject("Outlook.Application") Dim var As Variant: var = Selection.Value […]

如何通过电子邮件发送oracle查询结果 我更喜欢附加到电子邮件作为Excel文件。

我需要使用PhpExcel和PhpMailer通过电子邮件发送该表作为Excel附件。 这个表是查询我的oracle数据库的结果。 我需要知道如何使用PhpExcel将此表写入excel，然后使用phpMailer将其附加到电子邮件地址，最后发送。 提前致谢。 <?php $username = "xxx"; $passwd = "yyy"; $db="(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = 123.43.56.789)(PORT = 1234)) ) (CONNECT_DATA = (SERVICE_NAME = xxx) ) )"; $c = OCILogon($username,$passwd,$db); if (!$c) { echo "Connection failed"; } else { echo "We are connected to KYC.Querying DB now…Please wait… "; } […]

根据excel中的数据更改电子邮件的类别标签

所以我基本上想循环收件箱中的每个电子邮件，直到列A中的主题行匹配电子邮件的主题行。 当它find一个匹配的时候，它会沿着C列的同一行查找，根据这里find的（YES，NO或MULTIPLE），电子邮件的类别将会改变。 在macros运行之前，每封邮件都被视为“ATLG”。 下面的代码是一个正在进行的工作，但我不知道从哪里去。 有什么build议么？ Dim mail As Outlook.MailItem Dim fld As Outlook.MAPIFolder For Each mail In fld.Items With mail If mail.Subject = Sheets("Mail Report").Range("A65000").End(xlUp).Value Then If Sheets("Mail Report").Range("C65000").End(xlUp).Value = "YES" Then mail.Category = "ATLG" If Sheets("Mail Report").Range("C65000").End(xlUp).Value = "NO" Then mail.Category = "MAN" If Sheets("Mail Report").Range("C65000").End(xlUp).Value = "MULTIPLE" Then mail.Category = "MULT" Next mail

循环遍历单元格，使用VBA添加那些符合条件的列表/string？

我是VBA新手（在java中只有一点点的训练），并且遇到了困难。 最终目标是循环遍历包含名称的单元格区域，将相邻单元格的值与常量进行比较。 如果符合条件，则应将原始单元格添加到将由另一个负责起草电子邮件的公式摄取的列表中。 这将每天重复，与每个名称一致的值将改变。 我已经想通过使用一个variables来添加EVERY名到电子邮件草稿的“TO”行，但是不知道如何给循环添加条件，所以只添加了所需的variables。 从本质上讲，我相信我唯一需要帮助的是“sTo”variables。 谢谢！ Sub Draft_Email() Dim emailRng As Range, cl As Range Dim adjCellRng As Range, cmp As Range Dim sTo As String Dim day As String Dim EmailBody As String Dim i As Integer Dim k As String k = 85 day = Format(Date, "dddd mmmm d") EmailBody = "Blah […]

将Outlook电子邮件信息导出到Excel工作簿

每次在预定系统中预留房间时，我都会收到一封自动发送的电子邮件（在Outlook中），但必须在另一个系统（需要检查每个预留以查找特定信息并通过收件箱进行search）中进行查看。 我试图确定是否有一种方法来从消息部分拉（我已经find了一些代码拉的收到的date，主题行以及读取状态，但不能确定如何拉消息正文信息我需要） 我正在运行的代码是由詹杰提供的： Sub ListOutlookEmailInfoinExcel() Dim olNS As Outlook.NameSpace Dim olTaskFolder As Outlook.MAPIFolder Dim olTask As Outlook.TaskItem Dim olItems As Outlook.Items Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook Dim x As Long Dim arrHeaders As Variant Set olNS = GetNamespace("MAPI") Set olTaskFolder = olNS.GetDefaultFolder(olFolderInbox) Set olItems = olTaskFolder.Items Set xlApp = CreateObject("Excel.Application") xlApp.Visible = […]