Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
arkadaşlar selam
foxpro 9'da oluşturduğum bir prgde oluşan sonuçları istek üzerine mail olarak göndermek istiyorum fakat bir yol bulamadım forumda araştırdım ve "CUSMAPI" gördüm fakat
http://www.fox4um.com/downloads/mapimail.zip linkindende indiremedim elinizde var ise gönderebilir veya linkli güncelleyebilirmisiniz
e-posta adresim sasmazali@hotmail.com
eğer başka bir yöntemde biliyor iseniz bilginizi de paylaşırsanız sevinirim şimdiden çok teşekkürler
onu boşver. bunu indir: http://www.blat.net/
hem .dll hem de command line çalışan .exe versiyonu var ve bedava. ayrıca windowsta hiçbirşey yüklü olması gerekmiyor. ve de gerçek bir mail adresinin, mail serverinin olması bile gerekmiyor. bu yüzden spam için bile kullanılabilecek bir program (bunu bilgi olarak verdim. yoksa spamdan nefret ederim).
spam değil dershanemizde öğrencilerimiz için hizmete sokmayı planladığımız bir hizmet için öğrenci tc veya dernosu girerek yoklama sınav vb. bilgileri isterse kayıt olurken vermiş olduğu e-postaya gönder diyerek ekranda gördüğünü e-postasına iletmek için kötü niyet için yazılım yapma düşüncem hiç olmadı
birşey daha bir örnek kod koyabilir misiniz ?
birşey daha bir örnek kod koyabilir misiniz ?
spam değil dershanemizde öğrencilerimiz için hizmete sokmayı planladığımız bir hizmet için öğrenci tc veya dernosu girerek yoklama sınav vb. bilgileri isterse kayıt olurken vermiş olduğu e-postaya gönder diyerek ekranda gördüğünü e-postasına iletmek için kötü niyet için yazılım yapma düşüncem hiç olmadı
birşey daha bir örnek kod koyabilir misiniz ?
öyle birşey iddia etmedim ki. sadece programın ne kadar basit bir şekilde kullanılabilir olduğunu anlatmaya çalıştım...
teşekkür herşey için sadece açıklama yapmam gerektiğini düşündüm yanlış anlaşılmamak için 
herşey için tşk herkese
neyaptım ne ettiysem bir türlü mail gönderemedim 
biraz yabancıyız anlaşılan bu konuya
LOCAL lcDll, lcCmd, lnResult
lcDll = "x:\path\blat.dll"
DECLARE INTEGER Send IN (lcDll) STRING blatstring
lcCmd = 'c:\temp\body.txt -t whoever@wherever.com -s "e-mail subject" -f me@whatever.com -server smtp.wherever.com -attach c:\file.txt'
lnResult = Send(lcCmd)
burda verilenlere göre gerekli bilgiyi yazıyorum ancak -server ? olarak ne kullanmam gerekiyor hatam burdamı acaba bilemiyorum
LOCAL lcDll, lcCmd, lnResult
lcDll = ".\blat.dll" &&calistigim dizinde
DECLARE INTEGER Send IN (lcDll) STRING blatstring
lcCmd = 'c:\body.txt -t gidecek@mailadresi.com -s "konu" -f gonderen@mailadresi.com -server ???"smtp.wherever.com" -attach c:\deneme.txt'
lnResult = Send(lcCmd)
lütfen bir yardım elim kolum bağlı kaldı konuya yabancı kaldım
-server senin smtp serverin oluyor. Örneğin:
mail.sasmazali.com.tr:587
587 port numarası. Bazı yerlerde bu ama 25 olabilir.
Ayrıca -u ile kullanıcı adını ve -pw ile şifreni belirtmen lazım, yoksa smtp server senin epostanı kabul etmez.
Eklenti: hotmail gibi webmail üzerinden hizmet veren siteler ile bu blat işi çalışmaz. Ancak gmail kullanıyorsan, ordan blat ile eposta çekebirsin, ama gönderemesin. Göndermek için mutlaka bir smtp-server'e sahib olman lazım.
sasmaz ali birde bunu denemek istersen aşagıda kodları ayrıntılı bir şekilde yazdım
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
yukardaki gibi göndere bilirsin
öğrencilere ait pdf ,html veya jpg,bmp vs.... gibi dosyaların bulundugu yeri EKDOSYA değişkenine
atayarak gönderirsin
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
bir deneyim işallah çözüm olur tşk
teşekkür işimi hallettim artık e-posta gönderebiliyorum antepli. Teksorun giden mailde türkçe yazı karakterlerini tanımama onu biraz araştırmam gerekecek
-server senin smtp serverin oluyor. Örneğin:
mail.sasmazali.com.tr:587587 port numarası. Bazı yerlerde bu ama 25 olabilir.
Ayrıca -u ile kullanıcı adını ve -pw ile şifreni belirtmen lazım, yoksa smtp server senin epostanı kabul etmez.
...
eskiden ben smtp tanımlamadan blat ile email gönderebiliyordum. ancak sebebi sanırım eskiden şifre istememesiydi.
test ettim ve gönderdim. örnek:
LOCAL lcDll, lcCmd, lnResult
lcDll = "blat.dll"
DECLARE INTEGER Send IN (lcDll) STRING blatstring
lcCmd = 'd:\prg\email\text.txt -to metinemre@gmail.com -subject "deneme" -f metin@kalemyazilim.com -serversmtp mail.kalemyazilim.com -u metin@kalemyazilim.com -pw sifreniyazburaya'
lnResult = Send(lcCmd)
Wait WINDOW lnresult
lnresult sıfır olunca problem yok demek. hata kodlarının listesi burada. burdan bak eğer yine gönderemezsen böyle çözersin:
http://www.blat.net/examples/blat_return_codes.htm
gerçekten en sorunsuz ve en kolay mail yolu blat'tır. diğerleri windowsunda birşeylerin kurulu olmasını ister hep.
metin hocam anteplinin verdiğini test ettim onu sorunsuz çalıştırdım fakat sizinkini bir türlü devreye sokamadım sizinki daha zahmetsiz gözüküyor bir dll yeterli ama yok hani bazen insan çözmüş ama o yeri yakalayamadığı olur ya öyle sanki kodum aşağıda bir bakabilirmisin hatam nerde
gmailde hesabım var bu hesapla anteplinin yöntemiyle mail atabiliyorum
lcCmd = 'c:\text.txt -t sasmazali@hotmail.com '+;
' -s "deneme" '+;
' -f sasmazali123@gmail.com -server smtp.gmail.com:587 -u sasmazali123@gmail.com -pw şifrem'
hata mesajı 2 baktım sunucu beni yalanlıyor ama bilgilerim doğru
dikkat edersen 2 tane hata mesajı var. bir diğeri de text.txt dosyasını bulamazsa. bence gmail yerine başka birşey dene. gmail reddediyor da olabilir. gmail ile ben de başarılı olamadım ve üzerinde de durmadım. hotmail zaten hiç olmaz.
antepli dosya gönderemiyor böyle bir kod yok diyor addattac.. komutu için
antepli tamam sorunumu çözdüm çalışıyor teşekkür
metin hocam gmailde port 465 bundan doalyı bir sıkıntı olabilirmi 465 portundan eposta göndermemi sağlıyor
gmail ssl istiyormuş ve blat ssl desteklemiyormuş. vs.. vs..
http://www.autohotkey.com/forum/topic4486.html
lcCmd = 'c:\text.txt
burdaki text dosyası nedir yada ne yazılmalı oraya ?
teşekkür işimi hallettim artık e-posta gönderebiliyorum antepli. Teksorun giden mailde türkçe yazı karakterlerini tanımama onu biraz araştırmam gerekecek
-charset 1254
lcCmd = 'c:\text.txt
burdaki text dosyası nedir yada ne yazılmalı oraya ?
oraya mailini yazıyorsun işte.
mail.sasmazali.com.tr:587
mail serverdeki default portu (258 -bendeki 26 imiş) program ile öğrenmek mümkün mü ?
Benim bildiğim kadar: hayır.
Ama verdiğin port numaralar biraz standart dışı. Sanırım şirketin kendi bünyesinde bir mail-server var. IT sorumlusuna soracaksın.
http://en.wikipedia.org/wiki/List_of_TC … rt_numbers
tarik yazdı:lcCmd = 'c:\text.txt
burdaki text dosyası nedir yada ne yazılmalı oraya ?
oraya mailini yazıyorsun işte.
mail atmayı sadece dosya göndermek olarak düşündüğüm için anlayamamışım ,kusuruma bakma ,olayı ihtiyacıma göre yorumlamışım:)
peki şöyle sorsam kodu çalıştırmak için notepad te bir text dosyası oluşturmuştum, böyle bir dosya (text dosyası) oluşturmak istesek fox içinden nasıl yapabilirim
strtofile("dfofdofdofdokfosd","myfile.txt")