Tag: 电子邮件

如何解决“连接超时”，虽然数据保存在数据库+邮件和短信发送: 在我的项目后端，我从Excel表（50-100）导入数据，将它们保存到数据库，通过邮件和短信将这些数据发送给5人。一切工作正常。数据通过batch_insert（）函数保存，邮件也是正确的人，短信也是所有的人。但问题是，虽然加载一段时间后，工作是成功的后端给出错误： The connection has timed out The server at 'domain name' is taking too long to respond. The site could be temporarily unavailable or too busy. Try again in a few moments. If you are unable to load any pages, check your computer's network connection. If your computer or network is protected […]

Excel VBA – 在莲花邮件正文中插入空白行: 我正在寻找一个空白行插入莲花笔记电子邮件的身体。例如：目前我的身体显示这个： "Hi this is the body of my email. <img></img>" 我希望我的电子邮件正文如下所示： "Hi this is the body of my email. <img></img>" 我怎么去做这个？任何创意？这是我的代码： Sub CreateEmail() Dim Notes As Object Dim Maildb As Object Dim objNotesDocument As Object Dim objNotesField As Object Dim notesUIDoc As Object Dim chartBody As Range Set Notes = CreateObject("Notes.NotesSession") Set […]

从网站获取所有电子邮件地址: 我需要从这个网站提取所有的电子邮件地址： http ://www.danskeark.dk/Medlemsindex.aspx导航到地址去字母A，B，C，D …然后由公司。我也需要将find的地址导出为excel。我如何做到这一点？感谢您的帮助 – Rasmus

来自Excel的电子邮件不会发送附件: 我有一个工作簿，我从中创build一个基于一系列单元格的PDF。这一切工作正常。我这样做与产生电子邮件分开，所以可以在其发送电子邮件之前进行检查。然后，我从同一个工作簿创build一个电子邮件发送PDF附件。电子邮件的正文是从工作簿的另一个单元格范围创build的。再一次，这样做没有问题。我发送的时候出现了问题。电子邮件发送罚款和电子邮件的正文是好的，但没有附件。我已经尝试三重检查附件的文件path（甚至将其移动到一个更简单的path进行testing），并将其更改为附加一个简单的文档文件。我也使用了两个不同的电子邮件提供商1和1和GMail，但也有同样的问题。那个依恋只是不想离开我。我也注意到，当我将鼠标hover在任何types的链接上时，我现在都有一条鼠标指针出现的消息。消息是：处理请求时出错 – 错误的响应。我只能猜测它与我已经发射的所有testing邮件有关，但不知道它是什么意思或如何摆脱它。我还有东西在跑吗？ Sub CDO_Send_Email_Angebot() Dim Rng As Range Dim iMsg As Object Dim ws As Worksheet Dim Flds As Variant Dim iConf As Object Dim PdfFile As String PdfFile = Sheets("5_Angebot").Range("E97").Value & "." & Sheets("5_Angebot").Range("E98").Value 'MsgBox rngAttachment '———- Get the […]

发送电子邮件附件: 我有两个Excel文件：一个是启用macros，一个是空白的Excel表单。场景： – 目前，空白的Excel表格将被手动填写，并附在Lotus Notes电子邮件中，并每天向外发送。 – 这个Excel空白表格一旦被填充信息，也会保存为具有不同文件名称的新Excel文件。现在，我想编写VBA Excel，只需要点击button发送附在Lotus Notes电子邮件中的Excel表单。我已经find了代码如下，它正在工作： Sub Send_Email_via_Lotus_Notes() Dim Maildb As Object Dim MailDoc As Object Dim Body As Object Dim Session As Object 'Start a session of Lotus Notes Set Session = CreateObject("Lotus.NotesSession") 'This line prompts for password of current ID noted in Notes.INI Call Session.Initialize 'or use below […]

