AccessTr.neT

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,

pcman

ozanakkaya

pcman

ozanakkaya

Seruz

pcman