Mail

[KintaRo]

[quote]http://www.tnctr.com/Index.php?app=core&module=search&search_in=forums[/quote]

?

[Kral__]

o deil senin verdiğin linkler hep silinmiş onu diom

[KintaRo]

[quote]http://www.tnctr.com/topic/182346-oernek-dosyalar/[/quote]

?

[pcusta_99]

Ellerinize sağlık. KintaRo hocam sizin verdiğinizi indirdim ilk önce çalışmadı, arkadaşın verdiğini denedim çalışıyor. Acaba ne sorun olabilir ?

Mail in iki kişiye birden gönderilmesini, mesaj olarak sadece bir inputun değil, input7, input8 deki yazanlarında mesaj olarak gönderilmesini istiyorum. Bunu nasıl yapabilirim ?

Edited November 14, 2011 by Bilinchard

[leonx038]

APZ linkleri kırık yenılermısınız lütfen.

[nightmare3519]

Kintaro abi paylaşmış zaten. Yukarıda link bile vermiş dosyalar burada diye

 

http://www.mediafire.com/?hiddyaccq420n0v

[leonx038]

Bu örneği biraz geliştirerek açıklamalarla beraber hazırladım.

Ekran Görüntüsü:



Proje Dosyası ve Plugin:
 

http://www.tamotomatik.org/dosya/SMTP.zip

Gönder Button Kodları:

CODE

name = Input.GetText("isim") -- isimdeki metni al
mail = Input.GetText("mail")-- maildeki metni al
subject = Input.GetText("konu") -- konudaki metni al
msg = Input.GetText("mesaj") -- mesajdaki metni al
guvenlik1 = Input.GetText("guvenlik") -- girilen guvenlik kodunu al
guvenlik2 = Paragraph.GetText("Paragraph1") -- gorunen guvenlik kodunu al

-- eğer isim veya mail veya konu veya mesaj boş değilse ve güvenlik1 guvenlik2 ye eşitse
if name ~= "" and mail ~= "" and subject ~= "" and msg ~= "" and guvenlik1 == guvenlik2 then

tblMailProperties = {};
tblMailProperties.FromName = name; -- girilen isim
tblMailProperties.FromEmail = mail; -- girilen mail
tblMailProperties.To = "BURAYA MAİL ADRESİNİZİ YAZIN"; -- gönderilecek adres
tblMailProperties.HtmlBody = msg; -- girilen mesaj
tblMailProperties.Subject = subject; -- girilen konu
tblMailProperties.CC = ""; -- bilgi
tblMailProperties.BCC = ""; -- gizli

tblServerProperties = {};
tblServerProperties.Server = "smtp.gmail.com"; -- smtp adresi
tblServerProperties.ServerPort = 465; -- smtp portu
tblServerProperties.UseSSL = true; -- SSL kullan

tblServerProperties.Authenticated = true; -- Doğrulama
tblServerProperties.UserName = "BURAYA GMAİL ADRESİNİZİ YAZIN"; -- gmail adresiniz
tblServerProperties.PassWord = "BURAYA GMAİL ŞİFRENİZİ YAZIN"; -- şifreniz

Button.SetEnabled("Button1", false) -- buttonu pasif et
result = SMTP.SendMail(tblMailProperties, tblServerProperties, ""); --maili gönder

Dialog.Message("İletişim Formu", "Mesajınız başarıyla gönderildi!", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); -- ok mesajı ver
-- inputlari temizle
Input.SetText("isim", "")
Input.SetText("mail", "")
Input.SetText("konu", "")
Input.SetText("mesaj", "")
else -- hata varsa
Dialog.Message("Hata", "Lütfen gerekli alanları doldurunuz.", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1); -- hata mesajı ver
end
Button.SetEnabled("Button1", true) -- buttonu aktif et

 

 

Kendi smtp Adresimizi Ve Özel Mailimizin Bilgilerini Yazarsak Bu Proje Çalışırmı ??

[nightmare3519]

Evet çalışır, tamamen güvenlidir. Yazabilirsin denedim ben.

Edited January 27, 2013 by nightmare3519

[KintaRo]

Diğer kullanıcılara dağıtacağınız programların içine yazmayın yalnız. AMS kodları görüntülenebildiği için lamerlerin eline geçebilir.

[superhalit]

Bu örneği biraz geliştirerek açıklamalarla beraber hazırladım.

Ekran Görüntüsü:



Proje Dosyası ve Plugin:
 

http://www.tamotomatik.org/dosya/SMTP.zip

Gönder Button Kodları:

CODE

name = Input.GetText("isim") -- isimdeki metni al
mail = Input.GetText("mail")-- maildeki metni al
subject = Input.GetText("konu") -- konudaki metni al
msg = Input.GetText("mesaj") -- mesajdaki metni al
guvenlik1 = Input.GetText("guvenlik") -- girilen guvenlik kodunu al
guvenlik2 = Paragraph.GetText("Paragraph1") -- gorunen guvenlik kodunu al

-- eğer isim veya mail veya konu veya mesaj boş değilse ve güvenlik1 guvenlik2 ye eşitse
if name ~= "" and mail ~= "" and subject ~= "" and msg ~= "" and guvenlik1 == guvenlik2 then

tblMailProperties = {};
tblMailProperties.FromName = name; -- girilen isim
tblMailProperties.FromEmail = mail; -- girilen mail
tblMailProperties.To = "BURAYA MAİL ADRESİNİZİ YAZIN"; -- gönderilecek adres
tblMailProperties.HtmlBody = msg; -- girilen mesaj
tblMailProperties.Subject = subject; -- girilen konu
tblMailProperties.CC = ""; -- bilgi
tblMailProperties.BCC = ""; -- gizli

tblServerProperties = {};
tblServerProperties.Server = "smtp.gmail.com"; -- smtp adresi
tblServerProperties.ServerPort = 465; -- smtp portu
tblServerProperties.UseSSL = true; -- SSL kullan

tblServerProperties.Authenticated = true; -- Doğrulama
tblServerProperties.UserName = "BURAYA GMAİL ADRESİNİZİ YAZIN"; -- gmail adresiniz
tblServerProperties.PassWord = "BURAYA GMAİL ŞİFRENİZİ YAZIN"; -- şifreniz

Button.SetEnabled("Button1", false) -- buttonu pasif et
result = SMTP.SendMail(tblMailProperties, tblServerProperties, ""); --maili gönder

Dialog.Message("İletişim Formu", "Mesajınız başarıyla gönderildi!", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); -- ok mesajı ver
-- inputlari temizle
Input.SetText("isim", "")
Input.SetText("mail", "")
Input.SetText("konu", "")
Input.SetText("mesaj", "")
else -- hata varsa
Dialog.Message("Hata", "Lütfen gerekli alanları doldurunuz.", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1); -- hata mesajı ver
end
Button.SetEnabled("Button1", true) -- buttonu aktif et

abicim ben tamotomatik.com a giremiyorum neden

[KintaRo]

tamotomatik ismiyle verilen tüm dosyalar şu adreste mevcut:

 

http://www.tnctr.com/topic/182346-oernek-dosyalar/