Mail Hata Ayıklayıcı - Baskı Önizleme

Mail Hata Ayıklayıcı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mail Hata Ayıklayıcı (/konu-mail-hata-ayiklayici.html)

Mail Hata Ayıklayıcı - pcman - 22/06/2009

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

Cvp: Mail Hata Ayıklayıcı - ozanakkaya - 22/06/2009

Ö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:

Cvp: Mail Hata Ayıklayıcı - pcman - 22/06/2009

teşekkürler,

hata kontrolünü uyguladım,

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

Cvp: Mail Hata Ayıklayıcı - ozanakkaya - 23/06/2009

kodun sonuna

hata: msgbox "hata mesajı"

şeklinde kullanabilirsiniz.

Cvp: Mail Hata Ayıklayıcı - Seruz - 26/06/2009

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.

Cvp: Mail Hata Ayıklayıcı - pcman - 26/06/2009

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,