我使用下面的代码从Excel中的列表中创建Outlook中的电子邮件文件夹。我可以让它在我的默认电子邮件帐户中工作得很好,但我正在努力为共享邮箱实现它。
我添加了返回与指定电子邮件地址相关联的帐号(作为外部参照)的代码。如何修改“添加文件夹”部分以利用此信息(我是否需要代码才能将帐户“重置”回用户的默认设置?)。
然后我还需要知道如何将现有文件夹移动到另一个文件夹(例如,从'DEV TEST‘移动到'DEV TEST/ARCHIVE')。
谢谢。
Sub CreateEmailFol()
Dim admin As Worksheet
Set admin = This
我想收集一些电子邮件计数数据从Outlook使用Excel。除了我的个人电子邮件,我还可以访问其他邮箱帐户/商店(?)Outlook邮箱/帐户上的标签为HR、Marketing、Accounting。我想遍历这些邮箱/商店中的文件夹并执行一些任务。
当我通过Sessions.Accounts编写一个for循环时,它只访问我的默认邮箱(即不访问HR、Marketing、Accounting)。如果我循环通过Session.Stores,看起来我可以访问我的非默认邮箱。
Sub test()
Dim olApp As Outlook.Application
Set olApp = Outlook.
我的用户将其个人邮箱作为其主要帐户,并在其Outlook 2010客户端中配置了一个自动映射的共享邮箱。共享邮箱是Office 365共享邮箱,因此无法登录以将其设置为主帐户。
我正在尝试从共享帐户的地址开始新的电子邮件。
下面是我一直在尝试使用的VBA代码。我已允许在Outlook的信任中心设置中使用宏。
Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAcc
我们有一个共享邮箱(test@)和一个子文件夹(TestIn)。 我想在共享邮箱的收件箱中选择一封电子邮件,并将其移动到"TestIn“文件夹中。 此邮件应作为会话移动,而不仅仅是单个邮件,此标题(会话)下的所有邮件都应放入此文件夹中。 我们正在使用Outlook中的Office365和Microsoft Exchange帐户。 我将选定的消息(或对话)从共享邮箱移动到个人邮箱的子文件夹中,而不是共享邮箱中。 代码如下: Sub SetAlwaysMoveToFolderMAPI()
Dim sharedemail As Outlook.Recipient
Dim myOlApp A
因此,我试图从Microsoft的附件中读取Excel文件。下面的代码工作,但只有当我试图阅读附件的电子邮件是在我的收件箱顶部。我如何调整我的代码,以便它查看我的收件箱文件夹中的所有电子邮件,寻找附件或找到电子邮件的基础上提供的主题。而且,我最终希望通过共享邮箱来完成这项工作,但这是一个次要的问题。
from win32com.client import Dispatch
import email
import datetime as date
import os
outlook = Dispatch("Outlook.Application").GetNamespace(&
我想以编程方式使用给定的共享邮箱名称发送电子邮件。我不能访问smtp服务器,所以我不能使用System.Net.Mail。
我使用的是Outlook = Microsoft.Office.Interop.Outlook;
如何从共享邮箱而不是默认电子邮件地址发送电子邮件?
outlook.MailItem mail application.CreateItem(outlook.OlItemType.olMailItem) as outlook.MailItem;
try
{
if (mail.Subject.Contains("Highway Ale
我正在使用以下代码来显示对话中原始电子邮件的属性。
void DemoConversation()
{
object selectedItem =
Application.ActiveExplorer().Selection[1];
// For this example, you will work only with
//MailItem. Other item types such as
//MeetingItem and PostItem can participate
//in Conversation.
if (
我设法使用这个站点让代码在我的个人邮箱上工作。
当应用于共享邮箱时,它不起作用。
它适用于个人邮箱从收件箱移动到名为Test的收件箱子文件夹。
在共享邮箱上,我需要从共享邮箱收件箱移到另一个名为Complete的文件夹。这是共享邮箱中的一个文件夹,不是子文件夹。
Sub MailmoveAP()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim msg As Outlook.MailIt
有几个我们正在使用的共享邮箱,并希望设置一个宏来检查其中一个邮箱是否已满90%,然后删除1000封最旧的电子邮件。 我已经找到了一个脚本,我已经成功修改,但它是检查电子邮件的年龄,而不是如果邮箱已满。 aged = 2
On Error Resume Next
Set outlookAPP = Outlook.Application
Set outlookNS = outlookAPP.GetNamespace("MAPI")
Set maliboxOwner_1 = outlookNS.CreateRecipient("shared@mailbox.address
我的目标是创建一个VBA脚本,当新的电子邮件到达共享邮箱并在标题包含特定文本时执行以下操作:
将消息移动到指定的子文件夹。
将所有Excel附件保存到桌面文件夹。
在进行了大量的研究之后,我想出了以下代码并粘贴到ThisOutlookSession中:
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim myOlApp As Outlook.Application
Dim myNms As Outlook.NameSpace
Dim myFolder As Outlo
我正在尝试将具有特定名称的文件附件从共享邮箱中的文件夹传输到计算机上的目录。
我的脚本如下:
#file path
$filepath = “c:\test”
$account = "sharedMailbox@company.com"
#date string to search for in attachment name
$date = Get-Date -Format yyyyMMdd
#set outlook to open
$o = New-Object -comobject outlook.application
$n = $o.GetNamespace(
可能重复: 有任何方法可以看出Outlook的客户端垃圾邮件筛选器为什么将邮件标记为垃圾邮件吗?
我的问题是:
Outlook 2007如何决定是否应该将电子邮件重定向到垃圾电子邮件文件夹?
背景故事:当我从我的域邮箱发送一个简单的HTML电子邮件时,它被重定向到垃圾电子邮件文件夹。
以下是两个子问题:
Outlook 2007是否关心发件人出站邮箱的反向PTR配置是否不正确?如果是的话,它如何检查?
Outlook 2007是否关心发送方不提供HTML内容的纯文本版本?
事实证明,我不是唯一一个对Outlook的垃圾算法感到好奇的人。请参见附加到这个答案的注释。