Tag: 电子邮件

macros只将可见的单元格粘贴到电子邮件正文中不起作用: 我想获得下面的macros来粘贴在Outlook电子邮件正文可见单元格从工作表。 macros的工作很好，唯一的问题是当人们回复电子邮件，突然所有的行现在可见。看起来，当初始邮件发送时，它必须粘贴整个工作表，但保持格式来隐藏已过滤的行，但当人们去回复，这一切都消失了。有任何想法吗？ Sub Send_Range_Or_Whole_Worksheet_with_MailEnvelope() 'Working in Excel 2002-2013 Dim AWorksheet As Worksheet Dim Sendrng As Range Dim rng As Range On Error GoTo StopMacro With Application .ScreenUpdating = False .EnableEvents = False .Application.DisplayAlerts = False End With 'Fill in the Worksheet/range you want to mail 'Note: if you use one cell it will […]

在帐户/文件夹中创build邮件的Excel列表/日志的macros: 这是我的macros。我认为我可以理解代码，然后编辑它，并得到我想要的东西第一：macros没有任何进展根本：“编译错误：userdefined typenot defined”我甚至不知道这是什么东西:)（我使用macros现在在一个新的和emty工作簿） Sub ListAllItemsInInbox() Dim OLF As Outlook.MAPIFolder, CurrUser As String Dim EmailItemCount As Integer, i As Integer, EmailCount As Integer Application.ScreenUpdating = False Workbooks.Add ' create a new workbook ' add headings Cells(1, 1).Formula = "Subject" Cells(1, 2).Formula = "Recieved" Cells(1, 3).Formula = "Attachments" Cells(1, 4).Formula = "Read" With Range("A1:D1").Font .Bold = […]

如何使用VBA指定要从其发送电子邮件的帐户: 我有一个使用VBA自动发送电子邮件的macros。在我的Outllok，我有3个不同的帐户/电子邮件设置，我可以发送电子邮件。这是我的macros Set olapp = New Outlook.Application Set msg = olapp.CreateItem(olMailItem) msg.To = Sheets("CONFIRM").Range("G2") msg.Subject = Subj msg.BodyFormat = olFormatHTML msg.HTMLBody = "<p style='font-family:calibri;font-size:15'>" & Body & "</p>" msg.Attachments.Add (DestinationFile1) msg.Send 如何指定使用哪个帐户发送电子邮件….谢谢

Application.OnTime没有工作: 我尝试将这些工作表自动发送到与他们相应的收件人的电子邮件。基本上，编码将读取包含所有电子邮件地址cc和bcc的“电子邮件”表。然后，代码会将所需的表单发送到“电子邮件”表单中列出的电子邮件。我现在唯一需要的就是自动化。但是，代码Application.OnTime不适用于整个编码。我不知道为什么，请帮助我们。 Sub ExportEmail() Dim objfile As FileSystemObject Dim xNewFolder Dim xDir As String, xMonth As String, xFile As String, xPath As String Dim olApp As Outlook.Application Dim olMail As Outlook.MailItem Dim NameX As Name, xStp As Long Dim xDate As Date, AWBookPath As String Dim currentWB As Workbook, newWB As […]

用不同的附件发送多封电子邮件: 我正在尝试创build一个macros，以便将电子邮件发送到Excel电子表格中的收件人列表，并为每个电子邮件附加不同的附件。我能够创build一个生成所有不同电子邮件的macros，但是当我添加附件时，只有列表的第一封电子邮件被创build，并带有所有正确的附件。当循环回到第二封电子邮件，它给了我一个错误消息，说附件没有find（我认为这是第二个消息）。我一遍又一遍地检查，根据我在代码中设置的规则，文件名和path是正确的，但系统仍然找不到第二个附件。它甚至不创build第二封电子邮件的草稿，但只是告诉我该文件不是发现。我怎样才能生成所有的电子邮件与他们适当的附件？代码如下： Sub clientemails() Dim pfolio As String Dim destino As String Dim mo As String Dim text As String Dim subject As String Dim CC As String Dim signature As String Dim officer As String Dim yr As String Dim date1 As String Dim position As String Dim analysis […]

将Outlook电子邮件信息从特定datevba中提取到Excel: 我有几封电子邮件每天或每15天发送给我，我需要跟踪他们准时交货。我在Outlook上创build了规则，将它们存储在不同的文件夹和子文件夹中。我想要做的是有一个Excel工作表，比较客观date/时间与实际date/时间交付。为此，我需要从Outlook中提取发送时间和date并将其导出到Excel。我不确定是否要根据文件夹/子文件夹名称或主题片断来完成，就像我的规则完成一样。我已阅读了类似问题的答案，但无法根据我的需要进行调整。

