Autoplay media studio Email gönderim sistemi (Ams Email Sistemi) Test Edildi

[guclusat]

-- Where is the mail form hosted?
-- Set this to the server where the script was uploaded
-- (and maybe change its name)
theURL = "http://www.uydudoktoru.com/mail_yolla/mailform.php";

-- Check if online
online = HTTP.TestConnection(theURL);
if (online) then
    -- Disable button to avoid repeated submits
    Button.SetEnabled("Button1", false);
    -- Submit data to mail form
    text = Input.GetText("Input1");
    res = HTTP.Submit(theURL, { action="Submit", comment=text }, SUBMITWEB_POST);
    if (res == "OK") then
        Dialog.Message("Bilgi", "Mesajınız başarıyla gönderildi", MB_OK);
        Application.Exit();
    else
        Dialog.Message("Hata Mesajı", "Mesaj gönderilemedi:\r\n" .. res, MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
    end
    Button.SetEnabled("Button1", true);
else
    -- Oops!
    Dialog.Message("Hata Mesajı", "Mesajınız Gönderilemesi, İnternet Bağlantınızda sorun olabilir aha Sonra Yeniden Deneyiniz", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end

APZ dosyasını ekte sunuyorum Bu kodların çalışması için mail.php dosya hazırlayıp ftp adresinize göndermeniz gerekiyor.

program mesajı gönderince otomatik olarak kapanacaktır aynı anda bir kaç mail adresi verebilirsiniz.mail sistemi biraz daha geliştirilebilir.

 

[guclusat]

Programın çalışan hali

işte programın hazır yapılmış çalışan tam versiyonu apz olmadığından üzerinde değişiklikler yapma şansınız yok denem için foruma ekliyorum.

 

[LazAlican]

güzel paylasım yaptıgın programların kenarına ufak bi yere eklersın sorunu olan ordan ulasabılır sana