1

Konu: mail gönderme yardim...

vfp ile mail gönderimi yapmak istiyorum. daha önce gönderilen mesajlari okudum ancak. daha önce böyle bir tecrübem olmadigi için pek yarari olmadi.

benim yapmak istedigim:

ögrenci numaralarina ait pdf seklindeki karneleri velilerin maillerine göndermem gerekiyor.

ne yapmam gerektigi ile alakali bir adim adim bir anlatim yapabilirseniz çok sevinirim.  yardimlarinizi bekliyorum. simdiden çok tesekkürler...

2

Re: mail gönderme yardim...

kimden=""     gönderenin e-mail adresi
kime=""     gidecek kişini e-mail adresi
baslik=""    başlık
mesaj=""    göndereceğin mesaj   
kime_cc=""    BOŞ KALSIN
kime_bcc=""     boş kalsın

mailserver='' mailin smtp  adresi
kullanici=""  gönderenin kullanıcı adı
sifre=""      şifresi

EKDOSYA=dosyaadi gönderilecek dosya


LOCAL sermail, ayar, mail
sermail = "http://schemas.microsoft.com/cdo/configuration/"
ayar = CREATEOBJECT("CDO.Configuration")
WITH ayar.FIELDS
  .ITEM(sermail + "smtpserverport") = 25
  .ITEM(sermail + "sendusing") = 2
  .ITEM(seremail + "smtpusessl") = .t.
  .ITEM(sermail + "smtpserver") = mailserver
  .ITEM(sermail + "smtpauthenticate") = 1
  .ITEM(sermail + "sendusername") = kullanici
  .ITEM(sermail + "sendpassword") = sifre
  .UPDATE
ENDWITH
mail = CREATEOBJECT ("CDO.Message")
mail.Configuration = ayar
  With mail
.To = kime
.CC = kime_cc
.BCC = kime_bcc
.From = kimden
.Subject = baslik
.TextBody = mesaj

if !empty(EKDOSYA)
    .AddAttachment(m.EKDOSYA)
endif

.Send()
Endwith
Store .Null. To cdoMessage,cdoConfig
   
Wait Window "e-mail başarıyla gönderildi ........." Nowait


yukardaki gibi göndere bilirsin
öğrencilere ait pdf veya jpg,bmp vs.... gibi dosyaların bulundugu yeri EKDOSYA değişkenine
atayarak gönderirsin

Bilgi Paylaşıldıkça Artar...!

3

Re: mail gönderme yardim...

Bu kodu kullanmak isteyen arkadaşlar için bir notum var.

Eğer SSL kullanmıyorsanız

.ITEM(seremail + "smtpusessl") = .t. olan kodu .ITEM(sermail + "smtpusessl") = .F.

yapmanızda fayda var.

4

Re: mail gönderme yardim...

Visual Fox Pro
kimden="[email protected]"

kime="[email protected]"
baslik="merhaba"
mesaj="bu mesajı almışsan olmuş demektir."   
kime_cc=""
kime_bcc=""
 
mailserver='pop3.mynet.com'
kullanici="[email protected]"
sifre="qqqqqq"
 
EKDOSYA="c:\deneme.txt"
 
 
LOCAL sermail, ayar, mail
sermail = "http://schemas.microsoft.com/cdo/configuration/"
ayar = CREATEOBJECT("CDO.Configuration")
WITH ayar.FIELDS
  .ITEM(sermail + "smtpserverport") = 25
  .ITEM(sermail + "sendusing") = 2
  .ITEM(seremail + "smtpusessl") = .t.
  .ITEM(sermail + "smtpserver") = mailserver
  .ITEM(sermail + "smtpauthenticate") = 1
  .ITEM(sermail + "sendusername") = kullanici
  .ITEM(sermail + "sendpassword") = sifre
  .UPDATE
ENDWITH
mail = CREATEOBJECT ("CDO.Message")
mail.Configuration = ayar
  With mail
.To = kime
.CC = kime_cc
.BCC = kime_bcc
.From = kimden
.Subject = baslik
.TextBody = mesaj
 
if !empty(EKDOSYA)
    .AddAttachment(m.EKDOSYA)
endif
 
.Send()
Endwith
Store .Null. To cdoMessage,cdoConfig
 
Wait Window "e-mail başarıyla gönderildi ........." Nowait



kodunu kullandım ancak .ITEM(seremail + "smtpusessl") = .t. olan satırda
veriable 'SEREMAIL' not found hatası veriyor. bu kısmı .f. yaptım ancak. bu sefer de send() kısmında hata verdi. ilgilenebilirseniz sevinirim.

5

Re: mail gönderme yardim...

"seremail" hatalı olmuş "sermail" olursa hallolur sanıyorum

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

6

Re: mail gönderme yardim...

evet orası hatalı olmuş. yalnız send() kısmına geldiğinde aktarım sunucuya bağlanamadı hatası veriyor. sanırım smtp adresinde hata var. gmail, hotmail, mynet smtp adreslerini denedim ancak aynı hata devam etti. ne yapmam lazım? şimdiden teşekkürler...

7

Re: mail gönderme yardim...

