Tenho alguns fontes onde o usuário pode enviar um relatório por email. Tem um botão na tela que abre o Microsoft Outlook já com o arquivo anexado, só para o usuário informar os endereços de email.
Porém, só funciona com o Microsoft Outlook 2003, em máquinas com o Windows 7 e Microsoft Outlook 2007 isso não acontece.
Conhecem alguma limitação em relação a isso ?
Abaixo o código de geração do relatório.
PROCEDURE prc_env_rel_email IS
va_paramlist paramlist;
CURSOR cur_destina(prm_cd_seq_evento qs_evento_sst_email.cd_seq_evento%TYPE) IS
SELECT ds_email
,nm_usuario_email
,id_forma_envio
FROM qs_evento_sst_email
WHERE cd_tipo_pessoa_empresa = :GLOBAL.cd_tipo_pessoa_empresa
AND cd_pessoa_empresa = :GLOBAL.cd_pessoa_empresa
AND cd_tipo_pessoa_filial = :GLOBAL.cd_tipo_pessoa_filial
AND cd_pessoa_filial = :GLOBAL.cd_pessoa_filial
AND cd_seq_evento = prm_cd_seq_evento
AND id_ativo = 'S';
CURSOR cur_serie_nota_fiscal IS
SELECT cd_seq_evento_env
FROM qs_serie_nota_fiscal
WHERE cd_tipo_pessoa_empresa = :GLOBAL.cd_tipo_pessoa_empresa
AND cd_pessoa_empresa = :GLOBAL.cd_pessoa_empresa
AND cd_tipo_pessoa_filial = :GLOBAL.cd_tipo_pessoa_filial
AND cd_pessoa_filial = :GLOBAL.cd_pessoa_filial
AND cd_serie_nota_fiscal = (SELECT cd_serie_nota_fiscal
FROM qs_nota_fiscal
WHERE cd_tipo_pessoa_empresa = :GLOBAL.cd_tipo_pessoa_empresa
AND cd_pessoa_empresa = :GLOBAL.cd_pessoa_empresa
AND cd_tipo_pessoa_filial = :GLOBAL.cd_tipo_pessoa_filial
AND cd_pessoa_filial = :GLOBAL.cd_pessoa_filial
AND cd_nota_fiscal = :t5590.cd_nota_fiscal)
AND cd_modelo_doc_fiscal = (SELECT cd_modelo_doc_fiscal
FROM qs_nota_fiscal
WHERE cd_tipo_pessoa_empresa = :GLOBAL.cd_tipo_pessoa_empresa
AND cd_pessoa_empresa = :GLOBAL.cd_pessoa_empresa
AND cd_tipo_pessoa_filial = :GLOBAL.cd_tipo_pessoa_filial
AND cd_pessoa_filial = :GLOBAL.cd_pessoa_filial
AND cd_nota_fiscal = :t5590.cd_nota_fiscal);
wrk_ds_email_para VARCHAR2(1000) := NULL;
BEGIN
IF :t5590.cd_nota_fiscal IS NOT NULL THEN
FOR reg_serie_nota_fiscal IN cur_serie_nota_fiscal LOOP
FOR reg_destina IN cur_destina(reg_serie_nota_fiscal.cd_seq_evento_env) LOOP
IF reg_destina.ds_email IS NOT NULL THEN
wrk_ds_email_para := wrk_ds_email_para||reg_destina.ds_email||',';
END IF;
END LOOP;
END LOOP;
va_paramlist := get_parameter_list('FAT1080R');
IF NOT id_null(va_paramlist) THEN
destroy_parameter_list(va_paramlist);
END IF;
va_paramlist := create_parameter_list('FAT1080R');
add_parameter(va_paramlist,'PRM_CD_TIPO_PESSOA_EMPRESA',text_parameter, :GLOBAL.cd_tipo_pessoa_empresa);
add_parameter(va_paramlist,'PRM_CD_PESSOA_EMPRESA',text_parameter, :GLOBAL.cd_pessoa_empresa);
add_parameter(va_paramlist,'PRM_CD_TIPO_PESSOA_FILIAL',text_parameter, :GLOBAL.cd_tipo_pessoa_filial);
add_parameter(va_paramlist,'PRM_CD_PESSOA_FILIAL',text_parameter, :GLOBAL.cd_pessoa_filial);
add_parameter(va_paramlist,'PRM_CD_SAIDA_ASSISTENCIA_TEC',text_parameter, :t5590.cd_saida_assistencia_tec);
add_parameter(va_paramlist,'copies',text_parameter,1);
add_parameter(va_paramlist,'paramform',text_parameter,'NO');
add_parameter(va_paramlist,'DESTYPE',text_parameter,'MAIL');
add_parameter(va_paramlist,'DESNAME',text_parameter,wrk_ds_email_para);
add_parameter(va_paramlist,'DESFORMAT',text_parameter,'PDF');
add_parameter(va_paramlist,'BATCH',text_parameter,'NO');
add_parameter(va_paramlist,'ORACLE_SHUTDOWN',text_parameter,'YES');
IF wrk_ds_email_para IS NOT NULL THEN
run_product(reports,'FAT1080R',synchronous,runtime,filesystem,va_paramlist,NULL);
END IF;
destroy_parameter_list(va_paramlist);
END IF;
EXCEPTION
WHEN form_trigger_failure THEN
RAISE form_trigger_failure;
END;