WwW.FoRumSTylE.TuRKpr0foRuM.NET


 
AnasayfaPorTaLTakvimGaleriSSSAramaKayıt OlGiriş yap
Arama
 
 

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

» kurtlar Vadisi Pusu Bölüm 12
Salı Haz. 30 2009, 12:03 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 11
Salı Haz. 30 2009, 11:49 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 10
Salı Haz. 30 2009, 11:47 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 09
Salı Haz. 30 2009, 11:36 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 08
Salı Haz. 30 2009, 11:29 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 07
Salı Haz. 30 2009, 11:28 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 06
Salı Haz. 30 2009, 11:27 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 05
C.tesi Haz. 27 2009, 20:18 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 04
C.tesi Haz. 27 2009, 20:15 tarafından yasakmc

Dost siteler
Kral Forumtr

Paylaş | 
 

 e-mail Göndermek

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
GÖZDE
Admin
Admin
avatar

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

MesajKonu: e-mail Göndermek   C.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
Kullanıcı profilini gör
 
e-mail Göndermek
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» İsmail YK 17 Eylül'de Kırklareli (Pınarhisar'da)

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: