Como fazer um programa de calendário para o Vb.net

Passo 1

Ligue o computador e inicie o Microsoft Visual Studio.Net. Clique no menu "Arquivo", depois em "Novo" e clique em "Projeto".

Passo 2

Selecione e clique em "Projetos do Visual Basic" em "Tipos de Projeto" e depois em "Console do Aplicativo" em "Modelos". Com isso, você criará um modelo padrão que será chamado de "Module1.vb".

Passo 3

Adicione uma referência à "Biblioteca de Objetos do Microsoft Outlook 11.0" para que você possa lembrar de seu projeto caso não consiga concluí-lo de uma só vez. Selecione o menu "Project" e clique em "Add reference".

Passo 4

Vá para a guia "COM", clique em "Biblioteca de objetos do Microsoft Outlook 11.02 e, em seguida, " Selecionar ". Clique em" OK "na caixa de diálogo" Adicionar referências "para aceitar sua seleção. pedir que você gere envelopes para a biblioteca selecionada, clique em "Aceitar".

Passo 5

Mova o mouse sobre a janela "Code". Exclua o código existente. Copie e cole o código encontrado no Passo 6 e cole-o na janela "Código".

Passo 6

mports System.Reflection Importa o Outlook = Microsoft.Office.Interop.Outlook

Módulo Módulo1

Sub Main () 'Crie uma aplicação do Outlook. Dim oApp As Outlook.Application = New Outlook.Application ()

'Crie um novo AppointmentItem. Dim oAppt As Outlook.AppointmentItem = oApp.CreateItem (Outlook.OlItemType.olAppointmentItem)

'Defina algumas propriedades comuns. oAppt.Subject = "Criado usando o OOM no VB .NET" orAppt.Body = "Olá, mundo" orAppt.Location = "Sala 1201"

oAppt.Start = Convert.ToDateTime ("31/05/2004 9:00:00 AM") orAppt.End = Convert.ToDateTime ("31/05/2004 1:00:00 PM") orAppt.ReminderSet = True oAppt .ReminderMinutesBeforeStart = 5 oAppt.BusyStatus = Outlook.OlBusyStatus.olBusy oAppt.IsOnlineMeeting = Falso

'Salvar no Calendário. oAppt.Save ()

'Limpar. oApp = Nothing oAppt = Nothing

End Sub End Module