Tag: 电子邮件

用PHP发送CSV文件

我已经从我的数据库中提取数据，并以表格的forms显示在网页上。 我在这个页面上提供了一个链接，允许用户下载这个数据作为一个CSV文件。 这到目前为止工作正常，当用户按照显示的数据下方的链接，它允许他们保存它。 它也发送一封电子邮件作为附件的CSV。 然而，正确的附件中的CSV是空白的，我不知道为什么。 我所需要的是从数据库的数据放入一个可下载的CSV也进入附加的CSV，我不能这样做。 有人可以帮我吗？ 这是我到目前为止的代码： // Create CSV file fputcsv($output, array('Name', 'Branch', 'Website','Company', 'Question1', 'Question2', 'Question3', 'Question4', 'Question5')); $mysql_connection = db_connect_enhanced('*******','******','******','******'); $query='SELECT * FROM ****.****'; $surveys = db_query_into_array_enhanced($mysql_connection, $query); $count = count($surveys); $data = array(); for($i=0; $i<=$count; $i++){ $data[] = array($surveys[$i]['FeedbackName'], $surveys[$i]['BranchName'], $surveys[$i]['FeedbackWebsite'], $surveys[$i]['FeedbackCompany'], $surveys[$i]['Question1'], $surveys[$i]['Question2'], $surveys[$i]['Question3'], $surveys[$i]['Question4'], $surveys[$i]['Question5']); } foreach( $data […]

电子邮件从excel文本分开的线路

得到的macros运行和刮的名称和邮件地址很好，但我不能让文本发送到不同的行上显示，它显示为一个长长的文本行。 我尝试添加vbline等，但没有任何区别 在Sub mailtoo（） Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") On Error GoTo cleanup For Each cell In Columns("b").Cells.SpecialCells(xlCellTypeConstants) If cell.Value Like "?*@?*.?*" And _ LCase(Cells(cell.Row, "c").Value) = "yes" Then Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = […]

当目标单元格更改时，向电子邮件发送数据范围

这个macros在第5行工作，所以我需要这个macros在一个工作表中的所有行而不是每行的一个macros。 行X和电子邮件范围A：L是复制粘贴在所有行，即（X1 A1：L1 | X2，A2：L2 …） Dim X5 As Variant Private Sub Worksheet_Change(ByVal Target As Range) If Range("X5").Value = 1 And X5 <> 1 Then ActiveSheet.Range("A5:L5").Select ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = " send thru macro " .Item.To = "email@gmail.com" .Item.Subject = "ALERT" .Item.Send End With End If X5 = Range("X5").Value End Sub

从发送的邮件中检索VBA中的Outlook附件

我想要做的是让我们在我的工作中使用一些电子邮件模板，当我们拖放一个特定的Excel文件时，它会select并复制一个Excel文件的范围到电子邮件的正文。 我唯一的问题，正如我到处看，我发现的所有代码似乎是接收，而不是写的电子邮件是我如何访问： 我正在写一封电子邮件中的附件 我正在写电子邮件的正文 一旦我能得到当前电子邮件的附件，我确信我可以得到我想要的所有其他代码。 在提到“只是loggingmacros观，看看它是怎样的”之前，由于某种原因，我的前景在任何地方都没有“macros观macros观”项目，因为这也是我第一次参与。

通过Outlook完全自动发送和回复Excel

Greettings。 这是我的第一篇文章，请耐心等待。 我计划在MS Access中devise一个数据库软件。 我计划这个软件的function之一就是提交文件以供批准。 理想的是从数据库（报表或表单）中点击发送一个预先写好的电子邮件，附件中有一个文件，但是，这个预先写好的电子邮件会有一个链接，写电子邮件，用于快速自动回复/回复，但不使用Outlook的回复。 目标是人们从数据库发送，其他接收，阅读文件，如果批准，点击“自动回复”，Outlook将只是一个“阅读”软件与所有发送在后台完成。 尽pipe我计划使用Access应用程序，但我在Excel中起草了一个示例，以便进行更快速的testing（目标道具用于传递string，以便能够保存string）。 这是迄今为止的代码。 Private Function SendEmailWithOutlook(MessageTo As String, Subject As String, MessageBody As String, myAttachment As String) ' Define app variable and get Outlook using the "New" keyword Dim olApp As New Outlook.Application Dim olMailItem As Outlook.MailItem ' An Outlook Mail item ' Create a new email object Set […]

