Mail Yollama Hatası
Tarih
16/06/2011 14:28
Konu Sahibi
kardelen188
Yorumlar
3
Okunma
1259
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
28/10/2016,11:41
Çö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
  OLE server or ActiveX Control hatası temre 4 67 5 saat önce ozanakkaya
  Parametre girin hatası nightashes 3 50 04/12/2016, 23:07 Mesut Kaytan
  Pdf olarak mail gönderme Serkan Çevik 8 162 04/12/2016, 15:17 Serkan Çevik
  method or data hatası murat dikme 7 108 02/12/2016, 19:04 murat dikme
  Sms Göndermede Port Hatası kadirdursun 4 180 28/11/2016, 14:23 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya