Vérifier connection réseau ou confirmation mail envoyé

Option Explicit

Public Declare Function RecupTitre Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function EnumFenetres Lib "user32" Alias "EnumWindows" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long


Dim Etat As String


Sub test()
Dim lResult As Long

'Test  si connexion 
If TestDeConnexion Then
    MsgBox "Vous étes connecté", vbInformation
Else
    MsgBox "Vous n'étes pas connecté", vbInformation
End If

'Test si Outlook Express Actif
lResult = EnumFenetres(AddressOf Outlook_Express, 0&)
MsgBox Etat

End Sub


'Test  connexion 
Function TestDeConnexion() As Boolean

     TestDeConnexion = InternetGetConnectedState(0&, 0&)

End Function



Public Function Outlook_Express(ByVal hWnd As Long, ByVal lgParam As Long) As Long
Dim Buffer As String
Dim Result As Long

Buffer = Space(255)
Result = RecupTitre(hWnd, Buffer, 255)

If Left(Buffer, 1) <> Chr(0) Then
    If InStr(Trim(Buffer), "Outlook Express") <> 0 Then
        Etat = "Outlook Express est Actif !"
        Exit Function
    End If
End If

Outlook_Express = 1
Etat = "Outlook Express est Inactif !"
End Function

Private Declare Function InternetGetConnectedState Lib "wininet" _
        (ByRef dwflags As Long, ByVal dwReserved As Long) As Long


Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20

Private Function TestOnOffLine() As String

   Dim dwflags As Long
   Dim Info As String
   
   'Si connection OK
   If InternetGetConnectedState(dwflags, 0&) Then
      ' Test Si Travail Hors connection
      If dwflags And INTERNET_CONNECTION_OFFLINE Then
         Info = "OFF Line. "
         Else
         Info = "ON Line. "
      End If
   Else
   'Sinon
   Info = "Non connecté à l'Internet pour le moment."
   End If
   TestOnOffLine = Info

End Function


Sub Test_Online()
MsgBox TestOnOffLine
End Sub

'Code d'envoi Mail
...
  On Error GoTo erreur 
  .send
...

goto fin

erreur: 
MsgBox "Erreur contactez votre administrateur"

fin: