WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE with MSIE
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Automate Name Change in Yahoo Mail Account

 Keywords: Automate Name Change in Yahoo Mail Account MSIE Navigate Web Page getElementByID Iframe GetElementsByTagName

Question:

I am trying to change the Display name of a Yahoo account. Unfortunately I cannot get a handle to the appropriate fields.Once I login I can navigate to http://us.mc1202.mail.yahoo.com/mc/options but after that I get no controls. I need to click on Accounts - Yahoo Mail

Answer:

; Change the Display name of a Yahoo account.
; Goes to http://us.mc1202.mail.yahoo.com/mc/options then clicks on Accounts - Yahoo Mail


Yahoo_Login = "johndoe@yahoo.com"
Yahoo_Password = "blahblah"
File_PageCheck = "c:\temp\page_check.txt"

#DefineSubRoutine WaitForMSIE()
URL = msie.LocationURL
While msie.busy || msie.readystate <> 4
TimeDelay(0.5)
EndWhile
Return
#EndSubRoutine

msie = ObjectOpen("InternetExplorer.Application")
msie.Visible = @TRUE
msie.Navigate("http://mail.yahoo.com")
TimeDelay(0.2)
WaitForMSIE()
msie.Document.getElementByID("username").value= Yahoo_Login
msie.Document.getElementByID("passwd").value= Yahoo_Password
msie.Document.getElementByID("persistent").checked = 0
msie.Document.getElementById(".save").click
TimeDelay(0.5)
WaitForMSIE()
msie.Navigate("http://us.mc1202.mail.yahoo.com/mc/options")
TimeDelay(0.5)
WaitForMSIE()
GoSub Get_IframeLink
msie.Navigate(Iframe_Link)
TimeDelay(0.5)
WaitForMSIE()
GoSub Location_Navigate
TimeDelay(0.2)
msie.Document.getElementByID("acct_from_0").value= "New Name"
TimeDelay(0.5)
msie.Document.getElementByID("label_saveChangeButton").click
TimeDelay(0.5)
msie.Document.getElementByID("label_saveChangeButton").click ; just as a precaution

Exit

:Get_IframeLink
IframeCollection = msie.document.GetElementsByTagName("Iframe")
ForEach Iframe In IframeCollection
   FrameId= StrTrim(Iframe.getAttribute("id"))
   If FrameId == "mailoptions" Then
      Iframe_Link = Iframe.src
      Break
   EndIf
Next
Return

:Location_Navigate
LICollection = msie.document.GetElementsByTagName("LI")
ForEach LI In LICollection
   LI_style = LI.style.border
   bb = LI.getAttribute("id")
   If LI.getAttribute("id")=="category_4" Then
      LI.click
      TimeDelay(0.2)
   EndIf
   If LI.getAttribute("id")=="acct_0_li" Then
      TimeDelay(0.1)
      LI.click
      TimeDelay(0.2)
      ;break
   EndIf
Next
Return

Article ID:   W18125
Filename:   Automate name change in Yahoo Mail Account.txt
File Created: 2010:09:01:08:51:08
Last Updated: 2010:09:01:08:51:08