PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → [WEBDEV 19] Enviar e-mail desde uma aplicação Webdev
[WEBDEV 19] Enviar e-mail desde uma aplicação Webdev
Iniciado por pedrosao, fev., 21 2015 3:26 AM - Sem resposta
Membro registado
42 mensagems
Popularité : +7 (7 votes)
Publicado em fevereiro, 21 2015 - 3:26 AM
Procedure envia_email()
IF NOT HReadSeekFirst(tabsetup,tabsetupID,1) THEN
Error("Erro na leitura do tabsetup")
RETURN
END
mensagem is Email
sessao is EmailSMTPSession
anexo is EmailAttach

mensagem..Sender=tabsetup.tabsetup_conta //remetente

IF garquivo <> "" THEN
anexo..Name=garquivo
anexo..Content=fLoadText(anexo..Name)
Add(mensagem..Attach,anexo)
END

//mensagem..Message=EDT_Mensagem // mensagem
mensagem..HTML=EDT_Mensagem // mensagem
mensagem..Subject=EDT_Assunto // assunto
IF destino <> "" THEN
EDT_Destinatario=destino
END
Add(mensagem..Recipient,EDT_Destinatario) // acrescenta destinatario
sessao.ServerAddress=tabsetup.tabsetup_servidor
sessao.Port=tabsetup.tabsetup_porta
IF tabsetup.tabsetup_seguranca = 2 THEN
sessao.Option=emailOptionSecuredTLS
END
sessao.Password=tabsetup.tabsetup_senha
sessao.Name=tabsetup.tabsetup_conta

EmailSetTimeOut(10)
IF EmailStartSession(sessao) = False THEN
Error("Erro no envio do email")
ELSE
EmailSendMessage(sessao,mensagem)
EmailCloseSession(sessao)
Error("Email enviado com sucesso!")
END

Obrigado ao Paulo Viana, pelo envio deste código!