从outlook收到电子邮件date。 单元格中信息格式和search的问题

Sub ReceivedEmailDate() Dim outlookApp Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim olMail As Variant Dim myTasks Dim sir() As String Set outlookApp = CreateObject("Outlook.Application") Set olNs = outlookApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set myTasks = Fldr.Items i = 2 'This is the row you want the date/time to start from For Each olMail […]

VBA如何将HTML放入通过Access模块​​发送的电子邮件中

我有一些VBA代码给我，通过MS Access发送附件的电子邮件： Sub Email_Send() Dim strTo As String Dim strCc As String Dim strFrom As String Dim strSubject As String Dim strMessage As String Dim intNrAttch As Integer Dim strAttachments As String Dim strAttachments2 As String Dim Contact_Name As String Dim EMAIL_Address As String Dim CC_Address As String Dim Column1 As ADODB.Recordset Dim cnnDB As […]

VBA：复制并粘贴电子邮件中的单元格，而不会丢失格式

我希望能够发送包含Excel电子表格单元格的电子邮件。 目前我有下面的代码插入我想要的电子邮件的范围，但我遇到的问题是，它删除了大部分的格式，例如字体的改变和一些条件格式被删除。 Sub EmailExtract() Dim objOutlook As Object Dim objMail As Object Dim TempFilePath As String Dim Location As String Dim Individual As String Dim rng As Range Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) Worksheets("Contacts").Activate Range("A2").Select While ActiveCell <> "" ActiveCell.Offset(1, 0).Select Location = ActiveCell.Address Individual = ActiveCell.Value Worksheets("Individual Output 2").Activate Range("C2").Value = […]

从HYPERLINK运行VBA（）

我试图让我的用户从Excel电子表格中轻松发送电子邮件，他们喜欢用它作为数据input和操作的前端。 我的意图是写一个函数： generateEmail(name, manager, cc) 并且使得该function可以由用户高兴地调用。 在这种情况下，Excel调用Outlook，创build一个新的邮件，并转储包含格式化的电子邮件发送的文本，其中将包含一些值，从他们目前正在工作的表中dynamic地改变每行。 这是VBAfunction： Function generateEmail(name, manager, cc) Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "To Service Desk:" & vbNewLine & vbNewLine & _ "Please open a ticket for CS/oe/ns/telecom/dal to request a new extension. Please […]

使用Replace（）replace电子邮件中的换行符

尝试通过Excel使用VBA自动化Outlook电子邮件的过程。 在我的代码的末尾，我在Excel单元格中分隔了一个值的string;# （例如： ;#abacus;#bicycle;#cheese;# ）。 一旦我到达电子邮件创build部分的.HTMLBody部分，我将使用Replace（）来删除分隔符。 .HTMLBody = Replace(.HTMLBody, ";#", ", ") 这是很好的，因为它用逗号分隔列表。 我还有另外一个处理开始的部分（在我的列表开始之前的;# ）。 这将查找“List：”的特定实例 .HTMLBody = Replace(.HTMLBody, "List: , ", "List:") 现在应该是：“清单：算盘，自行车，奶酪” 我试图在列表结束后删除额外的逗号和空格（“cheese”应该以“cheese”结尾）。 列表将始终有不同的值，其中不同的长度，不一定以奶酪结束，但总是以;#分隔符结尾。 我知道最后一个值总是跟在电子邮件中的返回值，但是当我尝试这个代码时，它不起作用（换行符已经包含括号内的空格来不破坏代码块，它们不在我的真实VBA代码）： .HTMLBody = Replace(.HTMLBody, ", < br >< br >", "< br >< br >") 基于我疯狂的replace价值体系（在这种情况下，旨在取代三次），我觉得它应该工作，但事实并非如此。 VBA是不是能够search带有换行符的string，并用换行符来replace它？ 我也觉得有一个更好的方法来做到这一点 – 我的VBA充其量是粗制滥造。