Tag: 电子邮件
从Excel电子邮件附件更新SQL Server（2014）表
我们跟踪攻击我们网站的IP。 第一次攻击，我们暂时阻止他们。 如果他们再次攻击，那么我们永久将他们黑名单。 每个IP每次攻击的信息永久存储。 每天两次，将带有所有相关信息的Excel电子表格的报告通过电子邮件发送给不同的人，然后将这些信息手动添加到大量的电子表格中。 我们最近使用SQL服务器创build了一个新的包，并将所有现有的信息添加到新数据库中的表中。 由于我是新来的，我想知道是否有办法将每日电子表格发送到这个新的SQL服务器，并parsing出Excel附件，并更新我们的主跟踪表。 电子表格将始终具有相同的结构（15列和页眉和页脚行）与不同的行数，当然它匹配现有的表结构。 我一直在使用它，只能find关于如何使SQL导出到Excel的查询（ba dum tish），并发送数据库邮件的电子邮件。 发送电子邮件到SQL服务器和处理附件找不到任何东西。
VBA循环通过电子邮件附件并根据给定的标准进行保存
这是上一个问题的后续（ VBA从具有多个帐户的电子邮件保存附件（基于定义的标准） ） 场景：我有一个代码，在特定的Outlook帐户中循环遍历所有电子邮件，并将附件保存到选定的文件夹。 以前，我的问题是select哪个文件夹（和帐户）从哪里提取附件（这是解决与上一个问题的build议）。 问题1：该代码在该行显示“types不匹配”错误： Set olMailItem = olFolder.Items(i) 问题2：如问题标题中所述，我的主要目标是遍历所有附件并仅保存那些具有给定条件的文件（excel文件，其中一个工作表名称为“ASK”，另一个名为“BID”）。 不只是一个简单的如果考虑到这些标准，我必须下载所有文件到“临时文件夹”，select并把最终的结果文件放在输出文件夹中，或者将所有文件下载到最终文件夹中，不符合标准。 问题：我似乎无法find做这两种操作的方法。 问：如何做到这一点？ 那两个会更有效率呢？ 码： Sub email() Application.ScreenUpdating = False Dim olApp As New Outlook.Application Dim olNameSpace As Object Dim olMailItem As Outlook.MailItem Dim olFolder As Object Dim olFolderName As String Dim olAtt As Outlook.Attachments Dim strName As String Dim sPath As String Dim […]
通过python与excel xlsx附件发送电子邮件（gmail）时出错
我试图通过python作为主机发送电子邮件，如下所示： # Import smtplib for the actual sending function import smtplib # For guessing MIME type import mimetypes # Import the email modules we'll need import email import email.mime.application # Create a text/plain message msg = email.mime.Multipart.MIMEMultipart() msg['Subject'] = 'Greetings' msg['From'] = 'x@gmail.com' msg['To'] = 'x@gmail.com' # The main body is just another attachment body […]
Excelmacros发送电子邮件
我有一个报告，我想通过Excel发送。 它将包括收件人，主题和正文中的信息。 实际上它可以复制有问题的单元格。 我到目前为止所做的是创build一个button，并用此代码分配一个macros： Private Sub CommandButton1_Click() Application.Dialogs(xlDialogSendMail).Show arg1:=Sheets("Sheet1").Range("E3"), _ arg2:=Sheets("Sheet1").Range("E7") End Sub 问题是这个命令作为附件发送工作簿。 有人可以帮助我的代码，这将允许我这样做。 太感谢了！ 干杯
从电子邮件中提取第3行和第4行
我需要从电子邮件中导出第3行和第4行。 我有一个存储在Microsoft Outlook会话中的VBA代码。 它运行良好，但它导出整个邮件正文。 我只需要3号线和4号线。 这里是示例代码： Option Explicit Private WithEvents Items As Outlook.Items Private Sub Application_Startup() Dim olApp As Outlook.Application Dim objNS As Outlook.NameSpace Set olApp = Outlook.Application Set objNS = olApp.GetNamespace("MAPI") Set Items = objNS.GetDefaultFolder(olFolderInbox).Folders("Leads").Items End Sub Private Sub Items_ItemAdd(ByVal item As Object) On Error GoTo ErrorHandler Dim Msg As Outlook.MailItem Dim oXL As […]
与excel生成的电子邮件的nextline vba
通过互联网后，我仍然遇到了一个问题，插入到Excel生成的电子邮件的新行。 我已经尝试了以下代码： Email = "person@email.com" Subj = "Subject" body = "Hello Person," & vbCr & _ "message" & vbCr & _ "Example: " & vbCr & _ "another example" & vbCr & _ "another example" & vbCr & _ "Thank you. " 和 body = "Hello Person," & vbCr & _ body = body & […]
需要帮助修复通过vba发送自动电子邮件的代码
我最近写了一个代码，允许我发送一封电子邮件给一个特定的人在一个范围内点击命令button。 我的代码最初工作正常，但是，我想引用另一个名为“参数”表上的这些人的电子邮件的范围，而不是活动工作表。 当我改变了我的代码，但它的工作，而不是发送一封电子邮件发送三。 我需要帮助结束我的代码，以便它只会发送一封电子邮件。 Private Sub JLechner_Click() Dim sh As Worksheet Dim sh2 As Worksheet Dim wb As Workbook Dim FileExtStr As String Dim FileFormatNum As Long Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object Dim strbody As String TempFilePath = Environ$("temp") & "\" If Val(Application.Version) < […]
Excel VBAsearch邮件的Outlook
我正在开发一个项目，里面有一个Account ID的列表，我正在做的是创build一个与Outlook接口的macros，在特定条件下search我的收件箱中的任何电子邮件，然后返回“ Y“或”N“，如果find，发送邮件的人和发送的时间。 以下是我正在使用的代码; 我需要macros来search电子邮件正文而不是主题行。 当我将[主体]replace为[主体]时，macros运行没有错误，但没有返回邮件（我放置了几个testing邮件来捕捉它）。 我正在运行Excel和Outlook 2007，并且已经引用了VBA中的MS 12.0 Excel和Outlook库。 Sub Work_with_Outlook() Set outlookApp = CreateObject("Outlook.Application") Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim olMail As Variant Dim sir() As String Set outlookApp = New Outlook.Application Set olNs = outlookApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set myTasks = Fldr.Items Set olMail = myTasks.Find("[Subject] = ""123456""") […]
在某些计算机上，Excel VBA中的空白“收件人”字段为空
我们有一个Excel电子表格，用于为潜在客户创build报价。 通过使用VBA，它生成PDF并通过电子邮件将其发送给客户。 它将客户的电子邮件地址从用户填写客户详细信息的主表单元格中取出。 几个星期前，即使在主表单上填写了客户的电子邮件地址，也不会填写Outlook的“收件人”字段。 当我们改变这个电子表格中的任何东西，包括代码时，我们把它保存为一个新的“修订”（保留所有以前的修订）。回到以前的修订，我现在发现它们都没有工作。 这很奇怪，因为他们之前确实如此。 我正在使用Office 2016（虽然我刚刚升级，但是这个问题是最近的）。运行Office 2013的计算机也无法正常工作。 但是，运行Office 2007的计算机却能正常工作。 现在有什么想法，为什么这是一个问题，为什么它只是某些版本的Office的问题？ 这是代码片段： Private Sub send_as_pdf_Click() On Error GoTo ErrMsg Dim strPath As String, strFName As String Dim OutApp As Object, OutMail As Object strPath = Environ$("temp") & "\" strFName = Sheets("Quotation").Name & " " & Range("G18") & ".pdf" Sheets("Quotation").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ strPath & […]
当电子表格出现错误时，如何停止触发基于事件的VBA代码？
我有一个代码来自动发送一个电子邮件，当一个单元格达到一定的价值。 （下面） 如果发生错误并且单元格被删除，它也会发送电子邮件。 我需要添加到代码停止发送，如果我从单元格中删除值？ 提前致谢。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect(Range("M4:M368"), Target) Is Nothing Then If IsNumeric(Target.Value) And Target.Value < 1000 Then Call Fuel_LevelW01D End If End If End Sub
