question

Como vincular planilha para calendario outlook do excel?

OK, então não tenho experiência o que assim sempre com o vba, mas tenho aprendido que é o que eu preciso usar para ser capaz de vincular uma data de calendário do outlook.
Basicamente, eu tenho uma data em uma célula na planilha que eu preciso para ser salvo automaticamente no meu calendário do outlook pública com um lembrete no dia de vencimento do excel. Alguém aí pode me ajudar com um passo a passo tipo da coisa, por favor? Desculpe, que eu não sou muito bom com códigos e por material.
Obrigado:) x
resposta Resposta
Oi, você pode usar código como o mostrado abaixo

Sub AddToOutlook()

Dim o As Outlook. Application

Dim ai como Outlook.AppointmentItem

O conjunto = GetObject (, "Outlook. Application")

Definir ai = o.CreateItem(olAppointmentItem)

ai.Corpo = "Do abc"

ai.Assunto = "Coisas a fazer"

ai.Iniciar = "19/05/05 16:00"

ai.Duração = 30

ai.Fechar olSave

Para as etapas.

1. Você terá que alternar para o desenvolvimento integrado de Visual Basic

Meio ambiente (em palavras simples, onde você gravar seu código) e selecione

Ferramentas/referências e na lista que você vê você irá selecionar Microsoft

Outlook 9.0 Biblioteca.

2. Você então insere um módulo e digite o código que apresentei anteriormente.

3. Você deve ser capaz de executar o código clicando em qualquer lugar no código e

pressionando F5. Quando você fizer isso, seu aplicativo Outlook deve ser aberto. Você

então vá e alterne para o Outlook para se certificar de que um compromisso foi adicionado.

4. As etapas acima demonstram que o código está funcionando.

5. Agora seu desafio é pegar os dados do excel e usar isso para criar

as nomeações

Para fazer isso, código como este

Dim $ r &, sSubject, sBody$, dStartTime, data, dDuration #



para r = 2 a 50

' Supondo que o assunto esteja na coluna a

sSubject = Sheet1.Cells(r,1).value

' Supondo que o corpo está na coluna b

sBody = Sheet1.Cells(r,2).value

' Supondo que Start Date e Time está na coluna c

dStartTime = Sheet1.Cells(r,3).value

' Supondo que a duração é na coluna d

dDuration = Sheet1.Cells(r,4).value

Definir ai = o.CreateItem(olAppointmentItem)

ai.Corpo = sBody

ai.Assunto = sSubject

ai.Iniciar = dStartTime

ai.Duração = dDuration

ai.Fechar olSave



R próximo

Basicamente você usa o mesmo código conforme mostrado anteriormente, mas substitua o código para

criação de compromisso única com o loop mostrado acima.

Comentários Comentários

Guest
JoséNeto na 13 Mar 2015
0
Não encontrei o item Microsoft Outlook 9.0 Biblioteca.
Ai selecionei os itens abaixo.

Microsoft Outlook View Control
Microsoft Outlook Social Provider Extensibility
Microsoft Outlook 14.0 Object Libary

Quando mandei executar apareceu a mensagem
Erro de compilação: Erro de sintaxe

Como devo proceder?

Guest
Alexandre na 1 Dez 2017
0
Sub AddToOutlook()

Dim o As Outlook.Application

Dim ai As Outlook.AppointmentItem

Set o = GetObject(, "Outlook.Application")
Set ai = o.CreateItem(olAppointmentItem)
ai.Body = "Do abc"
ai.Subject = "Coisas a fazer"
ai.Start = "19/05/05 16:00"
ai.Duration = 30
ai.Close olSave


End Sub


Topo da página


Home  Terms
Copyright © Accelerated Ideas 2005-2024
All rights reserved