Tag: 电子邮件

使用Outlook将电子邮件发送到通讯组列表

我目前有完美的代码，可以将我开放的活动工作簿发送给我指定的任何人。 不过，我想将工作簿发送到我的Outlook联系人中的一个名为“Daily Matrix”的分发列表中，并希望对他们进行密码pipe理。 我不知道如何做到这一点，帮助将不胜感激。 谢谢！ Sub Mail_Workbook_1() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "" .CC = "" .BCC = "" .Subject = "Daily Matrix" .Body = "PLEASE DO NOT DISTRIBUTE-FOR INTERNAL USE ONLY" .Attachments.Add ActiveWorkbook.FullName ' You […]

在excel单元格更改时运行我的macros

我希望有一个单元格更改后，我的电子表格发送电子邮件。 到目前为止，我有一个macros发送到一组电子邮件和一个命令buttonmacros触发这个，但希望它自动发生时，一个单元格更改状态。 我现在有： Sub Create_Email_From_Excel() Dim SendTo As String Dim ToMSg As String For i = 1 To 10 SendTo = ThisWorkbook.Sheets(1).Cells(i, 1) If SendTo <> “” Then ToMSg = ThisWorkbook.Sheets(1).Cells(i, 3) Send_Mail_From_Excel SendTo, ToMSg End If Next i End Sub Sub Send_Mail_From_Excel(SendTo As String, ToMSg As String) Dim OutlookApp As Object Dim OutlookMail As […]

在Excel中使用VBA发送电子邮件，没有Outlook，64位

我正在使用下面的代码尝试使用VBA在Excel中发送电子邮件。 我不断收到错误： 运行时错误“-2147220973（80040213）”：传输失败连接到服务器。 我尝试更改端口（25,465,587），更改电子邮件服务器（smtp.gmail.com，smtp.live.com），同时尝试Gmail和Hotmail，在两个Gmail帐户启用不太安全，甚至设置Outlook和禁用防火墙在Avast。 代码如下： Sub CDO_Mail_Small_Text() Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source Defaults Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 '587 '465 '25 […]

Excel VBA：如何发送电子邮件到Outlook中的组？

我期待自动发送电子邮件从Excel VBA到Outlook 2013。 我能够发送电子邮件给个人，并通过TITUS分类，但是当我发送到组邮件时，仍然出现以下错误。 如何在VBA中select“ 发送 ”？ 以下是我必须发送电子邮件的代码： Dim AOMSOutlook As Object Dim AOMailMsg As Object Set AOMSOutlook = CreateObject("Outlook.Application") Dim objUserProperty As Object Dim OStrTITUS As String Dim lStrInternal As String Set AOMailMsg = AOMSOutlook.CreateItem(0) Set objUserProperty = AOMailMsg.UserProperties.Add("TITUSAutomatedClassification", 1) objUserProperty.Value = "TLPropertyRoot=ABCDE;Classification=Internal;Registered to:My Companies;" With AOMailMsg .To = "mygroup@list.company.com" .Subject = "my subject" […]

将电子表格数据导入电子邮件正文 – Python

尝试将电子表格内容作为邮件正文邮寄。 代码示例： import smtplib from email.mime.text import MIMEText import mimetypes from email import encoders from email.message import Message from email.mime.base import MIMEBase from email.mime.multipart import MIMEMultipart import csv import os import io import codecs fileMsg = MIMEBase("application","octet-stream") with open('123.xls','r') as fp: contents = fp.read() fileMsg = MIMEText(contents) outer.attach(fileMsg) 但得到一个错误消息： contents = fp.read() File "\\ms\dist\python\PROJ\core\3.4.2-4-64\.exec\ia32.nt.4.0\lib\encodings\cp1252.py", line […]

Outlook使用主题行保存多个附件，然后递增该名称

我花了几个星期玩VBA，我绝不是这方面的专家。 我正在寻找的是这个代码的修改。 Public Sub SaveAttachments() Dim objOL As Outlook.Application Dim objMsg As Outlook.MailItem 'Object Dim objAttachments As Outlook.Attachments Dim objSelection As Outlook.Selection Dim i As Integer Dim lngCount As Integer Dim strFile As String Dim strFolderpath As String Dim strFileName As String Dim objSubject As String Dim strDeletedFiles As String ' Get the path to […]

当我发送与Excel数据链接的邮件时如何更改Outlook中的date格式？

当我发送电子邮件时，有人可以帮我在这里格式化date吗？ 在单元格8我有date，但是当我发送电子邮件date将显示为10/03/2016，但我想显示date为2016年10月3日。 我试着把代码设置为& Format(Date, "dd/mmm/yy")但是当我运行这个程序时，它会在10/03/2016显示今天的date。 请看下面我的编码： ## "Full Name : " & Cells(i, 6) & vbNewLine & vbNewLine & _ "Nationality : " & Cells(i, 7) & vbNewLine & vbNewLine & _ "Departure/Arrival Date : " & Cells(i, 8) & vbNewLine & vbNewLine & _ "Airline : " & Cells(i, 9) & vbNewLine & vbNewLine […]

通过Outlook发送邮件 – 错误287

我试图通过一组工作表循环，将它们中的每一个保存为一个单独的工作簿，然后通过邮件发送它们作为附件。 但是，当运行下面的代码，我最终以.Send触发错误287。 我有前景开放，所以这不是问题。 如果我更改。发送到.Display，邮件生成为草稿，正确显示并附上正确的表单。 Sub SendWorksheetsByMail() Dim wb As Workbook Dim destinationWb As Workbook Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Set wb = Workbooks("Test.xlsm") Application.EnableEvents = False Application.ScreenUpdating = False For Each ws In wb.Worksheets 'Ignore Summary and Config If ws.Name <> "Summary" And ws.Name <> "Config" Then 'On Error Resume Next Set […]

如何通过VBA代码按主题将电子邮件从Outlook传输到特定的文件夹？

我有2列在Excel中。 第一列是电子邮件的主题，第二列是具有特定主题的电子邮件必须移到的文件夹。 比如这两列： Subject Folder A 1 B 2 C 3 所以，当我得到一个主题为“A”的电子邮件，那么它必须移动到文件夹1.所以我的问题是我怎样才能使代码在Excel表中search邮件必须移动到哪个文件夹（我只需要这部分代码）。 我不能在网上find任何关于它的东西。

Excel VBA：使用IBM Notes发送HTML电子邮件

我试图触发一个macros，当用户更新列N中的单元格时，它将发送一封电子邮件。 电子邮件必须使用IBM注释发送。 下面的代码，发送电子邮件罚款。 但是，我不熟悉IBM笔记，我想尝试和我的电子邮件格式为HTML。 目前，电子邮件正在发送纯文本。 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("M:M")) Is Nothing Then If Target.Cells.Count < 3 Then 'Set up the objects required for Automation into lotus notes Dim Maildb As Object 'The mail database Dim UserName As String 'The current users notes name Dim MailDbName As String 'THe current […]