Abrir outlook no Windows 7

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
elkabong
Rank: Programador Pleno
Rank: Programador Pleno
Mensagens: 41
Registrado em: Seg, 31 Jul 2006 2:00 pm
Localização: Blumenau - SC

Buenas,

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.

Selecionar tudo

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;
elkabong
Rank: Programador Pleno
Rank: Programador Pleno
Mensagens: 41
Registrado em: Seg, 31 Jul 2006 2:00 pm
Localização: Blumenau - SC

Versão do Reports usado.

Report Builder 6.0.8.25.0
ORACLE Server Release 8.0.6.0.0
Oracle Procedure Builder 6.0.8.21.0
Oracle ORACLE PL/SQL V8.0.6.3.0 - Production
Oracle CORE Version 4.0.6.0.0 - Production
Oracle Tools Integration Services 6.0.8.18.0
Oracle Tools Common Area 6.0.8.18.0
Oracle Toolkit 2 para plataformas de 32 bits do Windows 6.0.8.25.0
Resource Object Store 6.0.8.21.0
Oracle Help 6.0.8.25.0
Oracle Sqlmgr 6.0.8.18.0
Oracle Query Builder 6.0.7.1.0 - Production
PL/SQL Editor (c) WinMain Software (www.winmain.com), v1.0 (Production)
Oracle ZRC 6.0.8.22.0
Oracle Express 6.0.8.3.4
Oracle XML Parser 1.0.2.1.0 Production
Oracle Virtual Graphics System 6.0.5.38.0
Oracle Image 6.0.8.25.0
Oracle Multimedia Widget 6.0.8.25.0
Oracle Tools GUI Utilities 6.0.8.25.0
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Nenhum usuário registrado e 15 visitantes