如何发送附件的电子邮件？: 使用xlwt我创build了一个使用Django的Excel工作表，我想以附件forms发送电子邮件。 response = HttpResponse(mimetype='application/ms-excel') response['Content-Disposition'] = 'attachment; filename='Report.xls' book = xlwt.Workbook() sheet = book.add_sheet("Core Listings") book.save(response) return response 我正在使用Django的EmailMessage发送电子邮件。

从Outlook导入最近的电子邮件到Excel（VBA）: 我花了很多时间来研究这个，我还没有find完整的答案。我期望做的是从Outlook中抓取100个最近的电子邮件，并将它们粘贴到Excel工作簿中。我已经build立了一个代码（从几个不同的网站借鉴），已经完成了这个代码，但是它缺less了“ 最新的 ”部分。当我在Excel中执行这个代码时，用指定的信息打印出101行，这是很好的。但这不是最近的电子邮件。如果您在下面的图片中看到，现在的时间是晚上7点18分，但是导入到Excel中的电子邮件只是从今天下午2:17开始。（我出于隐私的原因将其他列删除）最初，这些电子邮件只是从2014年5月的某个随机date开始粘贴的。我在Outlook 2013上删除了我的帐户并重新添加了该帐户，这就是Excel代码从今天下午2:17开始抓取它的时间，而不是几个月前。基于此，我认为这与代码只能读取在创build帐户时链接到Outlook的PST文件有关，但我不完全确定。我已经广泛地search了这个问题，似乎没有人遇到同样的问题。我只想知道是否有一种方法可以修改我的代码，只抓取最近的电子邮件。我不想抓取原始PST文件中的存档电子邮件。每次执行代码时，有没有办法重buildPST文件？有没有一种方法的代码只能从活动的Outlook窗口中读取而不是存档文件？任何意见将不胜感激。这是我的代码： Sub Test() 'Dim objOL As Object 'Set objOL = CreateObject("Outlook.Application") Dim objOL As Outlook.Application Set objOL = New Outlook.Application Dim OLF As Outlook.MAPIFolder Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) Dim CurrUser As String Dim EmailItem Dim i […]

如何创buildExcel和Outlook电子邮件之间的连接/链接？: 我一直在从Excel发送Outlook电子邮件，用它来pipe理我在工作中的销售和项目pipe理活动。我一直在享受更高的生产力，所以我想要做更高级的事情。例如，我认为我已经编写了代码，可能很粗糙的方法是让Excel帮助跟踪尚未回复的电子邮件。（我只是简单地使用Outlook，为每个新电子邮件打开一个工作簿，然后在新行中创build一个logging，然后让Excel将它与我以前发送的电子邮件进行匹配。但是，一旦我在Excel中有一个这样的电子邮件logging，它没有链接或连接到实际的电子邮件。我希望能够点击电子邮件的Excel图标或链接，然后拉起实际的电子邮件。我发现使用EntryIDs和MessageIDs，Outlook URL和GUID，甚至是老式的AdvancedSearch（但我认为Excelsearch它启动的电子邮件似乎非常笨重的可能性;应该有一种方法来创build一个硬链接到电子邮件）。相关的，也可能就像笨重，但我已经沉思在每个Excel启动的电子邮件中“embedded”一个唯一的标识符，可以用来find它，并将其链接回Excel中的logging。在HTML电子邮件中，我可以在我的签名下添加一串数字，在白色背景上以白色文本添加，这不是完美的，但在大多数情况下，应该不被理会，并允许我的电子表格积极地识别它（作为答复特定的电子邮件等）我知道我们不应该要求“build议”，但我希望有人能指出我正确的方向，可以为我所希望达成的目标发挥作用。

在Excel中创build超链接以便通过VBA打开特定的电子邮件Outlook: 我在Outlook中编写VBA代码，将所有电子邮件信息跟踪到1个Excel文件。对于每封电子邮件，我将把信息放在Excel的一行中。我想在Excel文件中添加一个超链接来打开相应的Email。我的代码如下所示： Set objFD = objNS.Folders("dtk142@aaaa.com") Set objToFD = objFD.Folders("Inbox") For Each Msg In objToFD.Items '' mail information mDate = Msg.ReceivedTime mSubject = Msg.Subject mSender = Msg.SenderName mSAddress = Msg.SenderEmailAddress ' put to excel xlTmp.Sheets("RequestTracker").Cells(cntrow, 1).Value = cntID xlTmp.Sheets("RequestTracker").Cells(cntrow, 2).Value = mDate xlTmp.Sheets("RequestTracker").Cells(cntrow, 3).Value = "Email" xlTmp.Sheets("RequestTracker").Cells(cntrow, 5).Value = mSAddress xlTmp.Sheets("RequestTracker").Cells(cntrow, 7).Value = […]