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 |
