OL: Um exemplo suplemento que usa o modelo de suplemento do Visual Basic 6.0

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 316983
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Este artigo descreve como usar o Microsoft Visual Basic 6.0 e o seu modelo de suplemento padrão para criar um suplemento de COM (Component Object Model) do Outlook. O suplemento de exemplo implementa o evento ItemSend do Outlook, para que você pode salvar mensagens de email enviadas específicas em uma pasta diferente na pasta Itens enviados.
Mais Informações
Microsoft Office 2000 (e posterior) dá suporte ao COM adicionar-ins. desenvolvedores podem usar suplementos de COM para criar suplementos para aprimoram e controlam programas do Office. Uma das principais vantagens de suplementos é que eles fornecem uma arquitetura de design uniforme para criar suplementos do Office.

Suplemento COM eventos

A maioria dos suplementos do Outlook, você usa os dois principais eventos a seguir.

O evento "OnConnection"

O evento OnConnection é iniciado quando o suplemento está conectado. O add-in pode ser conectado quando o Outlook inicia, pelo usuário, ou usando automação no Outlook. Se o evento OnConnection retorna com êxito, o suplemento será considerado carregado. Caso contrário, a referência para o suplemento é lançada e destruída pelo aplicativo host.

O evento OnConnection tem os quatro parâmetros a seguir:
  • aplicativo . Uma referência ao objeto do aplicativo host.
  • ConnectMode . Uma constante que especifica como o add-in está conectado.
  • AddInInst . Uma referência ao objeto add-in.
  • custom() . Argumentos para o suplemento.

O evento "OnDisconnection"

O evento OnDisconnection inicia depois que o suplemento está desconectado e antes do suplemento descarregado da memória. Esse evento contém todos os limpeza que é necessário e restaura quaisquer alterações que são feitas para o aplicativo host.

O evento OnDisconnection tem dois parâmetros a seguir:
  • RemoveMode . Uma constante que especifica como o suplemento será removido.
  • custom() . Argumentos para o suplemento.

Criando o suplemento de COM

Esta seção descreve como criar um suplemento de COM esse email move enviado para uma pasta diferente da pasta Itens enviados padrão do. A COM add-in move enviou mensagens com base no assunto da mensagem. Você não pode usar o Assistente de regras do Outlook para implementar esse tipo de regra.

Para criar um suplemento que email move enviado para uma pasta diferente da pasta Itens enviados padrão:
  1. No Visual Basic 6.0, crie um novo projeto baseado no modelo AddIn.
  2. Remove o formulário adicionado frmAddIn projeto AddIn. Para fazer isso, clique frmAddIn (frmAddIn) no Explorador de projeto com o botão direito do mouse e, em seguida, clique em Remover frmAddIn .
  3. No Explorador de projeto, expanda designers , clique com o botão direito do mouse Connect (Conectar) e, em seguida, clique em Objeto View .
  4. Na modo de exibição Designer de suplemento do arquivo conectar, definir o aplicativo para o Microsoft Outlook e, em seguida, verifique se o comportamento de carregamento inicial é definido para inicialização .
  5. No menu Project , clique em referências . Se você estiver usando o Outlook 2000, fazer referência a Biblioteca de objetos do Microsoft Outlook 9.0 . Se você estiver usando o Outlook 2002, fazer referência a Biblioteca de objetos do Microsoft Outlook 10.0 . Clique em OK .
  6. Na Explorador de projeto, clique o designer de conectar com o botão direito do mouse e, em seguida, clique em View Code . Exclua todo o código na janela de código. Digite ou cole o código a seguir na janela de código vazio:
    Option ExplicitPrivate WithEvents objOLApp As Outlook.ApplicationPrivate Sub AddinInstance_OnConnection(ByVal Application As Object, _            ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _            ByVal AddInInst As Object, custom() As Variant)   'Set my object to the host application.   Set objOLApp = ApplicationEnd SubPrivate Sub objOLApp_ItemSend(ByVal Item As Object, Cancel As Boolean)   Dim objNamespace As Outlook.Namespace   Dim objInbox As Outlook.MAPIFolder   Dim objSentFolder As Outlook.MAPIFolder   Dim strLeftSubject As String   Set objNamespace = objOLApp.GetNamespace("MAPI")   'This is the Inbox folder.   Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)    ' TODO: Change "Other" to any subfolder of Outlook Today.   Set objSentFolder = objInbox.Parent.Folders("Other")          strLeftSubject = Left(Item.Subject, 14)   ' TODO: Change "My Test String" to the beginning search   ' string that you want to use. The condition returns true   ' if the subject of the message contains   ' "My Test String" before any other text. The subject   ' "My Test String Here" returns true. The subject   ' "Here is My Test String" returns false. The subject   ' "my test string" returns false.   If strLeftSubject = "My Test String" Then      Set Item.SaveSentMessageFolder = objSentFolder   End If   ' Clean up objects that are created in this subroutine.   Set objInbox = Nothing   Set objSentFolder = Nothing   Set objNamespace = NothingEnd SubPrivate Sub AddinInstance_OnDisconnection(ByVal RemoveMode As _            AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)   'Clean up objects that are created during the OnConnection event.   Set objOLApp = NothingEnd Sub					
  7. Altere as linhas de código conforme especificado em linhas que contêm TODO.
  8. No menu arquivo , clique em Criar MyAddIn.dll . Digite um nome e local para o arquivo .dll e em seguida, clique em OK .

Carregar o suplemento de COM

Para carregar o suplemento no Outlook, clique em Opções no menu Ferramentas . Clique na guia outras , clique em Opções avançadas e, em seguida, clique em Suplementos de COM . Clique em Adicionar , localize o arquivo .dll que você compilou e, em seguida, clique em OK .

Distribuir o suplemento de COM

Um suplemento precisa ser registrado no cada computador em que o suplemento de COM será ser usado. Normalmente, você pode distribuir o add-in de duas maneiras:
  • Criar um programa de instalação para o arquivo .dll e, em seguida, ter os usuários instalem o add-in.
  • Em uma organização, use um script de logon para copiar o arquivo .dll para o computador local e, em seguida, usar o arquivo Regsvr32.dll para registrar manualmente o arquivo .dll.
Referências
Para obter informações adicionais sobre como escrever suplementos de COM, clique nos números abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft:
291163OL2002: Como criar um suplemento de COM para Outlook
230225OL2000: Como criar um suplemento de COM para Outlook
238228COMO: Criar um Office 2000 suplemento COM no Visual Basic
302896COMO: Criar um Office suplemento com Visual Basic .NET
190253INFO: Designers VB6 não funcionam em VB5
Para obter informações adicionais sobre recursos disponíveis e respostas a perguntas feitas freqüentemente sobre soluções do Microsoft Outlook, clique nos números abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft:
287530OL2002: Perguntas sobre formulários personalizados e soluções do Outlook
146636OL2000: Perguntas sobre formulários personalizados e soluções do Outlook
182349OL98: Perguntas sobre formulários personalizados e soluções do Outlook
170783OL97: Perguntas sobre personalização ou Programming Outlook
Acionado OutSol OutSol2000 OutSol2002

Propriedades

ID do Artigo: 316983 - Última Revisão: 12/07/2015 08:47:42 - Revisão: 3.3

Microsoft Outlook 2000, Microsoft Outlook 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto KB316983 KbMtpt
Comentários