GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
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
Conecte-se…
pedrosao
#1
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!
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto