Aldığın hata bu
CDO.Message.1 hata'80040213 '
Ulaştırma sunucuya bağlanmak için başarısız oldu
Demek istediği yazma izinlerini bi kontrol et (MDB) Yazma izinleri
Sorunun devam ediyorsa kod aralıklarına bak halen devam ediyorsa
Scripti sil gitsin
Yapacak başka bir script ara