Tag: 电子邮件

无法在Excel中手动发送Lotus Notes电子邮件: 我试图使用macros发送Lotus Notes电子邮件给客户，我可以自动发送，但如果有什么我想发送之前添加它，所以我想把它设置为手动模式，所以我可以先查看电子邮件，发送前可能会做一些修改，所以我的问题是我该如何修改？我有一些方法，但他们不工作。然后我会用自动发送function发布我的整个代码： Sub Send_Unformatted_Rangedata(i As Integer) Dim noSession As Object, noDatabase As Object, noDocument As Object Dim vaRecipient As Variant Dim rnBody As Range Dim Data As DataObject Dim rngGen As Range Dim rngApp As Range Dim rngspc As Range Dim stSubject As String stSubject = "E-Mail For Approval for " + (Sheets("Summary").Cells(i, […]

避免在excel-vba中触发mailto超链接: 大家早上好。如果之前询问过，请提前注意并道歉。我有一个包含多个联系人和电子邮件的电子表格。在工作中，我们定期发送电子邮件给这些联系人，通过一些特定的模板定制。我创build了一个代码，当你点击一个mailto：超链接时，一个带有下拉菜单的小表单显示出来，所以我们可以select要使用的模板，当点击一个命令button时，它使用Outloook组成一个电子邮件，填充电子邮件正文与模板和联系人，公司名称，主题等所有这些都很完美。但是，它不仅打开了用户表单，它也会打开一个新的，空白的电子邮件，因为它没有代码。有什么办法可以防止这种情况发生？点击电子邮件地址只执行我的代码？提前致谢

我怎样才能通过电子邮件发送Excel文件: 我必须每个月通过邮件创build并发送一个excel文件给我的老板。我想用VBA代码作为附件发送文件。但我的VBA代码不起作用，确认后要求debugging。我的代码是： Sub EMail() ActiveWorkbook.SendMail Recipients:="user@gmail.com" End Sub

如何从Outlookmacros发送Excel图表: 我达到了运行规则和警报的前景macros的地步。 macros从邮件地址search邮件，当它find它时，它将它移动到一个子文件夹，然后只提取邮件正文中的数字，打开Excel，粘贴数字和邮件date到Excel下一个空闲行，更新Excel，保存并closures它。最后它将邮件移动到DONE目录并将其标记为已读。在Excel中有一个数据透视表来创build一个图表（图3）。现在我想从excel发送graphics到邮件收件人，我发现很多方法从Excel邮件graphics，但不是从Outlookmacros。这是我到目前为止： Sub MoveItems(Item As Outlook.MailItem) '**************************************************************************** '* Find mail from sender and move them from the inbox to the rquests folder * '**************************************************************************** Dim myNameSpace As Outlook.NameSpace Dim myInbox As Outlook.Folder Dim myDestFolder As Outlook.Folder Dim myItems As Outlook.Items Dim myItem As Object Set myNameSpace = Application.GetNamespace("MAPI") Set myInbox = […]

Perl：读取电子邮件并使用邮件内容作为标准input以进行Excel更新: 我正在寻找一些启动Perl脚本的帮助。我对Perl相对不熟悉，所以帮助将不胜感激:) 基本上，要开始一个项目，写一个脚本，以帮助保持与我一直在工作的小时。基本上我想脚本来电子邮件（自动使用cron）我提醒我每天发送我的小时，然后我发送一封电子邮件回来的消息，如“03/02/14 7.30 18.30”脚本然后将读取数据和更新Excel电子表格保持小时的日志。我知道除了让脚本读取电子邮件之外，怎么做都行。我一直在研究MIME :: * MAIL :: *，但我不完全确定哪个软件包是最好的，以及如何真正去做。提前致谢，奥利

将Excel范围发送到电子邮件正文与自动调整: 我目前正在使用Ron de Bruin的RangetoHTML函数在电子邮件中发送几个表格。我希望这些表格可以自动适应Outlook的屏幕。目前，我必须点击每个表格，然后进入layout-> autofit来在每个表格上进行屏幕显示。我想知道这个任务是否可以以某种方式折叠到macros中。编辑：这是我在解决scheme的第一个猜测： objMail.HTMLBody = RangetoHTML(Range("A1:G14")) & _ RangetoHTML(Range(Range("vmRange").Value)) & _ RangetoHTML(Range(Range("hpRange").Value)) & _ RangetoHTML(Range(Range("esrRange").Value)) For Each tbl In objMail.body.tables tbl.Columns.AutoFit 'Note: This doesn't actually work Next tbl

电子邮件中的新行通过使用换行符创build单元格值的消息：VBA: 我正面临与VBA邮件相关的问题。例如。在单元格A1中我有： Test test test test test test 而当我从一个单元格A1生成邮件时，string出现时没有换行符，我的意思是 Test test test test test test. 我试图用"\r\n"replace为"<br/>"但是这不起作用。 Content = Replace(Content , "\r\n", "<br/>") 有谁能帮我解决这个问题吗？

如何获取excel文件中的数据（使用NPOI）: 我发这个函数来发送邮件时embedded数据。所以我可以在电子邮件的正文中调用这个函数。 private static string getHTML(DataTable dt) { StringBuilder myBuilder = new StringBuilder(); myBuilder.AppendLine("see attached for the updated list."); myBuilder.AppendLine(""); myBuilder.Append("<table border='1px' cellpadding='5' cellspacing='0' "); myBuilder.Append("style='border: solid 1px Silver; font-size: x-small;'>"); myBuilder.Append("<tr align='left' valign='top'>"); foreach (DataColumn myColumn in dt.Columns) { myBuilder.Append("<td align='left' valign='top'>"); myBuilder.Append(myColumn.ColumnName); myBuilder.Append("</td>"); } myBuilder.Append("</tr>"); int a = 1; foreach (DataRow myRow in […]

在Outlook 2013中安排电子邮件在每周开始时发送: 我想发送一个更新的Excel表 – 我星期五更新发送 – 在本周开始（下星期一）。我不知道我怎么能：在Outlook中安排周一上午9点发送重复发送的电子邮件有没有办法让我的前景抓住我的电脑上指定的文件夹我更新的Excel并发送出去？

使用VBA创build电子邮件后，请重新回到Excel: 我有一个VBAmacros，它执行以下操作：创build一个报告，并将其保存到主目录。 closures报告创build各种电子邮件，附加报告（不发送电子邮件） Msgbox显示显示该过程已完成问题是，一旦整个过程完成，我希望用户知道它已经完成，但是这个代码不会把焦点返回给excel（我希望这会是问题） Windows(the_current_window).Activate Worksheets(currentQuoteSheet).Select 最后创build的电子邮件就是屏幕上的内容。只有当我点击菜单栏上的excel图标，msgbox才会出现。所以用户只是在等待完成（当它有，实际上:(）任何想法如何确保最后一封电子邮件后msgbox显示没有用户点击Excel的创build？