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