WScript.Quit Main

Function Main
  Set objShell = WScript.CreateObject("WScript.Shell")
  Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
  IE.Visible = True
  objShell.AppActivate IE
  Resolution = Screen_Resolution()
  Width =  Resolution(0)
  Hight=  Resolution(1)
  IE.Top = 0
  IE.Left = 300
  IE.Width = 1000
  IE.Height = 1170
  IE.Visible = 1
  IE.AddressBar = 0
  IE.Navigate "https://mail.google.com/mail/u/0/?view=cm&fs=1"
'&to=someone@example.com&su=МАКЕТ&body=BODY LINE1%0aBODY LINE2&bcc=someone.else@example.com&tf=1
  Wait IE
  With IE.Document
    .getElementByID(":om").value = "" 'Кому
    .getElementByID(":p1").value = "" 'ТЕМА
    '.getElementByID("gaia_loginform").submit
'    .getElementsByClassName("a1 aaA aMZ").value = "D:\data.txt"
'    .getElementById(":oi").value = "D:\data.txt"
'    .getElementsByClassName("a1 aaA aMZ")(0).submit()


  End With
End Function

Sub Wait(IE)
  Do
    WScript.Sleep 500
  Loop While IE.ReadyState < 4 And IE.Busy
  Do
    WScript.Sleep 500
  Loop While IE.ReadyState < 4 And IE.Busy
End Sub

Sub IE_OnQuit
  On Error Resume Next
  WScript.StdErr.WriteLine "IE closed before script finished."
  WScript.Quit
End Sub

Function Screen_Resolution()
Dim MyArray(1)
    Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0)
    For Each objItem in colItems
        intHorizontal = objItem.ScreenWidth
        intVertical = objItem.ScreenHeight
    Next
MyArray(0) = intHorizontal
MyArray(1) = intVertical
Screen_Resolution = MyArray

End Function