为什么一个图像embedded成功的电子邮件与.Display但不是。发送？: 这是我觉得很奇怪，很难解决的事情，我有以下代码： Sub EmailImage() Dim oApp As Outlook.Application Dim oEmail As MailItem Dim colAttach As Outlook.Attachments Dim oAttach As Outlook.Attachment Set oApp = CreateObject("Outlook.Application") Set oEmail = oApp.CreateItem(olMailItem) Set colAttach = oEmail.Attachments Set oAttach = colAttach.Add("C:\Users\User1\Documents\thumbs-up.jpg") oEmail.Close olSave oEmail.To = "abc@abc123.com" oEmail.HTMLBody = "<IMG alt='' hspace=0 src='cid:thumbs-up.jpg' align=baseline border=0> </BODY>" oEmail.Display Set oEmail = Nothing Set colAttach […]

使用下一个可用行将电子邮件地址string拆分成不同的列: 我需要一些帮助，从电子表格中分离出一串电子邮件地址。我有一个工作表，所以当你按下发送通知button时，代码将在一列中查找一个数字，如果该数字等于1或2它将从第4列中取出电子邮件地址并将其插入到“ “电子邮件的字段。我想使用拆分functionlogging所有这些电子邮件地址，但我只收到第一个电子邮件地址，没有进一步的。这是我的代码： Private Sub CommandButton1_Click() 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 Dim sCC As String Dim x As Variant Dim Y As […]

解决这个“在截止date发送电子邮件”脚本？: 尽pipe我对VBA一无所知，但我已经阅读了关于多个社区主题的十几个话题，试图找出一些办法。我发现最有可能在我的情况下工作的脚本，分析它，切换引用，单元格等等。我想我正在接近某些function，唉，我担心就我的知识和试验和错误而言。该脚本目前什么都不做… E5到E35包含截止date，这些单元格旁边的单元格包含“已发送”和“未发送”值，因此它不会发送重复的电子邮件。这是在它需要运行的表单中： Option Explicit Private Sub Worksheet_Calculate() Dim FormulaCell As Range Dim FormulaRange As Range Dim NotSentMsg As String Dim MyMsg As String Dim SentMsg As String Dim MyLimit As Double NotSentMsg = "Not Sent" SentMsg = "Sent" 'Above the MyLimit value it will triger the email MyLimit = Today() Set […]

在VBA中，我怎样才能发送带有签名和图像的电子邮件而没有直接path？: 我正在寻找发送邮件，其中包含与发件人的默认签名（其中包含一个图像）的Excel文档的范围。我正在使用似乎是去的方法，如下所示。本来，我不能让电子邮件出现，而不改变.htm文件的图像src直接链接到相关的图像。这工作得很好，但问题是我需要一个不需要直接path的解决scheme。在工作中，我们的计算机将在启动时更新签名文件夹，并覆盖我对其做出的任何更改。我必须使这个程序适应任何工作电脑，所以我不能具体更改每个img srcpath。如果有人知道允许访问完整签名而没有直接path或任何其他解决方法，我将不胜感激。谢谢。 .htm文件表示签名并引用其源中的图像。它看起来像<img border=0 width=240 height=148 src="MYCOMPANY%20Signature_files/image001.png" v:shapes="Picture_x0020_1"><![endif]></a> <img border=0 width=240 height=148 src="MYCOMPANY%20Signature_files/image001.png" v:shapes="Picture_x0020_1"><![endif]></a> 。我能够将src =直接更改为计算机上图像的path，但是由于被覆盖，我无法将其用作解决scheme。 Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) […]

在Outlook邮件中添加多个CC: 我有这一行代码，我试图在Outlook邮件中添加多个CC。但它只是返回; 。我在MSDN上find了这个示例。 Dim ccMail as String Dim ccRow as Long Dim objMail as Object ccRow = Cells(Rows.count, 16).End(xlUp).Row With objMail .Subject = Sheet1.TextBox1.Value For k = 4 To ccRow ccMail = ccMail & ";" & Cells(k, 1).Value Next k .cc = ccMail end with 所有的CC收件人都可以在P列中find任何帮助？谢谢。