Skip to main content

AccessTr.neT


Mail Yollama Hatası

Mail Yollama Hatası

Çözüldü #1
Merhaba siteden indirdiğim örnek bende çalışmadı.

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

.zip Hata.zip (Dosya Boyutu: 102,11 KB | İndirme Sayısı: 4)
Cevapla
Çözüldü #2
[vb]Dim objCDO<span class="highlight" *****padding-left: 0px; padding-right: 0px;">Mail</span> As Object


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

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

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

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

Set objCDO<span class="highlight" *****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...
Son Düzenleme: 16/06/2011, 15:04, Düzenleyen: DUAYEN.
Cevapla
Çözüldü #3
(16/06/2011, 15:03)DUAYEN yazdı: [vb]Dim objCDO<span class="highlight" *****padding-left: 0px; padding-right: 0px;">Mail</span> As Object


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

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

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

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

Set objCDO<span class="highlight" *****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
Çözüldü #4
Çözülmüştür Teşk.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task