valla ben Çetin'in tavsiye ettiği Blat'ı kullanıyorum. süper bişey. windows'taki hiçbir hizmeti kullanmıyor. windows'ta şu kuruluymuş bu kuruluymuş derdin yok. ayrıca bedava. hem exe hem de dll versiyonu var. exe versiyonu da komut satırından parametre ile kullanılabiliyor.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

8

Re: mail gönderme yardim...

bu kodu ben deneyip çalıştırdım ama acaba diyorum mail server için vermen gereken smtp adresini doğru verdiğinden eminmisin. Denemek için outlook ( MS veya express ) gibi bir yazılıma ilgili accountu kurmayı denesene. Bakalım oradan gidip gelecek mi. Sanırım problem smtp ayarlarında isminde, kullanıcı adı, şifre doğrudur ama smtp servis adı yanlış olabilir demek istiyorum.

9

Re: mail gönderme yardim...

astronot sen pop3 kullanımışsın smtp adresini yazman lazım

Bilgi Paylaşıldıkça Artar...!

10

Re: mail gönderme yardim...

olabilecek bütün smtp ayarlarını kullandım. hotmail, gmail ve yahoo içinde denedim ama olmadı. dediğim gibi internet ile ilgili bir uygulamayı ilk defa yapıyorum. smtp ayarı ile çalışan bir örneğini verebilecek biri varmı?çok acil... şimdiden teşekkürler...

11 Son düzenleyen, antepli (11.09.2008 23:07:37)

Re: mail gönderme yardim...

benim ilk gönderdiğim öğrenk ama yine göndereyim  bu kod çalışıyor

kimden1="[email protected]" && aşağıdaki almış ıldugun adresi yaz
kime1="[email protected]" && kime göndereceksen email adresi
baslik1="deneme"
mesaj1="Deneme Mesajıdır "
kime_cc1=""
kime_bcc1=""


mailserver1='smtp.gmail.com'   && gmail smtp adresi aynen yaz
kullanici1="[email protected]" && gmail adresin
sifre1="......" && adresini şifresi

EKDOSYA=dosyaadi && bu kısma gönderecigin dosyayyı belirtirsin


LOCAL serayar, ayar, mail
serayar = "http://schemas.microsoft.com/cdo/configuration/"
ayar = CREATEOBJECT("CDO.Configuration")
WITH ayar.FIELDS
  .ITEM(serayar + "smtpserverport") = 25
  .ITEM(serayar + "sendusing") = 2
  .ITEM(serayar + "smtpusessl") = .t.
  .ITEM(serayar + "smtpserver") = mailserver1
  .ITEM(serayar + "smtpauthenticate") = 1
  .ITEM(serayar + "sendusername") = kullanici1
  .ITEM(serayar + "sendpassword") = sifre1
  .UPDATE
ENDWITH

mail = CREATEOBJECT ("CDO.Message")
mail.Configuration = ayar
With mail
.To = kime1
.CC = kime_cc1
.BCC = kime_bcc1
.From = kimden1
.Subject = baslik1
.TextBody = mesaj1

if !empty(EKDOSYA)
.AddAttachment(m.EKDOSYA)
endif

.Send()
Endwith

Store .Null. To cdoMessage,cdoConfig

Wait Window "e-mail başarıyla gönderildi ........." Nowait


ben gmail den gönderiyorum hiç problemsiz gidiyor hemde yüzlerce kişiye ulaşıyor gmail smpt adresini hiç denedinmi  ?
denersen ilk olarak hesabı oluştur sonra pop3 ayarları kısmından etkinleştir sonra
gönderecegin kodun 
mailserver1='smtp.gmail.com' yazmalısın
smtpusessl  ise .t. olmalı
ozaman olur

Bilgi Paylaşıldıkça Artar...!

12

Re: mail gönderme yardim...

işte bu!... çok teşşekkür ederim. gerçi junk mail olarak gidiyor ama işimi görecek. gmail hesabın pop3 kısmını etkinleştirmemişim. tekrar teşekkürler.. ve başarılar...

13 Son düzenleyen, tamer061966 (24.01.2009 14:34:46)

Re: mail gönderme yardim...

Merhaba Antepli!
Vermiş olduğunuz email gönderen kod smtp ile çalıştı. Çok teşekkürler!
Yalnız mesaj kısmında yazdığım türkçe karakterler gmail de bozul olarak geliyor. Acaba bunu nasıl düzeltebilrim.
Yardımcı olursanız sevinirim:)

Bu konuda yardımcı olacak arkadaşlardan destek bekliyorum...

14

Re: mail gönderme yardim...

Metin Hocam Blat kullanarak email gönderdiğinizi yazmıştınız. Acaba bu konu hakkında biraz bilgi verebilirmisiniz.

15

Re: mail gönderme yardim...

blat ın hem komut satırında parametreyle çalışan hem de dll olarak çalışan iki versiyonu var. google da blat yazdığında ilk onun linki geliyor. tamamen ücretsiz. sistemden hiçbirşeye ihtiyaç duymuyor. hatta bir gönderici email adresine dahi ihtiyaç duymuyor. web sitesinde kullanımı da anlatılmış. ben foxpro dos ile bile onu kullanıyorum.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

16

Re: mail gönderme yardim...

Teşekkür Metin Hocam!
İndirip deneyeceğim.