// Newbie Script that sends a SMS Text message to
// a AT&T cell phone number

// Availability: Newbie Web Automation 2.0

program Weather_Com;

const
  cPhoneNum = '773480XXXX';

procedure OnDocumentComplete(URL : string);
begin
  if IsPartOf('http://www.mymmode.com/messagecenter/init#', URL) then
    begin
      Fill('recipient', cPhoneNum);
      Fill('sender', 'info@newbielabs.com');
      Fill('subject', 'Hello!');
      FillTextArea('message', 'This is a sample text message.');
      ExecuteWebScript('javascript: checkForSubmit();', 'javascript');
    end;
end;

begin
  Navigate('http://www.mymmode.com/messagecenter/init#');
end.