Tag: 电子邮件

Outlook 2010 – 奇怪的item.Attachments错误

我有下面的代码，应该保存附加到电子邮件的特定的Excel文件。 代码与规则相结合，当接收到具有特定主题的电子邮件时触发该脚本。 代码被触发，但是最近看到的最奇怪的错误是：itm.Attachments.Count显示为零，显然这个文件没有保存！ 但是…如果我在“For each …”行上放置一个断点，并添加itm.Attachments.Count来观察窗口，则显示为零。 如果我只添加itm，然后浏览到附件属性，然后到计数属性它显示为1计数（因为它应该）和代码执行正常。 我花了半天的时间去了解发生了什么事情，但我无法弄清楚。 行为在Windows 7 x64上的Outlook 2010 x64和Windows 7 x86上的Outlook 2010 x86上都是相同的。 在“信任中心”中启用macros。 我附上了代码和规则设置的一些屏幕截图，还有一个显示手表窗口奇怪的电影。 这个脚本是在一段时间之前build立的，在几台电脑上运行得很好，它基于以下步骤：iterrors.com/outlook-automatically-save-an-outlook-attachment-to-disk/。 有任何想法吗？ 规则屏幕在这里 1分钟。 电影在这里 Public Sub Kona(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String saveFolder = "C:\test" For Each objAtt In itm.Attachments If InStr(objAtt.DisplayName, "Kona Preferred Fixed Price Matrix (ALL)") Then objAtt.SaveAsFile […]

Base64编码的excel文件不能在电子邮件附件中解码

我正在创build一个excel文件并将其附加到电子邮件中。 电子邮件附带的excel文件发送，但内容全部被删除（N o s e> j×！êh®×è®Ø^¥ê‰Úz MMy¶9×Í'×）。 $sFileName = "BatchReport".date("Ymd"); $eContent = chunk_split(base64_encode(file_get_contents(WP_PLUGIN_DIR."/cs-cart/includes/excel/".$sFileName.".xls"))); $sUniqueID = md5(uniqid(time())); $sHeaders = "From: " . (($sFrom) ? $sFrom : "Cervid Solutions <admin@" . str_replace("www.","",$_SERVER["HTTP_HOST"]) . ">") . "\n" . "MIME-Version: 1.0\n" . "Content-Type: multipart/mixed; boundary=".$sUniqueID."\n\n" . "This is a multi-part message in MIME format.\r\n" . "–".$sUniqueID."\r\n" . "Content-Type: text/plain; […]

通过电子邮件search以查找并突出显示文本

我正在用Excel的VBA试图自动发送一些电子邮件。 现在，代码会根据单击button旁边的单元格创build电子邮件，并将电子邮件转发到单元格中列出的电子邮件，然后根据更多单元格插入特定主体消息。 单元格中的内容并不重要，但我需要做的是search原始转发的特定文本消息，如果find，则需要突出显示该文本。 我的代码如下： Sub Asset_email() Dim olApp As Outlook.Application Dim olNs As Namespace Dim Fldr As MAPIFolder Dim olMail As Outlook.MailItem Dim i As Integer Dim olMsg As Outlook.MailItem Dim r As Range Dim strLocation As String Dim o As Outlook.Application Dim strbody As String 'Dim olAtt As Outlook.Attachments 'Set olAtt = olMsg.Attachments Set […]

通过Excell发送电子邮件

我已经被赋予了创build一个电子表格，将采取一些手机logging信息的任务。 我们有每天运行的报告，以查看每部手机的数据使用情况（它们以CSV格式导出）。 我们需要一种方法来根据单元格值是否为true来自动发送电子邮件（通过电子邮件发送短信）。 目前电子表格是这样的（Cell由||表示） |无线号码| USER_NAME | 记帐周期date| 成本中心| Data_Usage | 90％| 100 | 电子邮件地址| 90％的信息| 100％信息| 我正在寻找一些VBA代码，当通过button或键盘快捷方式调用marco时，将运行该代码，该代码将接收电子邮件地址并发送数据使用单元格的90％100％的消息。 任何build议将是很好的。

Excel VBA – 发送Outlook电子邮件

在单元格AI有名字，例如约翰·史密斯 在Cell BI中有一个标准 – 到期/未到期。 我需要以某种方式修改下面的代码来执行以下操作： 从单元格A生成电子邮件，格式为john.smith@company.com，然后发送提醒电子邮件，但只发送到一封电子邮件中的唯一电子邮件。 到目前为止，这是我的： Sub SendEmail() Dim OutlookApp As Outlook.Application Dim MItem As Outlook.MailItem Dim cell As Range Dim Subj As String Dim EmailAddr As String Dim Recipient As String Dim Msg As String 'Create Outlook object Set OutlookApp = New Outlook.Application 'Loop through the rows For Each cell In Columns("A").Cells.SpecialCells(xlCellTypeVisible) […]

VBA Excel发送单个电子邮件

我有以下代码对我来说工作得很好。 它将“NAMES”列（第I列）中的名称进行整理，以根据其他单元格（L，K）中的条件生成电子邮件列表，并使用表单中的一些内容生成邮件正文，以便将其发送到列表的收件人。 我现在有要求发送个人电子邮件，而不是发送给每个人的一封电子邮件。 我现在可以通过过滤第一列的名称来完成这项工作，但是如果有100个名字的话，那也是有点烦人的…任何方式我都可以改变代码，使它为收件人生成单独的电子邮件？ ps欣赏代码可能有点杂乱/没有优化，但我是一个新手…谢谢 Sub SendEmail() Dim OutlookApp Dim MItem Dim cell As Range Dim Subj As String Dim EmailAddr As String Dim Recipient As String Dim Msg As String Dim Projects As String Dim ProjectsMsg As String 'Create Outlook object Set OutlookApp = CreateObject("Outlook.Application") Set MItem = OutlookApp.CreateItem(0) 'Loop through the rows For […]

从excel列的下拉列表中select电子邮件主题

我有电子邮件的代码，我想连接到一个Excel中的列。 当macros被触发时，应该出现一个下拉菜单，这样我可以根据Excel中的列表select如何发送电子邮件。 该列表是从其他excel生成的，它可以有2个全名或40个全名。 该列表在表4中，名称在列L中，电子邮件地址在列Q中，并且列P中的文本。如果从下拉列表中selectL2中的名称，则应该从Q2中select电子邮件地址，名称从L2和P2的文本。 这是我迄今为止所拥有的： Sub email_to_one_person_from_the_list() Dim OutApp As Object Dim OutMail As Object Dim xlApp As Object Dim sourceWB As Object Dim sourceWS As Object Set xlApp = CreateObject("Excel.Application") strFile = "C:\persons.xlsm" Set sourceWB = xlApp.Workbooks.Open(strFile, , False, , , , , , , True) Set sourceWH = sourceWB.Worksheets("Sheet4") sourceWB.Activate sourceWH.Application.Run "Module2.FetchData3" On […]

如何在Excel中排除具有特定属性的logging

Excel电子表格中列出了电子邮件地址列中的电子邮件地址，列B中有颜色。例如，请参见表格： EMAIL COLOR 1. test@example.com red 2. test@example.com blue 3. testing123@example.com blue 4. testing123@example.com blue 5. testtest@example.com red 6. testtest@example.com blue 我无法弄清楚如何过滤或删除任何与红色相关的电子邮件地址，而无需手动（我有成千上万的数据行，所以这不会发生）。 因此，在这种情况下，我想最终导入到我的电子邮件程序中的唯一电子邮件地址是testing123@example.com。 想象一下，有成千上万的这样的行 – 是否有C列的条件公式，可以查找这种关系，并为每个电子邮件logging提供“真/假”标志？

MS Excel：识别包含两个或更多“@”/两个或更多电子邮件地址的单元格

我应该使用什么公式来识别包含两个或更多“ @ ”的单元格？ 例如，我从一张纸上复制了数千封电子邮件，并将其粘贴到一张新纸上（电子邮件只在一列中），但有一个情况是一个单元格可能包含两个或多个电子邮件[ 例如。 abcd @ efg.comhijk @ lmn.com ]，我想要的是高亮/标识包含这样的单元格，以便我可以轻松地修复或从列表中删除它。 任何对此的回应将不胜感激。 谢谢。

尝试运行代码复制数据并发送电子邮件后，Excel没有响应

基本上我有7个单元格可以填充文本（b2，b4，b6，b8，b10，b12和b14）。 我想要代码来检查每个单元格，以查看它们是否有值，并只发送在电子邮件中具有值的单元格。 为了进行格式化，粘贴到电子邮件中的单元格之间需要有一个空单元格，并且单元格需要按原来的顺序保存，而不需要不必要的空单元格。 我从来没有正式学过VBA，我只是一个一个的情况下教我自己，所以可能有一个简单的解决scheme，我错过了。 通常我可以debugging和发现问题，但在这种情况下，Excel完全冻结并变成“不响应”。 我有一种感觉，这意味着我有一个循环未解决的地方，但我真的不明白如何。 代码 – 运行到Range（“A2”）。Value = Line（LineCount1）。 任何build议，将不胜感激。 Public Sub SingleEmail() Dim LineCount1 As Integer Dim LineCount2 As Integer Dim LineCount3 As Integer Dim LineCount4 As Integer Dim LineCount5 As Integer Dim LineCount6 As Integer Dim LineCount7 As Integer Dim NumOfLines As Integer Range("A2", "A14").ClearContents LineCount1 = 2 Range("A2").Value = Line(LineCount1) […]