Dim objIE
Dim objDoc
Dim objForm

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Silent = False
objIE.Navigate("http://www.spb.mts.ru/sendform_sms.htm")
While objIE.ReadyState < 4
Wend
Set objDoc = objIE.Document
Set objForm= objDoc.Forms(0)
objForm.elements("To").value = "7910..........."
objForm.elements("Msg").value = "Сообщение"
objForm.submit()
Set objForm = Nothing
Set objDoc = Nothing
Set objIE = Nothing

objForm.elements("To").value = "7910..........." ругается на эту строчку ......пишет требуется объект elements

http://www.spb.mts.ru
а есть формы отправки SMS из москвы ???