Advertisement
Guest User

Untitled

a guest
Aug 23rd, 2014
250
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.67 KB | None | 0 0
  1. Private Sub connect_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles connect.DocumentCompleted
  2. Try
  3. connect.Document.GetElementById("subject").SetAttribute("value", Form1.subject.Text)
  4. connect.Document.GetElementById("body").SetAttribute("value", Form1.enter.Text) ' This is the line I'm having issues with
  5. connect.Document.GetElementById("send-btn").InvokeMember("click")
  6. Catch ex As Exception
  7. MsgBox(ErrorToString())
  8. End Try
  9. End Sub
  10. End Class
  11.  
  12. <textarea rows="2" cols="20" id="body" class="messages-reply-box text-box text" style="padding:5px;width:675px;"></textarea>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement