空间管理您的位置: 51Testing软件测试网 » duoluohua的个人空间 » 日志

QuickTest查找邮件，获取内容或标题

上一篇 / 下一篇 2010-09-26 16:15:34 / 个人分类：QTP

以前说过，这种操作源于office的COM接口，函数参考msdn就可以了。函数返回不太好，我认为用参数返回更好，函数返回正确或错误值代码就行。

Function getMailContent(strFolderWithinInbox, strSenderName, nMinuteBefore)
   'nMinuteBefore, mail received time more than nMinuteBefore minutes before Now, not be a target.
   'Create or get outlook instance.
   Set appOutlook = CreateObject("Outlook.Application")
   Set myFolder = appOutlook.GetNamespace("MAPI").GetDefaultFolder(6)

   'Set your sub folder when you need, i.e. "working" in your Inbox.
   If Len(strFolderWithinInbox) <> 0 Then
       Set myNewFolder = myFolder.Folders(strFolderWithinInbox)
       Set myItems = myNewFolder.Items
   Else
       Set myItems = myFolder.Items
   End If

   'If no letter found, exit action.
   If myItems.count = 0 Then ExitAction(0)

   'Iterate the items.
   Set myItem = myItems.GetFirst
   Dim i, bFound, strLetterBody, strLetterSubject, mailTime
   strLetterBody = ""
   bFound = False
   Do While Typename(myItem) <> "Nothing"
       'oShell.Popup "Item #" & i & ":" & myItem.Subject, 2, "hello"
       If (myItem.SenderName = strSenderName) Then
           mailTime = myItem.ReceivedTime
           If (DateDiff("n", Now, mailTime) < nMinuteBefore) Then
               strLetterBody = myItem.Body
               strLetterSubject = myItem.Subject
               Exit Do
           End If
       End If
       Set myItem = myItems.GetNext
   Loop

   getMailContent = strLetterBody

'Clear resource.
   Set itm = Nothing
   Set myFolder = Nothing
   Set appOutlook = Nothing
   Set Shell = Nothing
End Function

收藏举报

TAG:

查看全部评论