Private Sub cmdSenden_Click()
  Dim sURL As String
 
  Screen.MousePointer = 11
 
sURL = "http://modchip.mo.funpic.de/"
 
txtMessage.Text = "Hallo," & vbcrlf & "wie gehts?"
 
WebBrowser1.Navigate sURL & "EMAIL.php?" & _
"abs=" & txtFrom.Text & _
"&emp=" & txtTo.Text & _
"&betr=" & txtSubject.Text & _
"&msg=" & txtMessage.Text
End Sub
 
 
' Status abfragen
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
  Dim sContent As String
 
  ' Prüfung, ob die Mail verschickt wurde
  With WebBrowser1.Document.documentElement
    sContent = .outerHTML
  End With
 
  If InStr(sContent, "eMail wurde versand") > 0 Then
    MsgBox "Die eMail wurde erfolgreich verschickt.", _
      vbExclamation
 
  Else
    MsgBox "Ein Fehler ist beim Senden aufgetreten!" & _
      "Bitte überprüfen Sie die Internetverbindung", _
      vbCritical
 
  End If
  Screen.MousePointer = 0
End Sub

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell