mail automatique quand bug vba

Bonjour,

Il m'arrive souvent de lancer de très lourds programmes, puis de partir sur un autre ordinateur en attendant. Le problème est que parfois, au milieu, ces programmes ne sont pas corrects, et la macro s'arrête alors que je ne suis pas là pour voir le problème.

Savez-vous s'il y a un moyen qu'automatiquement quand on a un bug vba qu'outlook nous envoie un mail pour nous prévenir (pour qu'on puisse revenir et le corriger, au lieu d'attendre bêtement que le programme continue à marcher) ?

Merci d'avance,
Novice_vba

Tout à fait:

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
sub tonprogramme()
On error goto envoimail
'toncode
Exit sub
envoimail:
Call envoyermail
End sub
 
Sub envoyermail()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
 
    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "***@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "***"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With
 
    strbody = "Bonjour" & vbNewLine & vbNewLine & _
              "Le programme a foiré" & vbNewLine & _
              "Désolé," & vbNewLine & _
              "Pepito"
 
    With iMsg
        Set .Configuration = iConf
        .To = "***@gmail.com"
        .CC = ""
        .BCC = ""
        ' Note: The reply address is not working if you use this Gmail example
        ' It will use your Gmail address automatic. But you can add this line
        ' to change the reply address  .ReplyTo = "Reply@something.nl"
        .From = """Pepito"" <***@gmail.com>"
        .Subject = "Le programme a beugé à " & Now
        .TextBody = strbody
        .Send
    End With
 
End Sub

Merci, ça va me faire gagner du temps :)