非常适用的Exchange 2007 Web Services

   非常适用的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,不同的“字段”，太妙了 .....

   最後想題下那個短信貓代理dll,好幾百RMB，不知有沒有綠色版本的！當然了上面的做法其實用2007的POP3協定可以不用代碼的，但如果想在MOSS的webpart中取出展示還是友善些。。。。。