Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/06/2011 14:28
Konu Sahibi
kardelen188
Yorumlar
3
Okunma
1425
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

kardelen188

Aktif Üye
Kullanici Avatari
Aktif Üye
33
31/05/2011
0
Bingöl
Ofis XP
23/06/2011,19:03
Çözüldü 
Merhaba siteden indirdiğim örnek bende çalışmadı.

Access 2007 kullanıyorum.Aldığım hata mesajı ektedir.Teşk.


Ek Dosyalar
.zip   Hata.zip (Dosya Boyutu: 102,11 KB / İndirme Sayısı: 4)
Cevapla

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Çözüldü 
[vb]Dim objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span> As Object


Set objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span> = CreateObject("CDO.Message")

objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.To = "xxxxxx@hot<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>.com" ' Gönderilecek e-<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> adresi
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.From = "yyyyy@g<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>.com" ' Gönderilen e-<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> adresi
'objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.CC = "xxxx@hot<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>.com" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> adresi
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Subject = "g<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> deneme" ' e-<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> konusu
'objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Addattachment "C:\kaynak.txt" ' eğer isterseniz eklenecek dosya

objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.TextBody = "g<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> denemesi" ' Mesajınız....
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.g<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>.com"
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kullanıcıadı"
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "şifre"
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("urn:schemas:http<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>:importance") = 2
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("urn:schemas:<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>header:X-Priority") = 1
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Update
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Send

Set objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span> = Nothing
Birde bu kodu denermisiniz.


Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

kardelen188

Aktif Üye
Kullanici Avatari
Aktif Üye
33
31/05/2011
0
Bingöl
Ofis XP
23/06/2011,19:03
Çözüldü 
(16/06/2011, 15:03)DUAYEN Adlı Kullanıcıdan Alıntı: [vb]Dim objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span> As Object


Set objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span> = CreateObject("CDO.Message")

objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.To = "xxxxxx@hot<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>.com" ' Gönderilecek e-<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> adresi
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.From = "yyyyy@g<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>.com" ' Gönderilen e-<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> adresi
'objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.CC = "xxxx@hot<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>.com" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> adresi
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Subject = "g<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> deneme" ' e-<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> konusu
'objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Addattachment "C:\kaynak.txt" ' eğer isterseniz eklenecek dosya

objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.TextBody = "g<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span> denemesi" ' Mesajınız....
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.g<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>.com"
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kullanıcıadı"
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "şifre"
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("urn:schemas:http<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>:importance") = 2
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("urn:schemas:<span class="highlight" style="padding-left: 0px; padding-right: 0px;">mail</span>header:X-Priority") = 1
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Configuration.Fields.Update
objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span>.Send

Set objCDO<span class="highlight" style="padding-left: 0px; padding-right: 0px;">Mail</span> = Nothing
Birde bu kodu denermisiniz.




objCDOMail.Send bölümünde hata verdi

Ben Access e nasıl DOMail nesnesi ekleyebilirim...

Teşk.


Cevapla

kardelen188

Aktif Üye
Kullanici Avatari
Aktif Üye
33
31/05/2011
0
Bingöl
Ofis XP
23/06/2011,19:03
Çözüldü 
Çözülmüştür Teşk.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Dlookup Kodu Hatası accessdelisi 3 151 14/10/2017, 07:52 accessdelisi
Çözüldü Windows 10'da Access Kısayol İkonu Hatası serkan1985 2 132 06/10/2017, 19:42 serkan1985
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 307 05/10/2017, 14:38 anno
Çözüldü Değer Hatası Hk. serkan1985 4 120 02/10/2017, 23:39 serkan1985
Çözüldü Formda Otomatik Sayı Hatası ştekin 2 74 27/09/2017, 13:03 ştekin

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