FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
Aula 1006 - WinDev - Email - 2 - Separar Emails por ;
Aula 1006 - WinDev - Email - 2 - Separar Emails por ;
Iniciado por amarildo, 22,dic. 2016 10:56 - No hay respuesta
Conéctese…
amarildo
#1
Miembro registrado
535 mensajes
Popularité : +14 (14 votes)
Publicado el 22,diciembre 2016 - 10:56
//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
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto