Página 1 de 1

Exemplo Enviar SMTP

Publicado: 14 Nov 2017 15:42
por dripro
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

Re: Exemplo Enviar SMTP

Publicado: 15 Nov 2017 04:20
por luasqlite
:pc: :pc: :pc: :pc:

Re: Exemplo Enviar SMTP

Publicado: 17 Nov 2017 19:23
por Pabloko
luasqlite escribió:
15 Nov 2017 04:20
:pc: :pc: :pc: :pc:
oye lenin, ya hemos hablado de las normas antes, no spam ok?

Re: Exemplo Enviar SMTP

Publicado: 11 Dic 2017 21:06
por mecivic
I will take a look thanks

Re: Exemplo Enviar SMTP

Publicado: 19 Dic 2017 03:04
por oussemaTN
thnksssssssssssssssssss

Re: Exemplo Enviar SMTP

Publicado: 05 Feb 2018 21:28
por Triplenet
excelente aporte

Re: Exemplo Enviar SMTP

Publicado: 17 Feb 2018 05:32
por kantigo
gracias amigo

Re: Exemplo Enviar SMTP

Publicado: 20 Feb 2018 22:26
por Hello World
:SOS: :demo: :demo:

Re: Exemplo Enviar SMTP

Publicado: 04 Jun 2018 04:27
por Chilepunk20182018
HIDE: ON
Hidebb Message Hidden Description

Re: Exemplo Enviar SMTP

Publicado: 05 Jun 2018 04:46
por Bushakas
Muchas gracias buen aporte, saludos

Re: Exemplo Enviar SMTP

Publicado: 14 Jun 2018 20:45
por THEBEST1
thanks

Re: Exemplo Enviar SMTP

Publicado: 09 Jul 2018 01:03
por bierco
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

Re: Exemplo Enviar SMTP

Publicado: 26 Jul 2018 13:52
por patch
graças

Re: Exemplo Enviar SMTP

Publicado: 03 Ago 2018 08:02
por er_manue
gracias por este ejemplo!

Re: Exemplo Enviar SMTP

Publicado: 30 Sep 2018 05:44
por RolandoLT
:friends: GRACIAS!

Re: Exemplo Enviar SMTP

Publicado: 04 Oct 2018 20:25
por andrea
muit bueno <3