+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mail Yollama Hatası (/konu-mail-yollama-hatasi.html)
Mail Yollama Hatası - kardelen188 - 16/06/2011
Merhaba siteden indirdiğim örnek bende çalışmadı.
Access 2007 kullanıyorum.Aldığım hata mesajı ektedir.Teşk.
Cvp: Mail Yollama Hatası - DUAYEN - 16/06/2011
[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.
Cvp: Mail Yollama Hatası - kardelen188 - 16/06/2011
(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.
Cvp: Mail Yollama Hatası - kardelen188 - 16/06/2011
Çözülmüştür Teşk.