非常适用的Exchange 2007 Web Services

yao000

　　非常适用的Exchange 2007 Web Services,最近的项目中为了使用短信网关提供邮件短信提醒先，打开    VS2008 -> "Add Web Reference" -> ???? ,那个是Exchange2007的Service,我的是90天试用版本的Pro，直接输入：http://mailsrv 提示验证失败，找不到任何东西，烦了半天，还以为VS装坏了，在mailsrv的IIS里头发现了：
   http(s)://MyServer/ews/services.wsdl
   http(s)://MyServer/EWS/exchange.asmx?wsdl
嘿嘿，找到了，后面的地址最后都会跳到/ews/services.wsdl,这份契约里会列出所有的实用方法，读写邮件，日历，约会，会议等等，这下好办了，取出Inbox里头最新的未读邮件，顺便到AD里头把电话号码捞过来，再顺便给短信猫的代理：
CMS.dll ,OK,手机呼拉呼拉，收到邮件提醒，内容大致为邮件标题和发送时间和重要性！你不习惯邮件也不行啊，流程催办，否则年终不发奖金，最后都习惯用Email了，我们的生意又来了。。。。。
    顺便看看我最初的版本，很烂很适用：  

....
ExchangeServiceBinding exchangeServer = new ExchangeServiceBinding();
        ICredentials creds = new NetworkCredential("pccai", "password", "abc");

        exchangeServer.Credentials = creds;
        exchangeServer.Url = @"https://mailsrv/ews/exchange.asmx";

        DistinguishedFolderIdType[] folderIDArray = new DistinguishedFolderIdType[1];
        folderIDArray[0] = new DistinguishedFolderIdType();
        folderIDArray[0].Id = DistinguishedFolderIdNameType.inbox;

        PathToUnindexedFieldType ptuftDisplayName = new PathToUnindexedFieldType();
        ptuftDisplayName.FieldURI = UnindexedFieldURIType.folderDisplayName;

        PathToExtendedFieldType pteftComment = new PathToExtendedFieldType();
        pteftComment.PropertyTag = "0x3004"; // PR_COMMENT
        pteftComment.PropertyType = MapiPropertyTypeType.String;

        GetFolderType myfoldertype = new GetFolderType();
        myfoldertype.FolderIds = folderIDArray;
        myfoldertype.FolderShape = new FolderResponseShapeType();
        myfoldertype.FolderShape.BaseShape = DefaultShapeNamesType.IdOnly;
        myfoldertype.FolderShape.AdditionalProperties = new BasePathToElementType[2];
        myfoldertype.FolderShape.AdditionalProperties[0] = ptuftDisplayName;
        myfoldertype.FolderShape.AdditionalProperties[1] = pteftComment;

        GetFolderResponseType myFolder = exchangeServer.GetFolder(myfoldertype);

        FolderInfoResponseMessageType firmtInbox =
            (FolderInfoResponseMessageType)myFolder.ResponseMessages.Items[0];

//Response.Write(string.Format("got folder: {0}", firmtInbox.Folders[0].DisplayName));

//if (null != firmtInbox.Folders[0].ExtendedProperty)
//{
//     Response.Write(string.Format("Comment: {0}", firmtInbox.Folders[0].ExtendedProperty[0].Item.ToString()));
//}
//else
//{
//     Response.Write("Comment: not found");
//}

        PathToUnindexedFieldType ptuftSubject = new PathToUnindexedFieldType();
        ptuftSubject.FieldURI = UnindexedFieldURIType.itemSubject;

        PathToUnindexedFieldType ptuftBody= new PathToUnindexedFieldType();
        ptuftBody.FieldURI = UnindexedFieldURIType.itemAttachments;

        PathToExtendedFieldType pteftFlagStatus = new PathToExtendedFieldType();
        pteftFlagStatus.PropertyTag = "0x1090"; // PR_FLAG_STATUS
        pteftFlagStatus.PropertyType = MapiPropertyTypeType.Integer;

        FindItemType findItemRequest = new FindItemType();
        findItemRequest.Traversal = ItemQueryTraversalType.Shallow;
        findItemRequest.ItemShape = new ItemResponseShapeType();
        findItemRequest.ItemShape.BaseShape = DefaultShapeNamesType.AllProperties;

//findItemRequest.ItemShape.AdditionalProperties = new BasePathToElementType[2];
//findItemRequest.ItemShape.AdditionalProperties[0] = ptuftSubject;
//findItemRequest.ItemShape.AdditionalProperties[1] = pteftFlagStatus;
/**/////findItemRequest.ItemShape.AdditionalProperties[2] = ptuftBody;

        findItemRequest.ParentFolderIds = new FolderIdType[1];
        findItemRequest.ParentFolderIds[0] = firmtInbox.Folders[0].FolderId;

        FindItemResponseType firt = exchangeServer.FindItem(findItemRequest);

foreach (FindItemResponseMessageType firmtMessage in firt.ResponseMessages.Items)
{
if (firmtMessage.RootFolder.TotalItemsInView > 0)
{
foreach (ItemType it in ((ArrayOfRealItemsType)firmtMessage.RootFolder.Item).Items)
{
                     Response.Write(string.Format("标题: {0} <br>", it.Subject));
                     Response.Write(string.Format("发件人: {0} <br>", ((cn.cwe.mail.MessageType)(it)).From.Item.Name));
                     Response.Write(string.Format("收件人: {0} <br>", it.DisplayTo));
                     Response.Write(string.Format("抄送人: {0} <br>", it.DisplayCc));
                     Response.Write(string.Format("大小: {0} <br>", it.Size.ToString()));
                     Response.Write(string.Format("重要性: {0} <br>", it.Importance.ToString()));
                     Response.Write(string.Format("是否已读: {0} <br>", ((cn.cwe.mail.MessageType)(it)).IsRead.ToString()));
                     Response.Write(string.Format("附件: {0} <br>", it.HasAttachments.ToString()));
                     Response.Write(string.Format("接收时间: {0} <br>", it.DateTimeReceived.ToString()));
if (it.Body != null)
{
                         Response.Write(string.Format("正文: {0} <br>", it.Body.Value));
                     }

if (null != it.ExtendedProperty)
{
                         Response.Write(string.Format("Prop 0x1090: {0}\n\n", it.ExtendedProperty[0].Item.ToString()));
                    }
else
{
                         Response.Write(string.Format("Prop 0x1090: not found"));
                    }
                }
            }

　　比起 Exchange2003那复杂的Exchange-SQL ，这个版本的Services规范多了，比如：
   findItemRequest.ItemShape.BaseShape = DefaultShapeNamesType.AllProperties;
给一个准备查询动作做限制，也可以是OnlyId,Default,我们只取我们想要的数据，类似 Select * from XXX的问题，这里不细细提出，同时还有：
        PathToUnindexedFieldType ptuftSubject = new PathToUnindexedFieldType();
        ptuftSubject.FieldURI = UnindexedFieldURIType.itemSubject;
不同的Path,不同的&#8220;字段&#8221;，太妙了 .....
   最后想题下那个短信猫代理dll,好几百RMB，不知有没有绿色版本的！当然了上面的做法其实用2007的POP3协议可以不用代码的，但如果想在MOSS的webpart中取出展示还是方便些。。。。。