使用Exchange Web Service 2010查找所有未读电子邮件，然后标记为已读
本文关键字：电子邮件 然后 记为 Web Exchange Service 2010 查找 使用 | 更新日期: 2023-09-27 18:17:59
我正在使用exchange Web Services 2010尝试从邮箱中读取所有未读邮件，然后将它们标记为已读。
我基于这个例子:
http://msdn.microsoft.com/en-us/library/exchange/aa563373 (v = exchg.140) . aspx
并且想出了这个来查找所有未读邮件，并阅读正文内容:
//Set up the connection to exchange service
ExchangeServiceBinding exchangeService = new ExchangeServiceBinding();
exchangeService.Credentials = new NetworkCredential("userid", "password", "domain");
exchangeService.Url = "https://exchangeserver/ews/exchange.asmx";
//REturn all properties
FindItemType findType = new FindItemType();
findType.Traversal = ItemQueryTraversalType.Shallow;
findType.ItemShape = new ItemResponseShapeType();
findType.ItemShape.BaseShape = DefaultShapeNamesType.AllProperties;
//Only search the inbox
DistinguishedFolderIdType[] foldersToSearch = new DistinguishedFolderIdType[1];
foldersToSearch[0] = new DistinguishedFolderIdType();
foldersToSearch[0].Id = DistinguishedFolderIdNameType.inbox;
findType.ParentFolderIds = foldersToSearch;
//Only unread emails
RestrictionType restriction = new RestrictionType();
IsEqualToType isEqualTo = new IsEqualToType();
PathToUnindexedFieldType pathToFieldType = new PathToUnindexedFieldType();
pathToFieldType.FieldURI = UnindexedFieldURIType.messageIsRead;
//Not IsRead
FieldURIOrConstantType constantType = new FieldURIOrConstantType();
ConstantValueType constantValueType = new ConstantValueType();
constantValueType.Value = "0";
constantType.Item = constantValueType;
isEqualTo.Item = pathToFieldType;
isEqualTo.FieldURIOrConstant = constantType;
restriction.Item = isEqualTo;
//set the not IsRead restriction
findType.Restriction = restriction;
try
{
FindItemResponseType findResponse = exchangeService.FindItem(findType);
ResponseMessageType[] responseMessType = findResponse.ResponseMessages.Items;
List<ItemIdType> unreadItemIds = new List<ItemIdType>();
//get all unread item IDs
foreach (ResponseMessageType respMessage in responseMessType)
{
if(respMessage is FindItemResponseMessageType)
{
FindItemResponseMessageType itemResponse = (FindItemResponseMessageType)respMessage;
if (itemResponse.ResponseClass == ResponseClassType.Success)
{
if (itemResponse.RootFolder.Item != null)
{
if (itemResponse.RootFolder.Item is ArrayOfRealItemsType)
{
ArrayOfRealItemsType items = (ArrayOfRealItemsType)itemResponse.RootFolder.Item;
if (items.Items != null)
{
ItemType[] itemTypes = items.Items;
foreach (ItemType item in itemTypes)
{
if (item is MessageType)
{
unreadItemIds.Add(item.ItemId);
}
}
}
}
}
}
}
}
if (unreadItemIds.Count == 0)
MessageBox.Show("No unread emails found");
else
{
//Get all unread mail messages, display body
GetItemType getItemType = new GetItemType();
getItemType.ItemShape = new ItemResponseShapeType();
getItemType.ItemShape.BaseShape = DefaultShapeNamesType.AllProperties;
getItemType.ItemShape.BodyType = BodyTypeResponseType.Text;
getItemType.ItemShape.BodyTypeSpecified = true;
getItemType.ItemIds = unreadItemIds.ToArray();
GetItemResponseType getItemResponse = exchangeService.GetItem(getItemType);
if(getItemResponse.ResponseMessages != null)
{
ArrayOfResponseMessagesType responseMessages = getItemResponse.ResponseMessages;
foreach(ResponseMessageType responseMessage in responseMessages.Items)
{
if (responseMessage is ItemInfoResponseMessageType)
{
ItemInfoResponseMessageType responseItemInfo = (ItemInfoResponseMessageType)responseMessage;
if (responseItemInfo.Items != null)
{
ArrayOfRealItemsType responseRealItems = (ArrayOfRealItemsType)responseItemInfo.Items;
if (responseRealItems.Items != null)
{
foreach (ItemType responseItemType in responseRealItems.Items)
{
if (responseItemType is MessageType)
{
MessageType fullMessage = (MessageType)responseItemType;
BodyType body = fullMessage.Body;
if (body != null)
{
MessageBox.Show(body.Value);
}
}
}
}
}
}
}
}
}
}
catch(Exception ee)
{
MessageBox.Show(ee.Message +" " + (ee.InnerException ?? new Exception("")).Message);
}
返回所有未读邮件正文的文本版本，但是一定有更有效的方法，不是吗?
有人知道我如何更新电子邮件MessageType s作为阅读并将其发送回服务器吗?
使用EWS v1将MessageType标记为已读并不是一种好方法。如果您还在使用EWS v1，请参阅这篇MSDN博客文章，了解解决方法。
EWS v2引入了IsRead属性为writable (message.IsRead = true; message.Update();)，这使得它变得微不足道。您可以在Exchange 2007及以上版本中使用EWS v2托管API，但这需要单独安装。有关更多信息，请参阅EWS Managed API 2.0的MSDN页面。
我带来了另一个答案元素，以帮助那些陷入同样陷阱的人，以及那些使用EWS 2.0的人:
我在循环中使用Item类型来获取邮箱中的邮件。Item对象没有IsRead属性(但类似于EmailMessage对象)。所以你可以在循环中用EmailMessage类型替换Item类型(因为从Item到EmailMessage类型的强制转换是允许的):
foreach (EmailMessage message in findResults.Items)
{
if(message.IsRead==false) //if the current message is unread
{
//treatment
}
else
{
}
}
我就是这样让它工作的
For Each appointment As EmailMessage In service.FindItems(WellKnownFolderName.Inbox, New SearchFilter.SearchFilterCollection(LogicalOperator.And, New SearchFilter.IsEqualTo(EmailMessageSchema.IsRead, False)), New ItemView(999))
' set as read
appointment.IsRead = True
appointment.Update(ConflictResolutionMode.AlwaysOverwrite)
Next