PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 25
→
Aula 1006 - WinDev - Email - 2 - Separar Emails por ;
Aula 1006 - WinDev - Email - 2 - Separar Emails por ;
Started by amarildo, Dec., 22 2016 10:56 AM - No answer
Connect yourself…
amarildo
#1
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on December, 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
Report
0
0
→ Go back to WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text