GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Aula 1006 - WinDev - Email - 2 - Separar Emails por ;
Aula 1006 - WinDev - Email - 2 - Separar Emails por ;
Iniciado por amarildo, dez., 22 2016 10:56 AM - Sem resposta
Conecte-se…
amarildo
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 22 2016 - 10:56 AM
//Vamos Separar o email quem vem no destinatario entre ;
//e colocar numa tabela de email
//amarildo@matosinformatica.com.br;matosi@terra.com.br;roque@rjsistemas.net
FOR EACH
Email WHERE
"id_empresa="
+
gn
_recebe_empresa
EDT_
Usuario
=
Email
.
email_nome_usuario
EDT_
senha
=
Email
.
email_senha
EDT_
servidor_smtp
=
Email
.
email_smtp
//"smtp.gmail.com"
EDT_
porta
=
Email
.
email_porta_smtp
//587
COMBO_
tls
=
Email
.
tls
//1 // 1=false 2=Nenhuma opção
EDT_
emailResposta
=
Email
.
email_resposta
BREAK
END
EDT_
id_empresa
=
gn
_recebe_empresa
EDT_
destinatario
=
email_Destinatario
EDT_
assunto
=
email_assunto
EDT_
Mensagem
=
email_Mensagem
IF
email_Anexo
..
Occurrence
>
0
THEN
FOR ncontador
=
1
TO email_Anexo
..
Occurrence
TableAddLine
(
TABLE_
anexo
,
email_Anexo
[
ncontador
]
)
END
END
IF
EDT_
emailResposta
<
>
""
THEN
TableAddLine
(
TABLE_
email
,
EDT_
emailResposta
)
END
FOR EACH
STRING
_Email OF
EDT_
destinatario
SEPAREE
by
";"
IF
_Email
<
>
""
THEN
// Se _Email diferente branco
TableAddLine
(
TABLE_
email
,
_Email
)
END
END
EDT_
destinatario
=
""
// Edt Destinatario igual branco
TableDisplay
(
TABLE_
email
)
TableDisplay
(
TABLE_
anexo
)
MyWindow
..
Plane
=
1
ReturnToCapture
(
EDT_
destinatario
)
http://windevdesenvolvimento.blogspot.com.br/2016/12/aula-1006-windev-email-2-separar-emails.html
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