Qtp Script to download attachments from outlook emails-VB Script to download attachments from outlook emails

Qtp Script to download attachments from outlook emails

Set a = CreateObject("Outlook.Application")

Set b = a.GetNameSpace("MAPI")

Set c = b.GetDefaultFolder(6)

For each item in C.Items

if item.unread then

For each att in item.attachments

FileName="C:\Email Attachments\" &att.FileName

att.saveasfile FileName

Next

End if

Next

QTP Script to read mails from inbox of outlook application-VB Script to read mails from inbox of outlook application

QTP Script to read mails from inbox of outlook application

Set a = CreateObject("Outlook.Application")

Set b = a.GetNameSpace("MAPI")

Set c = b.GetDefaultFolder(6)

For each item in C.Items

if item.unread then

msgbox item.body

End if

Next

QTP Script to get count of number of junk emails in outlook application-VB Script to get count of number of junk emails in outlook application

QTP Script to get count of number of junk emails in outlook application

Set a = CreateObject("Outlook.Application")

Set b = a.GetNameSpace("MAPI")

Set c = b.GetDefaultFolder(23)

Msgbox(C.Items.Count)

Qtp Script to add an image to Ms Word Document-Qtp Script to insert an image into MS Word Document

Qtp Script to insert an image into MS Word Document

Set a = CreateObject("Word.Application")

a.Visible = True

Set b = a.Documents.Open("C:\qtp.doc")

Set c = b.Shapes

c.AddPicture("C:\image1.JPG")