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
https://uploaddeimagens.com.br/imagens/img2-bmp
https://uploaddeimagens.com.br/imagens/img3-bmp
https://uploaddeimagens.com.br/imagens/img4-bmp
---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