Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/06/2009 08:54
Konu Sahibi
pcman
Yorumlar
5
Okunma
2372
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

pcman

Aktif Üye
Kullanici Avatari
Aktif Üye
81
4
20/06/2009
29
İstanbul
Ofis 2003
12/07/2011,01:20
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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


İyi Çalışmalar....
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.875
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Önreği incelemeden zor ama aşağıdaki kodu dene.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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:


Cevapla

pcman

Aktif Üye
Kullanici Avatari
Aktif Üye
81
4
20/06/2009
29
İstanbul
Ofis 2003
12/07/2011,01:20
Çözüldü 
teşekkürler,

hata kontrolünü uyguladım,

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


İyi Çalışmalar....
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.875
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
kodun sonuna

hata: msgbox "hata mesajı"

şeklinde kullanabilirsiniz.


Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
17/10/2017,17:32
Çözüldü 
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.


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

pcman

Aktif Üye
Kullanici Avatari
Aktif Üye
81
4
20/06/2009
29
İstanbul
Ofis 2003
12/07/2011,01:20
Çözüldü 
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,


İyi Çalışmalar....
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Geçerli Kaydı Mail Atma Hk. serkan1985 6 259 25/08/2017, 09:02 serkan1985
Çözüldü Form.recordset Kodunda Hata Almaktayım. Makrovba 6 239 17/08/2017, 01:06 Makrovba
Çözüldü Mssql Kayıt Yaparken Hata Veriyor ramazanemrullah 2 287 13/07/2017, 03:25 ramazanemrullah
Çözüldü Butona Atanan Macroda Hata damacanasu 4 254 02/07/2017, 15:12 damacanasu
Çözüldü Kayit Silerken Hata Veriyor ramazanemrullah 4 401 02/07/2017, 14:31 biberli33

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.