QTP Script For Composing Mail in Yahoo

SystemUtil.Run "iexplore","www.yahoo.com"
Set b= Browser("Name:=yahoo.*").Page("Title:=Yahoo.*")
b.Link("Name:=Sign In").Click
b.WebEdit("Name:=Login").set "abc"
b.WebEdit("Name:=Passwd").set "def"
b.WebButton("Name:=Sign In").Click
b.Link("Name:=Mail").Click
b.Webtable("Name:=Check Mail").WebButton("Name:=Compose").Click
b.WebEdit("Name:=To").Click
b.WebEdit("Name:=To").Set"xyz@gmail.com"
b.WebEdit("Name:=Subj").Set"helloooo"
b.WebEdit("Name:=BODY").Set"See This Message"

Descriptive Programming(QTP Script) for Yahoo Login Page