i want to send message to all in last1
i have last1 have Names and i have 3 Text 1 Label1
Text1 for "name"
Text2 for "title"
Text3 for "message"
i want code
like this
i have last1 have Names and i have 3 Text 1 Label1
Text1 for "name"
Text2 for "title"
Text3 for "message"
i want code
like this
Code:
WebBrowser1.Document.All("recp").Value = Form1.Text1.Text
WebBrowser1.Document.All("msg[subject]").Value = Form1.Text2.Text
WebBrowser1.Document.All("_msg").Value = Form1.Text3.Text
WebBrowser1.Document.Forms(0).elements(7).Click
Private Sub Timer1_Timer()
Dim idoc As HTMLDocument
Dim Element As HTMLLabelElement
Set idoc = WebBrowser1.Document
For Each Element In idoc.All
If Element.tagName = "HEAD" Then Label1 = Element.innerText
Next
If Label1 = "Done" Then
' send message to the next one on last1
End If
End Sub