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
Nenhum comentário:
Postar um comentário