1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Option Explicit
On Error Resume Next
Dim objWinHttp, strURL
strURL = "C:/wamp/www/TraitementXML.php"
Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "GET", strURL
objWinHttp.Send
If objWinHttp.Status <> 200 Then
Err.Raise 1, "HttpRequester", "Invalid HTTP Response Code"
End If
Set objWinHttp = Nothing
If Err.Number <> 0 Then
Dim objMessage
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.To = "monadresse@hotmail.com"
objMessage.From = "monadresse@hotmail.com"
objMessage.Subject = "An Error Has Occurred in a " _
& "Scheduled Task"
objMessage.TextBody = "Error #: " & Err.Number & vbCrLf _
& "From: " & Err.Source & vbCrLf _
& "Desc: " & Err.Description & vbCrLf _
& "Time: " & Now()
objMessage.Send
Set objMessage = Nothing
End If |
Partager