Sending EMaill Using MicroSoft OutLook and More...


'MicroSoft Office Basic Operations
Function funcOutlookBasicOperations()

                'Create MicroSoft Outlook Object
                Set objMSOutLook = CreateObject("Outlook.Application")

                'GetNameSpace for MAPI
                Set objOutLookNameSpace = objMSOutLook.GetNamespace("MAPI")

                'Get Number of Folders
                intFoulderCount = objOutLookNameSpace.Folders.Count

                MsgBox "Number of Folders Available:  "& intFoulderCount

                'Displaying the Folders

                For i = 1   intFoulderCount

                                                intFoulderName = objOutLookNameSpace.Folders.Item(i)

                                                MsgBox "Folder Name: "& intFoulderName

                Next

                'Outlook Version
                strOutLookVersion = objMSOutLook.Version

                MsgBox "OutLook Vesion:                           "& strOutLookVersion

                'Logged In UserName
                strUserName = objOutLookNameSpace.CurrentUser

                MsgBox "Logged In UserName:                 "& strUserName

                'Quit OutLook
                objMSOutLook.Quit

                Set objOutLookNameSpace = Nothing
                Set objMSOutLook = Nothing

End Function

'Open Outlook with QTP
Function funcOpenOutlookWithQTP()

   'Verify MicroSoft OutLook Already Open
                   strComputer = "."
                Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
                Set objTaskManagerProcess = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'OutLook.exe'")

                If objTaskManagerProcess.Count <> 0 Then

                                MsgBox "MicroSoft OutLook Application Already Open"

                Else

                                'Create MicroSoft Outlook Object
                                Set objMSOutLook = CreateObject("Outlook.Application")
               
                                'GetNameSpace for MAPI
                                Set objOutLookNameSpace = objMSOutLook.GetNamespace("MAPI")

                                'Displaying Default Folder - Inbox
                                Set objInboxFolder = objOutLookNameSpace.GetDefaultFolder(6)
                                objInboxFolder.Display

        'Quit OutLook
                                objMSOutLook.Quit

                                Set objTaskManagerProcess = Nothing
                                Set objInboxFolder = Nothing
                                Set objMSOutLook = Nothing
               
                End If

End Function

'Display All Subfolder from Inbox Folder
Function funcDisplayAllInboxSubFolders()

                                'Create MicroSoft Outlook Object
                                Set objMSOutLook = CreateObject("Outlook.Application")
               
                                'GetNameSpace for MAPI
                                Set objOutLookNameSpace = objMSOutLook.GetNamespace("MAPI")

                                'Displaying Default Folder - Inbox
                                Set objInboxFolder = objOutLookNameSpace.GetDefaultFolder(6)

                                'Get Subfolder Count
                                intInboxSubFolderCount = objInboxFolder.Folders.Count

                                MsgBox "Total Number of Sub Folders from Inbox:          "& intInboxSubFolderCount

                                'Displaying Sub Folders
                                Set arrSubFolders = objInboxFolder.Folders

                                For i = 1 to intInboxSubFolderCount

                                                MsgBox "Sub Folder Name:                        " & arrSubFolders(i)

                                Next

                                'Quit OutLook
                                objMSOutLook.Quit

                                Set objOutLookNameSpace = Nothing
                                Set objInboxFolder = Nothing
                                Set arrSubFolders = Nothing
                                Set objMSOutLook = Nothing

End Function

'Add and Remove Folder to Inbox Default Folder
Function funcAddAndRemoveToInbox()

                                'Create MicroSoft Outlook Object
                                Set objMSOutLook = CreateObject("Outlook.Application")
               
                                'GetNameSpace for MAPI
                                Set objOutLookNameSpace = objMSOutLook.GetNamespace("MAPI")

                                'Displaying Default Folder - Inbox
                                Set objInboxFolder = objOutLookNameSpace.GetDefaultFolder(6)

                                'Add Folder
                                objInboxFolder.Folders.Add "TestingConnect"

                                'Deleting the Folder
                                'Get Subfolder Count
                                intInboxSubFolderCount = objInboxFolder.Folders.Count

                                MsgBox "Total Number of Sub Folders from Inbox:          "& intInboxSubFolderCount

                                'Displaying Sub Folders
                                Set arrSubFolders = objInboxFolder.Folders

                                For i = 1 to intInboxSubFolderCount

                                                MsgBox "Sub Folder Name:                        " & arrSubFolders(i)

                                                'Deleting the Folder
                                                If arrSubFolders(i).Name = "TestingConnect" Then

                                                                arrSubFolders(i).Delete

                                                End If

                                Next

                                'Quit OutLook
                                objMSOutLook.Quit

                                Set objOutLookNameSpace = Nothing
                                Set objInboxFolder = Nothing
                                Set arrSubFolders = Nothing
                                Set objMSOutLook = Nothing

