Tag: 电子邮件

发送电子邮件给多个收件人vba: 我正在尝试将一封邮件发送给多个收件人，但是我只能将其发送给最后一个人。请帮我解决这个问题。这里是我有的程序： Sub Mail_Sending_WholWorkbook_Attachment() ' ' Mail_Sending_WholWorkbook_Attachment Macro ' This Macro is used to send the Bidresponse of the day as an attachment to the whole team with cc to santosh ' ' Keyboard Shortcut: Ctrl+Shift+B ' 'Working in Excel 2000-2016 'This example send the last saved version of the Activeworkbook 'For Tips see: […]

Outlook的自定义主题行: 我正在自动化一个Excel数据库，所以通过点击一个button，macros将自动发送一封电子邮件，使用电子邮件，主题和正文为特定的行条目。例如，我想按下button，macros自动发送电子邮件到填充红色的单元格到他们各自的电子邮件与自定义主题。我在网上发现了一些代码，一旦按下，就会发送一封自动发送的邮件。但是，主题行不是自定义的。这是我现在正在处理的代码： Sub SendReminderMail() Dim OutLookApp As Object Dim OutLookMailItem As Object Dim iCounter As Integer Dim MailDest As String Dim SUBJECT As String Set OutLookApp = CreateObject("Outlook.application") Set OutLookMailItem = OutLookApp.CreateItem(0) With OutLookMailItem .SUBJECT = "" For iCounter = 1 To WorksheetFunction.CountA(Columns(4)) If SUBJECT = "" And Cells(iCounter, 4).Offset(0, -1) = […]

如何在VBA中结束正文邮件？: 这真是让我疯狂，我敢肯定这个问题已经解决了很多次了，但是在这个论坛或者google上找不到它。所以我很抱歉为此做了一个线程。我不知道如何结束正文。非常感激。 With OutMail .To = "" ' Either an email address or a cell value that contains an email address: ActiveSheet.Range("B11").Value .CC = "" .BCC = "" .Body = "Geachte heer, mevrouw," & vbNewLine & _ " " & vbNewLine & _ "De volgende kasbankopdrachten staan klaar in Kasweb onder rekeningnummer…….. Ik […]

ExcelmacrosVBA电子邮件提醒: 所以基本上在我的模拟excel文件中，我有一个提醒列，当指定的date已经过去，然后在该列中popup“发送提醒”。我正在尝试链接“发送提醒”以触发自动电子邮件。目的是自动发送提醒电子邮件。当“Sub或者function not defined”遇到麻烦，但是我把Solver添加到了我的引用中。现在，当我在macros>运行，没有电子邮件正在发送。我用它的代码 – Sub SendEmail() Dim OutLookApp As Object Dim OutLookMailItem As Object Dim iCounter As Integer Dim MailDest As String Set OutLookApp = CreateObject("OutLook.application") Set OutLookMailItem = OutLookApp.CreateItem(0) With OutLookMailItem MailDest = "" For iCounter = 1 To WorksheetFunction.CountA(Column(4)) If MailDest = "" And Cells(iCounter, 4).Offset(0, -1) = […]

用VBA发送Outlook电子邮件的时间不会在第二天发送？: 我试图做的是发送一个电子邮件使用VBA在Excel中虽然前景，但发送date/次第二天约八点半。下面的代码，会发送一个电子邮件罚款，即使当我的工作站被locking，它甚至会发送一个具有发送发送时间，但似乎当我把它设置为第二天8:30他们只是留在我的发件箱，直到我打开他们我甚至可以打开它们，在打仗的时候打开发送，他们会发送罚款，或之后，他们将发送imediatly。传入的deferedtimevariables是一个string，格式为“dd / mm / yyyy hh：mm：ss”，例如“15/10/2010 08:30:00” Sub Send_Outlook_Email(Addresses, attach, strSubject, strBody, defertime) Dim objOL As Outlook.Application Dim msg As Outlook.MailItem Set objOL = New Outlook.Application Set msg = objOL.CreateItem(olMailItem) Dim d As Date strEmail = "" For i = 0 To UBound(Addresses) strEmail = strEmail & Addresses(i) & "; " Next strEmail […]

