Test connexion internet par VB6.0

Test connexion internet par VB6.0 - VB/VBA/VBS - Programmation

Marsh Posté le 26-06-2008 à 14:16:17    

Bonjour,
J'ai un programme qui envoi des emails via une application VB6.0,mon problème est quand j'envoi l'email et j'ai pas de connexion internet un message d'erreur m'apparait (il contient le code d'eereur),je veux quand il trouve pas la connexion il m'affiche un msgbox "Vérifier votre connexion" au lieu du message d'erreur.Voilà la fonction :
 
Dim cdo_msg As Object
Set cdo_msg = CreateObject("CDO.Message" )
cdo_msg.Subject = Text1.Text
cdo_msg.From = Text2.Text
If Len(Text3.Text) > 0 Then cdo_msg.To = Text3.Text
If Len(Text4.Text) > 0 Then cdo_msg.Cc = Text4.Text
If Len(Text5.Text) > 0 Then cdo_msg.Bcc = Text5.Text
If Len(Text6.Text) > 0 Then
    cdo_msg.AddAttachment Text6.Text
End If
cdo_msg.TextBody = Text7.Text
cdo_msg.Send
Set cdo_msg = Nothing
 
cette fonction marche à 100%,sauf s'il trouve pas la connexion il te retourne un msg d'erreur.
Si qlq'un a des idées n'hésitez pas à me les envoyer
Merci d'avance
 
Cordialement
ERR.M
 

Reply

Marsh Posté le 26-06-2008 à 14:16:17   

Reply

Marsh Posté le 26-06-2008 à 15:07:56    

Salam, trouvé via Gog sur http://www.codyx.org/snippet_conne [...] 0.aspx#319 , à toi de la tester


Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long  
 
Private Function IsConnected() As Boolean  
    On Local Error GoTo Err_Handler  
    IsConnected = Not CBool(InetIsOffline(0& ))  
    Exit Function  
Err_Handler:  
    IsConnected = False  
End Function
 
Sub Tst()
    If IsConnected Then
        ......
    Else
        MsgBox ...
    End If
End Sub


Message édité par kiki29 le 26-06-2008 à 15:14:15
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed