Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Web Uygulamaları » 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...
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
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.
kimden="xxxx@mynet.com"
kime="yyyyy@hotmail.com"
baslik="merhaba"
mesaj="bu mesajı almışsan olmuş demektir."
kime_cc=""
kime_bcc=""
mailserver='pop3.mynet.com'
kullanici="xxxx@mynet.com"
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.
"seremail" hatalı olmuş "sermail" olursa hallolur sanıyorum
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...
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.
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.
astronot sen pop3 kullanımışsın smtp adresini yazman lazım
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...
benim ilk gönderdiğim öğrenk ama yine göndereyim bu kod çalışıyor
kimden1="....@gmail.com" && aşağıdaki almış ıldugun adresi yaz
kime1=".......@................" && 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="....@gmail.com" && 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
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...
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...
Metin Hocam Blat kullanarak email gönderdiğinizi yazmıştınız. Acaba bu konu hakkında biraz bilgi verebilirmisiniz.
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.
Teşekkür Metin Hocam!
İndirip deneyeceğim.
fox4um » Web Uygulamaları » mail gönderme yardim...