WwW.FoRumSTylE.TuRKpr0foRuM.NET
Would you like to react to this message? Create an account in a few clicks or log in to continue.
WwW.FoRumSTylE.TuRKpr0foRuM.NET


 
AnasayfaPorTaLGaleriAramaLatest imagesKayıt OlGiriş yap
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» kurtlar Vadisi Pusu Bölüm 13
e-mail Göndermek Icon_minitimeSalı Haz. 30 2009, 12:06 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 12
e-mail Göndermek Icon_minitimeSalı Haz. 30 2009, 12:03 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 11
e-mail Göndermek Icon_minitimeSalı Haz. 30 2009, 11:49 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 10
e-mail Göndermek Icon_minitimeSalı Haz. 30 2009, 11:47 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 09
e-mail Göndermek Icon_minitimeSalı Haz. 30 2009, 11:36 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 08
e-mail Göndermek Icon_minitimeSalı Haz. 30 2009, 11:29 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 07
e-mail Göndermek Icon_minitimeSalı Haz. 30 2009, 11:28 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 06
e-mail Göndermek Icon_minitimeSalı Haz. 30 2009, 11:27 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 05
e-mail Göndermek Icon_minitimeC.tesi Haz. 27 2009, 20:18 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 04
e-mail Göndermek Icon_minitimeC.tesi Haz. 27 2009, 20:15 tarafından yasakmc

Dost siteler
Kral Forumtr

 

 e-mail Göndermek

Aşağa gitmek 
YazarMesaj
GÖZDE
Admin
Admin
GÖZDE


Kadın
Mesaj Sayısı : 1274
Yaş : 31
Nerden : sakarya
Kayıt tarihi : 05/05/08

e-mail Göndermek Empty
MesajKonu: e-mail Göndermek   e-mail Göndermek Icon_minitimeC.tesi Şub. 07 2009, 17:10

e-mail Göndermek

Ms Access ile CDO kullanarak çalışan bir SMTP server yardımıyla direkt olarak e-mail gönderebilirsiniz. Alttaki kodlar sizin de kullanmanızı tavsiye ettiğim GMail e göre düzenlenmiştir.

Kod:

Dim objCDOMail As Object


Set objCDOMail = CreateObject("CDO.Message")

objCDOMail.To = "xxxxxx@hotmail.com" ' Gönderilecek e-mail adresi
objCDOMail.From = "yyyyy@gmail.com" ' Gönderilen e-mail adresi
'objCDOMail.CC = "xxxx@hotmail.com" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-mail adresi
objCDOMail.Subject = "gmail deneme" ' e-mail konusu
'objCDOMail.Addattachment "C:\kaynak.txt" ' eğer isterseniz eklenecek dosya

objCDOMail.TextBody = "gmail denemesi" ' Mesajınız....
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kullanıcıadı"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "şifre"
objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2
objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOMail.Configuration.Fields.Update
objCDOMail.Send

Set objCDOMail = Nothing



Not: Gönderilen e-mailin junk, bulk ya da önemsiz klasörüne düşmemesi için "priority" ve " importance" schemas ları sayın Zeki Gürsoy tarafından eklenmiştir..
Sayfa başına dön Aşağa gitmek
 
e-mail Göndermek
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» E-Mail konusunu belirleyen buton
» Mail Linki Verme HTML Kodu

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
WwW.FoRumSTylE.TuRKpr0foRuM.NET :: Teknoloji üzerine herşey :: Bilişim Teknolojileri :: Access-
Buraya geçin: