Tag: 电子邮件

无法将多个图像添加到电子邮件中: 我有一个通过Excel与VBA生成的电子邮件。这封电子邮件在电子邮件正文中包含两个embedded的图片，以及指向其video的单独超链接。问题是，它不认识到第二张图片，只是两次embedded相同的图片，但超链接是正确的。以下是我的代码示例： Private Sub SubmitBtn_Click() Dim Source As Range Dim Dest As Workbook Dim wb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim FileFormatNum As Long Dim OutApp As Object Dim OutMail As Object Dim MemNme As String, Email As String, UsrName As String, domainID As […]

如果单元格的值为1，则将电子邮件地址添加到Outlook电子邮件中: 我试图得到一些帮助，发送一封电子邮件给E列中的“1”的任何人。我有一个员工和他们的电话号码范围的工作表。在他们的电话号码之后是他们想要被通知的事件的列表。如果我在他们的名字后面加一个1，我想他们的电子邮件地址添加到电子邮件中。列标题将像A =姓，B =名，C =电话号码，D =电子邮件地址，E =事件1，F =事件2，G =事件3等等。我能够得到电子邮件的代码来从一个设置的范围内拉取所有的电子邮件地址，但我不知道如何添加if命令来查找设置值的事件列之一（E，F，G .. ）。它将需要循环遍历整个范围，然后仅为那些在某个事件列中具有设置值的所选个人提取地址。这是我的代码到目前为止： Dim OutApp As Object Dim OutMail As Object Dim strto As String, strcc As String, strbcc As String Dim strsub As String, strbody As String Dim emailRng As Range, cl As Range Dim sTo As String Set emailRng = […]

VBA用Gmail发送邮件: 我想从工作表复制范围（a1：k38）到一个新的工作簿，然后新的工作簿必须由gmail发送。邮件发送工作，但附件不能打开，说它的腐败，如果我附加另一个.xls文件。另外我不能得到的代码工作复制范围与图片到newworkbook。我到目前为止 TempFilePath = Environ$("temp") & "\" TempFileName = "Copy of " & wb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") FileExtStr = "." & LCase(Right(wb.Name, Len(wb.Name) – InStrRev(wb.Name, ".", , 1))) wb.SaveCopyAs TempFilePath & TempFileName & FileExtStr Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source Defaults Set […]

Java 8和文件处理30 MB excel: 我的任务之一包括只使用Java 8 ，如果需要，然后只使用Spring ，基本上对这个项目的依赖性最小。有一个30 MB大小的Excel可以增长。这通过FTP每天出现，需要处理个别行，然后最终报告需要通过电子邮件发送。现在我的问题是文件太大，请build议最好的方式来处理它没有任何内存不足的错误。谢谢

分享工作簿的每个新工作簿: 我有根据条件拆分工作簿的代码。我想将每个新的工作簿通过电子邮件发送给不同的人。当我运行macros时，它将分割工作簿并将所有工作表放在我想要的位置。当我尝试发送时，我只发送1封电子邮件。 Sub savesheetsSend() Dim ws As Worksheet Dim Filetype As String Dim Filenum As Long Dim wb As Workbook Dim FolderName As String Dim open_book As Workbook Set outmail = CreateObject("outlook.application") Set outmsg = outmail.createitem(0) Set wb = Application.ThisWorkbook 'create directory to save each sheet in FolderName = "C:\Users\jpenn\Desktop" & "\" & […]

使用Excel从任何客户端/服务器发送CDO电子邮件: 我正在尝试设置.xlsm工作簿，以使用电子表格中的特定数据将电子邮件发送到不同的电子邮件地址。我希望使用哪个电子邮件客户端或服务器并不重要。我目前正试图让它为Hotmail的工作。这是我的代码： Sub Button1_Click() Dim CDO_Mail As Object Dim CDO_Config As Object Dim SMTP_Config As Variant Dim strSubject As String Dim strFrom As String Dim strTo As String Dim strCc As String Dim strBcc As String Dim strBody As String strSubject = "SUBJECT" strFrom = "******@hotmail.com" strTo = "************@hotmail.com" strCc = "" strBcc […]

发送多个RangeToHTML范围的电子邮件: 我正在使用从Ron de Bruin的网站（真棒，顺便说一句）复制一些代码，并遇到一个障碍。生成的电子邮件将只将标题粘贴到completedTasks范围。它将正确地将Summary和incompletedTasks范围粘贴到电子邮件的正文。如果我删除了所有处理incompletedTasks代码，那么它将正确地将Summary和completedTasks HTML粘贴到电子邮件正文中。在此先感谢您的帮助。 Function RangetoHTML(rng As Range) ' Changed by Ron de Bruin 28-Oct-2006 ' Working in Office 2000-2016 Dim fso As Object Dim ts As Object Dim TempFile As String Dim TempWB As Workbook TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" 'Copy the range and […]

使用Excel VBA以编程方式禁止Outlook电子邮件发送警告消息: 目前，我有一组编码被设置为自动发送以前的用户input生成的电子邮件。当它被调用时，它私下生成/发送一封电子邮件 – 但要求用户接受“好”，“取消”或“帮助”。如果用户退出窗格或单击取消，则不发送电子邮件。有没有办法让程序自动select命令好吗？ Private Sub sendemail() Dim outlookapp As Object Dim mitem As Object Dim cell As Range Dim email_ As String Dim subject_ As String Dim body_ As String Dim attach_ As String '''>>>EMAIL<<<''' Set outlookapp = CreateObject("Outlook.Application") email_ = "SomeEmail@Email.com" subject_ = "General Subject" body_ = "General Message" 'create Mail […]

将未保存的Excel文件附加到电子邮件VBA: 我build立了一个excel表格供用户填写，然后作为附件发送（不必将其保存在本地计算机上）。代码相当简单，但像魅力一样。 Dim Names() Names = Array("testmail@gmail.com") ActiveWorkbook.SendMail _ Recipients:=Names(), _ Subject:="Test subject" 我的问题是，现在我实际上不喜欢发送的电子邮件，只是创build，直到用户已附加一个额外的文件（在本地计算机上find）。我为特定任务编写了以下代码： Dim olapp As Object Dim olmail As Object Dim wb As Workbook Set olapp = CreateObject("outlook.application") Set olmail = olapp.CreateItem(olMailItem) Set wb = ActiveWorkbook With olmail .To = "testmail@gmail.com" .Subject = "Test Subject" .Body = "" .Attachments.Add wb.FullName .Display 在这种情况下，我的问题是，只有最新保存的副本将被附加到创build的电子邮件，并且由于表单的用户将没有forms/ […]

EPP加Excel作为附件: 您好，我正在使用EPPPlus返回一个Excel文件，也发送相同的文件作为附件。我可以打开Excel文件，也得到了附件，但是当我打开电子邮件附件，我得到错误消息说文件已损坏。请看Belwo代码，并build议我进行更改。 MemoryStream outputStream = new MemoryStream(); using (ExcelPackage pck = new ExcelPackage(outputStream)) { //Create the worksheet ExcelWorksheet ws = pck.Workbook.Worksheets.Add("Demo"); //Load the datatable into the sheet, starting from cell A1. Print the column names on row 1 ws.Cells["A1"].LoadFromDataTable(tbl, true); //Format the header for column 1-3 using (ExcelRange rng = ws.Cells[1, 1, 1, tbl.Columns.Count]) […]