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