Artigo: 160502 - Última revisão: sexta-feira, 19 de Janeiro de 2007 - Revisão: 3.3

ACC: Utilizar a automatização para adicionar compromissos para o Microsoft Outlook

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaVer isenção de responsabilidades para tradução automática
Retired KB ArticleExclusão de Responsabilidade para Conteúdo sem Suporte na KB
Ver produtos para os quais este artigo se aplica.
Avançado: Requer conhecimentos avançados sobre codificação, interoperabilidade e multi-utilizador.

Expandir tudo | Reduzir tudo

Sumário

Este artigo mostra como utilizar a automatização para criar compromissos numa base de dados do Microsoft Access e como adicioná-los ao calendário do Microsoft Outlook.

Para informações sobre como utilizar a automatização para adicionar um compromisso do Microsoft Schedule + para o Windows 95, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
149078  (http://support.microsoft.com/kb/149078/EN-US/ ) ACC: Como adicionar compromissos do Schedule + utilizando a automatização OLE
Este artigo pressupõe que está familiarizado com o Visual Basic for Applications e criação de aplicações do Microsoft Access utilizando as ferramentas de programação fornecidas com o Microsoft Access. Para mais informações sobre o Visual Basic for Applications, consulte a versão do manual "Criar aplicações com o Microsoft Access".

Mais Informação

O exemplo seguinte demonstra como criar um formulário e uma tabela para introduzir e armazenar informações de compromisso em base de dados do Microsoft Access e fornece um exemplo do Visual Basic para aplicações do procedimento que utiliza automatização para adicionar os compromissos para o Microsoft Outlook.
  1. Inicie o Microsoft Access e crie uma nova base de dados denominado Appt.mdb.
  2. Crie a seguinte nova tabela na vista de estrutura: 
          Table: tblAppointments
      --------------------------
      Field Name: Appt
         Data Type: Text
         Field Size: 50
         Required: Yes
      Field Name: ApptDate
         Data Type: Date/Time
         Format: Short Date
         Required: Yes
      Field Name: ApptTime
         Data Type: Date/Time
         Format: Medium Time
         Required: Yes
      Field Name: ApptLength
         Data Type: Number
         Field Size: Long Integer
         Default Value: 15
         Required: Yes
      Field Name: ApptNotes
         Data Type: Memo
      Field Name: ApptLocation
         Data Type: Text
         Field Size: 50
      Field Name: ApptReminder
         Data Type: Yes/No
      Field Name: ReminderMinutes
         Data Type: Number
         Field Size: Long Integer
         Default Value: 15
      Field Name: AddedToOutlook
         Data Type: Yes/No

      Table Properties: tblAppointments
      ---------------------------------
      PrimaryKey: ApptDate;ApptTime
    Nota: neste exemplo, a chave primária na tabela compromisso é a data do compromisso e a hora. Pode remover ou se pretender adicionar vários compromissos para a mesma data e hora, alterar a chave primária.
  3. Crie uma referência para o Microsoft Outlook 8.0 Object Library. Para o fazer, siga estes passos:
    1. Crie um novo módulo.
    2. No menu Ferramentas, clique em References.
    3. Clique em Microsoft Outlook 8.0 Object Library na caixa referências disponíveis. Se essa referência não aparecer, clique em Procurar para localizar o ficheiro Msoutl8.olb, que é instalado por predefinição na pasta c:\Programas\Microsoft Office\Office.
    4. Clique em OK na caixa de diálogo referência.
    5. Feche o módulo sem guardá-lo.
  4. Utilizar o formulário automático: colunas Assistente de formulários para criar um novo formulário baseado na tabela tblAppointments. Guarde o formulário como frmAppointments.
  5. Abra o formulário na vista de estrutura e alterar as seguintes propriedades: 
          Form: frmAppointments
      -------------------------
      Caption: Appointment Form

      Form Header:
         Height: .5"
      Check Box: AddedToOutlook
         Enabled: No
  6. Adicione um botão de comando à secção de cabeçalho do formulário e defina as seguintes propriedades: 
          Command Button:
         Name: AddAppt
         Caption: Send to Outlook
         OnClick: [Event Procedure]
  7. Defina a propriedade AoFazerClique do botão de comando para o seguinte procedimento de evento: 
          Private Sub AddAppt_Click()
         On Error GoTo AddAppt_Err
         ' Save record first to be sure required fields are filled.
         DoCmd.RunCommand acCmdSaveRecord
         ' Exit the procedure if appointment has been added to Outlook.
         If Me!AddedToOutlook = True Then
            MsgBox "This appointment already added to Microsoft Outlook"
            Exit Sub
         ' Add a new appointment.
         Else
            Dim outobj As Outlook.Application
            Dim outappt As Outlook.AppointmentItem
            Set outobj = CreateObject("outlook.application")
            Set outappt = outobj.CreateItem(olAppointmentItem)
            With outappt
               .Start = Me!ApptDate & " " & Me!ApptTime
               .Duration = Me!ApptLength
               .Subject = Me!Appt
               If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
               If Not IsNull(Me!ApptLocation) Then .Location = _
                  Me!ApptLocation
               If Me!ApptReminder Then
                  .ReminderMinutesBeforeStart = Me!ReminderMinutes
                  .ReminderSet = True
               End If
               .Save
            End With
         End If
         ' Release the Outlook object variable.
         Set outobj = Nothing
         ' Set the AddedToOutlook flag, save the record, display a message.
         Me!AddedToOutlook = True
         DoCmd.RunCommand acCmdSaveRecord
         MsgBox "Appointment Added!"
      Exit Sub
      AddAppt_Err:
         MsgBox "Error " & Err.Number & vbCrLf & Err.Description
         Exit Sub
      End Sub
  8. Guarde o formulário e abra-o na vista de formulário. Adicione um registo de compromisso e, em seguida, clique no botão Enviar para o Outlook. Certifique-se que só introduzir minutos, não horas e minutos, no campo ApptLength.
  9. Iniciar o Microsoft Outlook e clique em Calendário no menu Ir para visualizar os compromissos que adicionou.
A informação contida neste artigo aplica-se a:
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
Voltar ao topo
Palavras-chave: 
kbmt kbfaq kbhowto kbinterop kbprogramming KB160502 KbMtpt
Tradução automáticaTradução automática
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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 160502  (http://support.microsoft.com/kb/160502/en-us/ )
Voltar ao topo
Retired KB ArticleExclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.
Voltar ao topo
 

Get Help Now

Contact a support professional by E-mail, Online, or Phone

Traduções de Artigos