Aula 1006 - WinDev - Email - 2 - Separar Emails por ;

---

---

---

Video no Youtube Se Gostou clique aqui para dar joinha

---

http://doc.windev.com/en-US/?1510017&name=FOR_EACH_Controls

---

//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)

---

EmailOpenMail - Windev Curso Email - 1
FOR EACH email - Windev Curso Email - 2

CERTIFICACAO - SOLUCAO - EMAILCONFIGURE -EMAIL 003 - AULA 1277

---

---

---

---

---

---