AccessTr.neT

Tam Versiyon: Mail Hata Ayıklayıcı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Arkadaşlar merhaba,

ilk önce Access üzerine böyle bir form bulduğum ve üye olduğum için çok mutluyum,

aşağıdaki kodlarla yaptığım bir uygulama 24 saat böyunca koşullar gerçekleştiğinde mail gönderiyor,

internet olmayınca kodları çalıştırmıyorum ama mail gönderirken oluşa bilecek herhangi bir hatada sistemin durmamasını istiyorum,

teşekkürler, iyi çalışmalar.

Kod:
Set objCDOMail = CreateObject("CDO.Message")
objCDOMail.to =
objCDOMail.From = ""
objCDOMail.Subject = ""
objCDOMail.Addattachment ""
objCDOMail.TextBody = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objCDOMail.Configuration.Fields.Update
objCDOMail.Send
Set objCDOMail = Nothing
Önreği incelemeden zor ama aşağıdaki kodu dene.

Kod:
On Error GoTo hata
Set objCDOMail = CreateObject("CDO.Message")
objCDOMail.to = ""
objCDOMail.From = ""
objCDOMail.Subject = ""
objCDOMail.Addattachment ""
objCDOMail.TextBody = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objCDOMail.Configuration.Fields.Update
objCDOMail.Send
Set objCDOMail = Nothing
hata:
teşekkürler,

hata kontrolünü uyguladım,

normal şartlarda ne hata olursa olsun herhangi bir mesaj çıkmaması gerekiyor herhalde ?
kodun sonuna

hata: msgbox "hata mesajı"

şeklinde kullanabilirsiniz.
Sn. pcman,

Forum kuralları gereğince, sorununuzun çözülüp çözülmediğini bildirmelisiniz.
Ben çözüldü kabul ederek konuyu taşıyorum.
Destek ekibimizden birisi olarak sizden daha fazla dikkat bekliyoruz.
Sayın Seruz,

aslında 3. mesajda teşekkür ettim,

bu sorunun çözüldüğünü gösterir diye düşünüyorum,

Bundan sonraki mesajlarda, daha somut belirtirim,

teşekkürler,