İletişim Formu

[FİRE BİRD]

Fazla örnek göz çıkarmaz...

Page1 On Show

draw_no = Math.Random(10000);
TBCount = Table.Count(GeneratedNumbers);

if TBCount == 0 then
	Table.Insert(GeneratedNumbers, 1, draw_no);
	Input.SetVisible("security", false);
	Input.SetText("security", draw_no);
	Input.SetVisible("security", true);

else
	NumFind = false;
	for i,j in GeneratedNumbers do
		if draw_no == j then NumFind = true; end
	end

	if not NumFind then 
	Input.SetVisible("security", false);
	Input.SetText("security", draw_no);
	Input.SetVisible("security", true);

	Table.Insert(GeneratedNumbers, TBCount+1, draw_no);		
	end
end

Buton On Click

error = 0;
-- %%%%%%%%%%%%%%%%%% --
ad = Input.GetText("ad");
mail = Input.GetText("mail");
konu = Input.GetText("konu");
mesaj = Input.GetText("mesaj");
verify = Input.GetText("verify");
-- %%%%%%%%%%%%%%%%%% --
if String.Length(ad) < 1 then
Dialog.Message("Uyarı", "Lütfen Boş Alanları Doldurunuz.", MB_OK, MB_ICONEXCLAMATION);
error = 1;
end
if String.Length(mail) < 1 then
Dialog.Message("Uyarı", "Lütfen Boş Alanları Doldurunuz.", MB_OK, MB_ICONEXCLAMATION);
error = 1;
end
if String.Length(konu) < 1 then
Dialog.Message("Uyarı", "Lütfen Boş Alanları Doldurunuz.", MB_OK, MB_ICONEXCLAMATION);
error = 1;
end
if String.Length(mesaj) < 1 then
Dialog.Message("Uyarı", "Lütfen Boş Alanları Doldurunuz.", MB_OK, MB_ICONEXCLAMATION);
error = 1;
end
if String.Length(verify) < 1 then
Dialog.Message("Uyarı", "Lütfen Güvenlik Kodunu Giriniz.", MB_OK, MB_ICONEXCLAMATION);
error = 1;
end
if error~=1 then
-- %%%%%%%%%%%%%%%%%% --
tblMailProperties = {};
tblMailProperties.FromName = (Input.GetText("ad"));
tblMailProperties.FromEmail = (Input.GetText("mail"));
tblMailProperties.HtmlBody = (Input.GetText("mesaj"));
tblMailProperties.Subject = (Input.GetText("konu"));
tblMailProperties.To = "[email protected]"; -- gönderilecek adres
tblMailProperties.CC = (Input.GetText("mail"));
tblMailProperties.BCC = ""; 
-- %%%%%%%%%%%%%%%%%% --
tblServerProperties = {};
tblServerProperties.Server = "smtp.gmail.com";
tblServerProperties.ServerPort = 465;
tblServerProperties.UseSSL = true;  
tblServerProperties.Authenticated = true;  
tblServerProperties.UserName = "[email protected]"; -- gmail adresiniz 
tblServerProperties.PassWord = "*********"; -- gmail sifreniz            
-- %%%%%%%%%%%%%%%%%% --
a = Input.GetText("security"); 
b = Input.GetText("verify");
if a == b then 
result = SMTP.SendMail(tblMailProperties, tblServerProperties);
Dialog.Message("İletişim Formu", "Mesajınız başarıyla gönderildi!", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

Apz

http://www.4shared.com/file/houYstmW/iletiim-formu.html[/CODE]

SMTP Action Plugin

[CODE]http://www.amsplugins.com/download.asp?ID=78&CID=1&SEC=58366f4339b7788914d3c8fa1713e291[/CODE]