Aktarım, sunucuya bağlanamadı

[candar_canturk]

sayın beab05 hocam Merhaba

e-mail atarken eğer o anda internet bağlantısı yoksa ekrana türkçe olarak sanırım microsoft un kendi mesajı "aktarım, sunucuya bağlanamadı" uyarıcı geliyor. haliyle bu mesaj olayın büyüsünü bozuyor.
çözümü için bir fikriniz varmı lütfen paylaşın, tesekkür ederim.

 

[beab05]

Merhaba;

Lütfen konu başlıklarını hatta sorularınızı kişilere yönelik sormayınız..

Sorunuza gelince internet bağlantısı kontrolu yaptırılabilir ve sonuç "false" bağlı değilse olayı ile hata mesajını engelleyebilirsiniz..
Alttaki kodu bir module ekleyiniz..

Public Declare Function InternetGetConnectedState _
                         Lib "wininet.dll" (lpdwFlags As Long, _
                                            ByVal dwReserved As Long) As Boolean
Function IsConnected() As Boolean
    Dim Stat As Long
    IsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)
End Function

Daha sonra mail gönderme kodunuza alttaki kodu ekleyiniz..

If IsConnected = False Then
        Exit Sub
    Else
        ' Bu araya Mail Kodlarını yazınız
................
.........................
...................................

    End If
End Sub

 

[candar_canturk]

kusura bakmayın onu öyle düşünemedim, tesekkür ederim cevabınız için dediğiniz gibi yaptım ama başaramadım vba hata veriyor If IsConnected = False Then
i sarı renkle gösteriyor normalde var olan mail modülünden ayrı olarak verdiğiniz kodu modül olarak kaydettim yinede düzeltemedim beab05 hocam.
olsun artık kullanmayıveririm mail yollamasın