【seagull1985-QTP】利用outlook进行邮件发送并添加附件

seagull1985

利用outlook进行邮件发送并添加附件

1. '==========================================================================
   
2. ' NAME: mail
   
3. ' AUTHOR: heyl  
   
4. ' DATE  : 2013-03-13
   
5. ' Last Update :2013-07-24
   
6. ' COMMENT:  
   
7. '==========================================================================
   
8. Class MailEngine
   
9. 
   
10.         Public objOutlook
    
11.         Public objOutlookMsg
    
12.         Public olMailItem
    
13.        
    
14.         Private Sub Class_Initialize   
    
15.         ' Create the Outlook object and the new mail object.
    
16.         Set objOutlook = CreateObject("Outlook.Application")
    
17.         Set objOutlookMsg = objOutlook.CreateItem(olMailItem)   
    
18.         End Sub
    
19.        
    
20.         Private Sub Class_Terminate       
    
21.         ' Release the objects
    
22.         Set objOutlook = Nothing
    
23.         Set objOutlookMsg = Nothing
    
24.         Set olMailItem = Nothing       
    
25.         End Sub
    
26.                
    
27.         Public Function AttachmentExist(filepath)
    
28.            Dim fso
    
29.        Set fso = CreateObject("Scripting.FileSystemObject")
    
30.            AttachmentExist = fso.FileExists(filepath)
    
31.            Set fso = nothing
    
32.         end Function
    
33.        
    
34.         Public Function SendMail(str_subject,str_body,str_to,str_cc)
    
35.                 objOutlookMsg.To = str_to
    
36.         objOutlookMsg.CC = str_cc
    
37.                 objOutlookMsg.Subject = str_subject
    
38.         objOutlookMsg.Body = str_body
    
39.            Dim str_attachment
    
40.            '添加附件路径
    
41.            str_attachment = str_Test_Path&"Report\"&GetTestName&"\Result.xls"
    
42.            path_attachment = str_Test_Path&"Report\"&GetTestName
    
43.                 If AttachmentExist(str_attachment) Then
    
44.                  'Create FileSystemObject
    
45.                   Set MyFileObject = CreateObject("Scripting.FileSystemObject")   
    
46.                   'Create Folder object,get attachment count
    
47.                   Set MyFolder = MyFileObject.GetFolder(path_attachment)
    
48.                   For Each thing in MyFolder.Files
    
49.                     thing = Cstr(thing)
    
50.                         'ADD other Attachments
    
51.                         If ".xls" <> Right(thing,4) Then
    
52.                     objOutlookMsg.Attachments.add(thing)
    
53.                         End If
    
54.                   Next
    
55.                   'ADD xls Attachments
    
56.                   objOutlookMsg.Attachments.add(str_attachment)
    
57.         End If
    
58.         'Display the email
    
59.         objOutlookMsg.Display
    
60.         ' Send the message
    
61.         objOutlookMsg.Send      
    
62.      end Function
    
63.        
    
64. End Class
    
65. 
    
66. 'Set oMailEngne = new  MailEngine
    
67. 'Call oMailEngne.SendMail("自动化测试结果通知邮件标题","自动化测试结果通知邮件内容","XXX@qq.com","")
    

复制代码

lsekfe

支持分享~

赵佳乐SMILE

赞一个