工作簿通过电子邮件发送时，下拉列表消失: 我在使用数据validation工具创build的Excel 2010工作簿上有一个下拉列表。列表中的数据是同一工作簿中单独表单中的一个范围。但是，当我将此工作簿通过电子邮件发送给其他人并将其打开时，下拉列表将消失。这不会影响我的其他单元格的数据validationtypes以外的“列表”。是否有我在这里失踪的信任中心设置，或者这是Excel的已知问题？

如何将邮件项目导出到Excel文件: 我需要您的帮助来将电子邮件正文导出到Excel文件。 Excel文件应包含以下字段：小号\ n。 RMA号码抵达dateRMA站点1级从RMA第一级到第二级转发date RMA寻找第一级当前状态当前分配小组以上所有数据都位于电子邮件正文中。这是一个电子邮件正文的例子： [ https://jira.sandisk.com/browse/CSSFIRSTLEVELFA-571?page=com.atlassian.jira.plugin.system.issuetabpanels:all-tabpanel ] Tony Wang updated CSSFIRSTLEVELFA-571: ————————————– Summary: RMA#60022453 –> **RMA Number**(QSS RMA#CD1S0064) GS2 unit Failed:Quanta F5-APPLE-20130125(1pcs, without FA log files) (was: RMA#xxxxxx (QSS RMA#xxxxxx) GS2 unit Failed:Quanta F5-APPLE-20130125(1pcs, without FA log files)) Goods arrived at QSS/RMA site on: Feb 5th, 2013 […]

访问Outlook电子邮件信息到Excel工作表（VBA）：body，HTMLbody，RTFbody是<>空: 预先感谢帮助…我的Googleness今天已经失败了。我用excel VBA发现了很多关于访问电子邮件信息的资料，而且大多数情况下我可以让他们工作。但是由于某种原因，电子邮件正文中最关键的部分是空白的。 Dim myOlApp As Object, myNameSpace As Object Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myfolders = myNameSpace.Folders n = 1 Do Until myfolders.Item(n) = "xxxxx" n = n + 1 Loop Set myfolder = myfolders.Item(n) Set myfolder2 = myfolder.Folders("Inbox") c = 12 n = 36 For Each Item In […]

在Excel中使用VBA脚本来填充工作表中单元格的.from字段: 我已经成功地configuration了一个基于http://www.rondebruin.nl的例子的VBA脚本，使用gmail帐户和CDO作为附件发送了一个活动forms的excel副本。我想修改的是能够使用填写电子表格的用户的电子邮件地址来改变.From字段。作为过程的一部分，电子邮件地址将填写在电子表格中。现在，我只能在.From字段中填写硬编码的电子邮件地址或用于发送附件的SMTP帐户的电子邮件地址。我的想法可能吗？截至目前，这是我的代码。 Option Explicit 'This procedure will send the ActiveSheet in a new workbook 'For more sheets use : Sourcewb.Sheets(Array("Sheet1", "Sheet3")).Copy Sub CDO_Mail_ActiveSheet_Or_Sheets() 'Working in 97-2007 Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim […]

在Excel中发送单个工作表并粘贴值不是公式: 我已经使用下面的代码实现了一个macros，它创build一个电子邮件发送活动工作表给某人。资料来源： http : //msdn.microsoft.com/en-us/library/bb268022(v=office.12).aspx#Excel2007DifferentWaysEmail_SendingaSingleWorksheetbyEMail 它设置的电子邮件没有问题，但不幸的是，复制的工作表中的一些单元格的内容是“#REF”，而不是在原来的单元格中包含的内容。这只发生在一些细胞，但我无法解决原因。原来空白的单元格总是在新工作表中获得“#REF” Sub Mail_ActiveSheet() Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook ActiveSheet.Copy Set Destwb = ActiveWorkbook With Destwb […]