我试图导出所有的电子邮件在特定的文件夹“未激活的做”到一个CSV文件,然后移动这些电子邮件到另一个文件夹“活动的做”。
我编辑了我找到的代码。
只有最后一封电子邮件保存在csv文件上。
我需要所有的电子邮件都在同一个CSV文件中。
Sub PseudoArchive()
Dim objNamespace As Outlook.NameSpace
Dim sourceFolder As Outlook.MAPIFolder
Dim destinationFolder As Outlook.MAPIFolder
Dim Items As Outlook.Items
Dim Item As Obje
我需要将选定文件夹中的文件附加到Outlook电子邮件中。
例如,如果文件数量为15,则应创建2封电子邮件。第一封电子邮件将包含前10个文件,第二封电子邮件将包含其余5个文件。
换句话说,一封电子邮件可以包含不超过10个文件,如果一个文件夹中有超过10个文件,请继续创建新的电子邮件并附加文件,直到所有文件都被附加。
下面的代码创建了正确数量的电子邮件(如果有12个文件,它会创建2个电子邮件),但是将所有文件附加到每个电子邮件中(这两个电子邮件都包含12个文件)。
Sub attach()
Dim OutApp As Object
Dim OutMail As Object
每天早上我都会收到一封自动生成的电子邮件,而使用这封电子邮件的是CSV附件。到目前为止,这就是我所拥有的:
$outlook = New-Object -ComObject Outlook.Application
$namespace = $outlook.GetNamespace("MAPI")
# Below: 6 is the default for inbox, so this saves the user from having to
# select the inbox folder. Change if emails w/ attatchements are go
我已经写了一个宏,每当我将电子邮件标记为重要时,它应该将我的电子邮件对话移动到我的“待办事项”文件夹中。我发现移动功能确实发生了,但我得到了一个副本(即线程显示在我的“TODO”文件夹中,但仍然保留在“收件箱”中。
同样有趣的是,在"For Each MailItem in Conversation.GetRootItems“这行代码中,我预料到了,因为所有的消息都会移动到那个MailItem>1,但实际上这段代码只执行一次,然后循环就结束了。有没有关于如何做一个真正的动作,而不是看起来像是副本的想法?
''''
Public WithEvents
我在Excel VBA中编写了以下代码,如果该代码位于Outlook的默认收件箱文件夹中,则会打开具有给定主题的电子邮件。
但是,我想在所有收件箱的子文件夹中搜索此电子邮件。
由于代码将被多个用户使用,我不知道他们的outlook收件箱子文件夹的编号和名称。关于如何在所有子文件夹中搜索此电子邮件,您有什么想法吗?
Sub GetEmail()
Dim OutApp as Object
Dim Namespace as Object
Dim Folder as Object
Dim myMail as Object
Set OutApp = Creat
我要将即席类别应用于选定的Outlook电子邮件。
我有一个VBA脚本,它要求用户输入一个字符串,然后将其设置为电子邮件的类别。我通过将所有要更新的电子邮件移动到一个临时文件夹,然后对该文件夹中的所有邮件运行Outlook规则来运行此操作。
Public Sub PromptForCat(Email As Outlook.MailItem)
Category = InputBox("Please enter category to add :")
Email.Categories = Email.Categories & "," &
我有一个Outlook 2019 IMAP帐户,我试图使用下面的VBA代码将“垃圾邮件”文件夹中的所有电子邮件标记为自动读取。
我在这里找到了堆栈溢出的代码,并首先更改了IF语句,使其只获取垃圾邮件文件夹。
它给了我
“数组索引超出界限”_ error (80020009)
在第三或第四次迭代之后(最多三封电子邮件被删除),代码就中断了。
为什么失败,我可以参数化这段代码来选择任意文件夹名吗?
Sub MarkAllItemsAsRead()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
我对Outlook中的VBA编程很陌生。
我正在写一个宏,它扫描收件箱和移动电子邮件到特定的文件夹,检查标准,如主题,发送者,身体等。
现在的问题是,当我循环通过邮箱,新的电子邮件进来时,循环就会中断.
第一种可能的解决方案是在宏运行时禁用电子邮件同步。我进一步研究了这一点,并使用Sync.Start和Sync.Stop方法在Outlook中找到了Sync对象。
因此,我声明了所有的变量,如链接,并尝试了代码。所有的事情似乎都是没有错误的,I loop through all the sync objects and stop them,但是我注意到电子邮件无论如何都会出现在我的收件箱里。
我试图创建一个代码,其中从excel中的特定输入(日期,主题,电子邮件正文,邮箱,文件夹导航和导出到),我从这些特定的电子邮件下载附件。
我的问题是,即使代码获得正确的邮箱和文件夹,并下载到我想要的文件夹,它没有日期,主题和电子邮件正文。整个目标是从电子邮件中下载附件,从日期起,电子邮件主题包含一些单词,电子邮件正文包含某些单词,但是我得到的是邮箱上所有电子邮件的附件。
下面是我的代码(我试图更改& for,但它甚至没有下载):
Sub download_attachment()
Dim olApp As Outlook.Application
Dim olNS As Outl
我想在我的outlook的组文件夹中设置一个侦听器。它的工作方式应该是,每当我收到一封电子邮件,一个消息框弹出。我所说的“组文件夹”指的是如下所示的文件夹:
我已经成功地使用下面的代码使用默认收件箱文件夹执行了该任务,但是我真的很难为组文件夹找到一种方法:
Private WithEvents inboxItems As Outlook.Items
' Setup listener to Inbox
Private Sub Application_Startup()
Dim outlookApp As Outlook.Application
Dim objectNS
我一直在处理一个宏,以便从包含在特定文件夹中的电子邮件中获取电子邮件地址。
我能够到达该文件夹,并获得其中的所有项目(电子邮件),虽然代码执行良好,提取我需要的,它停止在大约1273个电子邮件地址检索。
该文件夹包含约96,870封电子邮件。我已经通过了我的逻辑,我认为我没有错误,但它仍然没有通过所有的电子邮件。
这是我的密码:
Sub GetUndeliverables()
On Error Resume Next
Dim olApp As Object
Dim olMail As Outlook.MailItem
Dim ns As Outlook.NameSpac
我正在尝试根据主题和发件人电子邮件扫描我的outlook收件箱,然后尝试将任何附件下载到本地的特定位置。 此代码当前永远运行,不会检测到具有所需发件人地址和主题的电子邮件。 import win32com.client
import re
# set up connection to outlook
outlook = win32com.client.Dispatch("Outlook.Application").GetNamespace("MAPI")
inbox = outlook.GetDefaultFolder(6)
messages = inbox
此代码获取电子邮件pdf附件,下载它,合并到一个pdf文件,并发送进一步。
现在它接受所有在收件箱中标记有特定类别的电子邮件,因此它将所有电子邮件中的所有pdf格式合并到一个文件中。
但我想要的是一个接一个的电子邮件,在从一封电子邮件下载pdf之后,它会合并并发送它们,从文件夹中删除它们,然后再使用第二封电子邮件。
如何为这段代码创建这样的循环?
import datetime
import os
import win32com.client as win32
from PyPDF2 import PdfFileMerger
from pathlib import Path
我在Excel中有VBA代码来选择主要的Outlook收件箱。我想选择收件箱中的任何文件夹或子文件夹。
例如,我想在我的主收件箱的屏幕截图中选择子文件夹ALD:
我有另一个电子邮件地址在Outlook与文件夹和子文件夹。我想选择其他电子邮件地址的任何文件夹或子文件夹。例如,我有另一个名为xxxx@yyyy.com的电子邮件地址和一个文件夹aaaa以及一个子文件夹bbbb。如何选择子文件夹bbbb
Sub OpenOutlookFolder()
Dim xOutlookApp As Outlook.Application
Dim xNameSpace As Outloo
我在Outlook中有一个子文件夹。我的目标是查看所有未读的电子邮件或我今天在该文件夹中收到的邮件,并下载桌面上这些电子邮件中的所有现有附件。到目前为止,我有以下代码:
def saveattachments(messages,today,path):
for message in messages:
if message.Unread or message.Senton.date() == today:
attachments = message.Attachments
attachment = attachments.Item(1)
f
我使用VBA脚本在发送电子邮件时提示选择文件夹。当您单击文件夹列表对话框上的“取消”时,Outlook崩溃。 我想,如果我点击“取消”,电子邮件副本将保存到“已发送邮件”文件夹中。如何为当前邮箱指定文件夹名称? Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Set objNS = Application.GetNamespace("MAPI")
我有一个C#控制台应用程序,可以动态创建一堆电子邮件,并将它们保存到Outlook2013的草稿文件夹中。但是,我遇到了这样一个问题:我创建的项目不仅在“草稿”文件夹中创建,而且还在“发件箱”文件夹中创建了一个空白项目(为每个已填写的草稿项目创建一个空白的“发件箱”项目)。
作为比较,当我尝试使用UI创建电子邮件草稿时,它按预期工作。我创建了一个新的电子邮件,单击保存,该项目只出现在草稿文件夹中。当我尝试以编程方式完成此操作时,将创建发件箱项目。
下面是我用来创建电子邮件的C#代码:
Outlook.Application app = new Outlook.Application();
Ou