<![CDATA[Fox4um - mail gönderme yardim...]]> 2009-01-26T11:18:31Z PunBB http://www.fox4um.com/topic/1103/mail-gonderme-yardim/ <![CDATA[Re: mail gönderme yardim...]]> Teşekkür Metin Hocam!
İndirip deneyeceğim.

]]> http://www.fox4um.com/user/600/ 2009-01-26T11:18:31Z http://www.fox4um.com/post/7269/#p7269 <![CDATA[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.

]]> http://www.fox4um.com/user/39/ 2009-01-26T11:07:12Z http://www.fox4um.com/post/7268/#p7268 <![CDATA[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.

]]> http://www.fox4um.com/user/600/ 2009-01-24T12:39:17Z http://www.fox4um.com/post/7266/#p7266 <![CDATA[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...

]]> http://www.fox4um.com/user/600/ 2009-01-24T12:32:27Z http://www.fox4um.com/post/7265/#p7265 <![CDATA[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...

]]> http://www.fox4um.com/user/215/ 2008-09-12T08:26:46Z http://www.fox4um.com/post/6686/#p6686 <![CDATA[Re: mail gönderme yardim...]]> 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

]]> http://www.fox4um.com/user/421/ 2008-09-11T21:01:31Z http://www.fox4um.com/post/6682/#p6682 <![CDATA[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...

]]> http://www.fox4um.com/user/215/ 2008-09-11T10:13:03Z http://www.fox4um.com/post/6677/#p6677 <![CDATA[Re: mail gönderme yardim...]]> astronot sen pop3 kullanımışsın smtp adresini yazman lazım

]]> http://www.fox4um.com/user/421/ 2008-09-10T21:52:19Z http://www.fox4um.com/post/6668/#p6668 <![CDATA[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.

]]> http://www.fox4um.com/user/78/ 2008-09-10T20:00:55Z http://www.fox4um.com/post/6665/#p6665 <![CDATA[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.

]]> http://www.fox4um.com/user/39/ 2008-09-10T13:25:12Z http://www.fox4um.com/post/6663/#p6663 <![CDATA[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...

]]> http://www.fox4um.com/user/215/ 2008-09-10T10:52:48Z http://www.fox4um.com/post/6662/#p6662 <![CDATA[Re: mail gönderme yardim...]]> "seremail" hatalı olmuş "sermail" olursa hallolur sanıyorum

]]> http://www.fox4um.com/user/30/ 2008-09-10T09:19:17Z http://www.fox4um.com/post/6661/#p6661 <![CDATA[Re: mail gönderme yardim...]]>
Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

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.

]]> http://www.fox4um.com/user/215/ 2008-09-10T09:08:49Z http://www.fox4um.com/post/6660/#p6660 <![CDATA[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.

]]> http://www.fox4um.com/user/78/ 2008-08-20T10:20:34Z http://www.fox4um.com/post/6573/#p6573 <![CDATA[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

]]> http://www.fox4um.com/user/421/ 2008-08-18T23:35:01Z http://www.fox4um.com/post/6567/#p6567