Amigos, alguém tem alguma idéia de como faço para desviar de uma mensagem de
segurança alertando que um programa esta utilizando o catálogo de endereços.

Não quero que quando meu formulário seja carregado ele exiba a mensagens
solicitando ao usuário quanto tempo ainda falta para concluir a operação.

Abaixo um exemplo do código para uma melhor compreensão.

'ativa o cdo para forçar o logon
Set objCDO = Application.CreateObject("MAPI.Session")
objCDO.Logon "", "", False, False, 0

'seta as variáveis de objeto
Set MyNameSpace = Application.GetNamespace("MAPI")
Set BldFolder = MyNameSpace.Folders("Caixa de correio - Teste")
Set QuickFolder = BldFolder.Folders("Equipamentos")
Set MyItems = QuickFolder.Items
Set MyItem = MyItems.Add("IPM.Note.Equipamentos")
Set objFormTab = MyItem.GetInspector.ModifiedFormPages("Capa")
Set MyAddressList = MyNameSpace.AddressLists("Lista de endereços global")

'definindo conexão com o banco de dados e abrindo o record set
Const strActiveConnection = "DRIVER=SQL
Server;DSN=TESTE;SERVER=TESTE;DATABASE=TESTE;UID=TESTE;PWD=TESTE;" 'CONEXAO
TESTE PRODUÇÃO
Const strSQL = "select CTT_DESC01 from CTT010 where CTT_CLASSE = '2' and
CTT_BLOQ = '2' and CTT_FILIAL = '01' order by CTT_DESC01"
Dim cnx1 As Object
Dim rst1 As Object
Set cnx1 = CreateObject("ADODB.Connection")
Set rst1 = CreateObject("ADODB.Recordset")
cnx1.Open strActiveConnection 'atribuindo a conexão
rst1.Open strSQL, cnx1 'Abrindo o recordset
Set ExecuteSQL = rst1

'buscando o nome do cadastrante e preenchendo o label de solicitante e
solicitante aprovador
Set objLbSolicitanteNome = objFormTab.Controls("LbSolicitanteNome")
Set objLbSolicitanteAprovadorValor =
objFormTab.Controls("LbSolicitanteAprovadorValor")

objLbSolicitanteNome.Caption = objCDO.CurrentUser --> O ERRO ACONTECE
AQUI


GRATO PELA AJUDA

Não há muitas alternativas para contornar este bloqueio.

Uma das mais populares, embora pareça meio tabajara, é a ClickYes:
http://www.contextmagic.com/express-clickyes/

--
Luiz Cláudio C. V. Rocha
Coordenador FórumAccess
São Paulo - Brasil
MVP Office
http://www.msmvps.com/officedev


"Anderson Gomes" escreveu:

> Amigos, alguém tem alguma idéia de como faço para desviar de uma mensagem de
> segurança alertando que um programa esta utilizando o catálogo de endereços.
>
> Não quero que quando meu formulário seja carregado ele exiba a mensagens
> solicitando ao usuário quanto tempo ainda falta para concluir a operação.
>
> Abaixo um exemplo do código para uma melhor compreensão.
>
> 'ativa o cdo para forçar o logon
> Set objCDO = Application.CreateObject("MAPI.Session")
> objCDO.Logon "", "", False, False, 0
>
> 'seta as variáveis de objeto
> Set MyNameSpace = Application.GetNamespace("MAPI")
> Set BldFolder = MyNameSpace.Folders("Caixa de correio - Teste")
> Set QuickFolder = BldFolder.Folders("Equipamentos")
> Set MyItems = QuickFolder.Items
> Set MyItem = MyItems.Add("IPM.Note.Equipamentos")
> Set objFormTab = MyItem.GetInspector.ModifiedFormPages("Capa")
> Set MyAddressList = MyNameSpace.AddressLists("Lista de endereços global")
>
> 'definindo conexão com o banco de dados e abrindo o record set
> Const strActiveConnection = "DRIVER=SQL
> Server;DSN=TESTE;SERVER=TESTE;DATABASE=TESTE;UID=TESTE;PWD=TESTE;" 'CONEXAO
> TESTE PRODUÇÃO
> Const strSQL = "select CTT_DESC01 from CTT010 where CTT_CLASSE = '2' and
> CTT_BLOQ = '2' and CTT_FILIAL = '01' order by CTT_DESC01"
> Dim cnx1 As Object
> Dim rst1 As Object
> Set cnx1 = CreateObject("ADODB.Connection")
> Set rst1 = CreateObject("ADODB.Recordset")
> cnx1.Open strActiveConnection 'atribuindo a conexão
> rst1.Open strSQL, cnx1 'Abrindo o recordset
> Set ExecuteSQL = rst1
>
> 'buscando o nome do cadastrante e preenchendo o label de solicitante e
> solicitante aprovador
> Set objLbSolicitanteNome = objFormTab.Controls("LbSolicitanteNome")
> Set objLbSolicitanteAprovadorValor =
> objFormTab.Controls("LbSolicitanteAprovadorValor")
>
> objLbSolicitanteNome.Caption = objCDO.CurrentUser --> O ERRO ACONTECE
> AQUI
>
>
> GRATO PELA AJUDA
>
>
>
>
>
>

Clica em cancelar.