Private Sub Command1_Click()
  Dim sURL As String
 
  Screen.MousePointer = 11
 
  ' Übergabe der Daten an das PHP-Script
  ' URL ggf. anpassen!
  sURL = "http://free.pages.at/janschoeppach/"
 
  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