End Function

'Send an EMail Using OutLook Object in QTP
Function funcSendAnEMailFromYourOutLook()
                 
                                'Create MicroSoft Outlook Object
                                Set objMSOutLook = CreateObject("Outlook.Application")
               
                                'GetNameSpace for MAPI
                                Set objOutLookNameSpace = objMSOutLook.GetNamespace("MAPI")

                                'Displaying Default Folder - Inbox
                                Set objInboxFolder = objOutLookNameSpace.GetDefaultFolder(6)
                                objInboxFolder.Display

                                'Open New Mail
                                Set objEMail = objMSOutLook.CreateItem(0)

                                'Setting up Different Fields for Your EMail to be Send
                                objEMail.To = "SoftwareTesting.Connect@gmail.com"
                                objEMail.CC = "SoftwareTesting.Connect@gmail.com"
                                objEMail.BCC = "SoftwareTesting.Connect@gmail.com"
                                objEMail.Subject = "Sending an EMail using Outlook Object in QTP"
                                objEMail.Body = "Sending an EMail using Outlook Object in QTP"
                                objEMail.Attachments.Add("C:\Sample.txt")

                                'Send Email
                                objEMail.Send
                                Wait 20

                                'Quit OutLook
                                objMSOutLook.Quit

                                Set objEMail = Nothing
                                Set objMSOutLook = Nothing

End Function

'Send an EMail Using GMail Object in QTP
Function funcSendAnEMailFromGmail()
                 
                                'Create MicroSoft Outlook Object
                                Set objGMail = CreateObject("CDO.Message")
               
                                'Enable SSL Authentication
                                objGMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

                                'Enable basic smtp authentication
                                objGMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

                                'Specify SMTP server and port
                                objGMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com"
                                objGMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
                                objGMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

                                'Specify user id and password
                                objGMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "balaraju.s@gmail.com"
                                objGMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sdfasd"

                                'Update the configuration fields
                                objGMail.Configuration.Fields.Update

                                'Setting up Different Fields for Your EMail to be Send
                                objGMail.To = "bala.sangaraju@gmail.com"
                                objGMail.From = "balaraju.s@gmail.com"
                                objGMail.CC = "SoftwareTesting.Connect@gmail.com"
                                objGMail.BCC = "SoftwareTesting.Connect@gmail.com"
                                objGMail.Subject = "Sending an EMail using Outlook Object in QTP"
                                objGMail.TextBody = "Sending an EMail using Outlook Object in QTP"

                                objGMail.AddAttachment "C:\Sample.txt"

                                'Send Email
                                objGMail.Send
                                Wait 20

                Set objGMail = Nothing
               
End Function

'Send an EMail Using YahooMail Object in QTP
Function funcSendAnEMailFromYahooMail()
                 
                                'Create MicroSoft Outlook Object
                                Set objYahooMail = CreateObject("CDO.Message")
               
                                'Enable SSL Authentication
                                objYahooMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

                                'Enable basic smtp authentication
                                objYahooMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

                                'Specify SMTP server and port
                                objYahooMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.yahoo.com"
                                objYahooMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
                                objYahooMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

                                'Specify user id and password
                                objYahooMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "balaraju.s@Yahoo.com"
                                objYahooMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sdfasd"

                                'Update the configuration fields
                                objYahooMail.Configuration.Fields.Update

                                'Setting up Different Fields for Your EMail to be Send
                                objYahooMail.To = "bala.sangaraju@Yahoo.com"
                                objYahooMail.From = "balaraju.s@Yahoo.com"
                                objYahooMail.CC = "SoftwareTesting.Connect@gmail.com"
                                objYahooMail.BCC = "SoftwareTesting.Connect@gmail.com"
                                objYahooMail.Subject = "Sending an EMail using Outlook Object in QTP"
                                objYahooMail.TextBody = "Sending an EMail using Outlook Object in QTP"

                                objYahooMail.AddAttachment "C:\Sample.txt"

                                'Send Email
                                objYahooMail.Send
                                Wait 20

                Set objYahooMail = Nothing
               
End Function