Makro ile mail gönderirken hatalı mail adresinde göndermeyi kesiyor..

[jngl1]

Sub mail_gönder_ADO()
If MsgBox(Range("b" & 2) & " Maaş Kesinti Bilgilerini e-posta Olarak Göndermek İstediğinizden Emin misiniz...?" & vbNewLine & " NOT : Bu işlemden için bilgisayarınızda Outlook kurulu olması gerekiyor... ", vbYesNo + vbInformation, "UYARI") = vbNo Then
Exit Sub
Else
Application.ScreenUpdating = False
Dim firma
'aa = [b65536].End(3).Row
aa = 134

If aa = "" Then
Exit Sub
End If

For h = 9 To aa
firma = Range("b" & h)
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Range("w" & h)
'.CC = ""
'.BCC = ""
.Subject = Range("b" & 2) & " Maaş Kesinti Bilgileri"
'.body
.HTMLBody = "<font face = calibri> <h4>Sayın " & Range("b" & h) & " ;</h4>" & vbCrLf & _
", " & _
Range("b2") & " maaşınızdan <br><b>" & _
Format(Range("h" & h), "###,##0.00") & " TL Yakıt, <br>" & _
</b> olmak üzere; </font>" & " <br> <font color = red face = calibri> <b> TOPLAM : " & _
Format(Range("v" & h), "###,##0.00") & " TL </font> </b> kesinti yapılacaktır.<br><br> 

.Save
'.Display
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
Application.ScreenUpdating = True
Next h
MsgBox Range("b" & 2) & " Maaş Kesinti Bilgileri Tüm Kullanıcılara e-posta Olarak Gönderildi.", vbInformation, "İşlem Tamam"
Application.ScreenUpdating = True
End If
End Sub

Yukarıdaki kodda kullanıcılara her biri için ayrı ayrı bilgi gönderiyorum fakat mail adreslerinin birinde hata varsa toplu mail göndermeyi kesiyor..

Benim istediğim eğer mail adresinde hata varsa onu atlasın ve diğer adreslere göndermeye devam etsin...

Şimdiden elinize sağlık...

 

[Emir Hüseyin Çoban]

. . .

Şu ilaveyi yaparak deneyiniz.
Ancak doğru olan gönderme işlemini başlatmadan önce, hatalı eposta adreslerini tespit etmektir.

Sub mail_gönder_ADO()
[B]on error resume next[/B]
'kodlarınız
...

Düzeltme: Yazım hatası giderildi.

. . .

 

[jngl1]

Hüseyin bey teşekkürler, Çalıştı...