Mail gönderdikten sonra kapanma sorunu hk.

[chakistes]

merhaba arkadaşlar aşağıdaki mail göndermedeki kod bölümünde bir sıkıntı var mail gönderdikten sonra programı kapatıyor end komutunu sona eklediğimde hata veriyor
NewMail.Configuration = mailConfig
NewMail.Send

MsgBox "E-Posta gönderildi.", vbInformation

Exit_Err:
'Release object memory
Set NewMail = Nothing
Set mailConfig = Nothing

End
Cancel = False

Err:
Select Case Err.Number
Case -2147220973 'Could be because of Internet Connection
MsgBox "İnternet Bağlantısını kontrol edin." & vbNewLine & Err.Number & ": " & Err.Description
Case -2147220975 'Incorrect credentials User ID or password
MsgBox "Oturum açma kimlik bilgilerinizi kontrol edin ve tekrar deneyin." & vbNewLine & Err.Number & ": " & Err.Description
Case Else 'Report other errors
MsgBox "E-posta gönderilirken hatayla karşılaşıldı." & vbNewLine & Err.Number & ": " & Err.Description
End Select

Resume Exit_Err