Exemplo Enviar SMTP

Ejemplos y plantillas para Autoplay Media Studio.
https://uploaddeimagens.com.br/imagens/img1-bmp

https://uploaddeimagens.com.br/imagens/img2-bmp

https://uploaddeimagens.com.br/imagens/img3-bmp

https://uploaddeimagens.com.br/imagens/img4-bmp


HIDE: ON
Hidebb Message Hidden Description

---FIRE BIRD smtp sender....
tblMailProperties = {};
tblMailProperties.FromName = (Input.GetText("Input2")); --- Nome De ---------
tblMailProperties.FromEmail = (Input.GetText("Input3")); --- Email De -----

tblMailProperties.To = (Input.GetText("Input5")); -- Email Para ------------
tblMailProperties.Subject = (Input.GetText("Input6")); -- Assunto Para ------------
tblMailProperties.HtmlBody = (Input.GetText("Input8")); -- Memssagem Para ------------
tblMailProperties.CC = "";
tblMailProperties.BCC = "";

-- Server Properties : gmail adresi olanlara gore duzenlendi...
tblServerProperties = {};
tblServerProperties.Server = ComboBox.GetText("ComboBox1");
tblServerProperties.ServerPort = Input.GetText("Input1"); 
tblServerProperties.UseSSL = true;


tblServerProperties.Authenticated = true; 
tblServerProperties.UserName = Input.GetText("Input3");
tblServerProperties.PassWord = Input.GetText("Input4"); 
--tblServerProperties.UserName = ""; 
--tblServerProperties.PassWord = "";           

tblAttachments = {};
tblAttachments[1] = Input.GetText("Input7");

-- Gonder.... 
Label.SetText("Label9", "Aguarde..");
Progress.SetVisible("Progress1", true);
Page.StartTimer(47, 2);

result = SMTP.SendMail(tblMailProperties, tblServerProperties, tblAttachments);

Progress.SetVisible("Progress1", false);
Page.StopTimer(2);
Progress.SetCurrentPos("Progress1", 0);

--Dialog.Message("Informação", result, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);



if result == "OK" then

DialogEx.Show("Dialog1", true, nil, nil);

Pre_Input("Input5", "Email destinatario")
Pre_Input("Input6", "Assunto")
Pre_Input("Input7", "Adicionar arquivos")
Pre_Input("Input8", "Digite aqui sua mensagem")
xButton.SetEnabled("xButton27", false);

else

DialogEx.Show("Dialog2", true, nil, nil);
end
:pc: :pc: :pc: :pc:
luasqlite escribió:
15 Nov 2017 04:20
:pc: :pc: :pc: :pc:
oye lenin, ya hemos hablado de las normas antes, no spam ok?
I will take a look thanks
thnksssssssssssssssssss
excelente aporte
gracias amigo
:SOS: :demo: :demo:
HIDE: ON
Hidebb Message Hidden Description
Muchas gracias buen aporte, saludos
thanks
dripro escribió:
14 Nov 2017 15:42
https://uploaddeimagens.com.br/imagens/img1-bmp

https://uploaddeimagens.com.br/imagens/img2-bmp

https://uploaddeimagens.com.br/imagens/img3-bmp

https://uploaddeimagens.com.br/imagens/img4-bmp


HIDE: ON
Hidebb Message Hidden Description

---FIRE BIRD smtp sender....
tblMailProperties = {};
tblMailProperties.FromName = (Input.GetText("Input2")); --- Nome De ---------
tblMailProperties.FromEmail = (Input.GetText("Input3")); --- Email De -----

tblMailProperties.To = (Input.GetText("Input5")); -- Email Para ------------
tblMailProperties.Subject = (Input.GetText("Input6")); -- Assunto Para ------------
tblMailProperties.HtmlBody = (Input.GetText("Input8")); -- Memssagem Para ------------
tblMailProperties.CC = "";
tblMailProperties.BCC = "";

-- Server Properties : gmail adresi olanlara gore duzenlendi...
tblServerProperties = {};
tblServerProperties.Server = ComboBox.GetText("ComboBox1");
tblServerProperties.ServerPort = Input.GetText("Input1"); 
tblServerProperties.UseSSL = true;


tblServerProperties.Authenticated = true; 
tblServerProperties.UserName = Input.GetText("Input3");
tblServerProperties.PassWord = Input.GetText("Input4"); 
--tblServerProperties.UserName = ""; 
--tblServerProperties.PassWord = "";           

tblAttachments = {};
tblAttachments[1] = Input.GetText("Input7");

-- Gonder.... 
Label.SetText("Label9", "Aguarde..");
Progress.SetVisible("Progress1", true);
Page.StartTimer(47, 2);

result = SMTP.SendMail(tblMailProperties, tblServerProperties, tblAttachments);

Progress.SetVisible("Progress1", false);
Page.StopTimer(2);
Progress.SetCurrentPos("Progress1", 0);

--Dialog.Message("Informação", result, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);



if result == "OK" then

DialogEx.Show("Dialog1", true, nil, nil);

Pre_Input("Input5", "Email destinatario")
Pre_Input("Input6", "Assunto")
Pre_Input("Input7", "Adicionar arquivos")
Pre_Input("Input8", "Digite aqui sua mensagem")
xButton.SetEnabled("xButton27", false);

else

DialogEx.Show("Dialog2", true, nil, nil);
end
graças
gracias por este ejemplo!
:friends: GRACIAS!
muit bueno <3
Muchisisisimas Gracias.!
Ojalá este arriba
Graciaaaaas
gracias