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

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.

Inscrever - receber um email se alguém adiciona novas respostas/comentários

Comentários

JoséNeto na 13 Mar 2015

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?

Responder

Alexandre na 1 Dez 2017

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

Responder

O seu comentário

Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..