domingo, 22 de janeiro de 2012

Criar um compromisso no Outlook


Public Function CreateAppointment(SubjectStr As String, BodyStr As String, AllDay As Boolean)

Dim OlApp As Outlook.Application
Dim Appt As Outlook.AppointmentItem

Set OlApp = CreateObject("Outlook.Application")
Set Appt = OlApp.CreateItem(olAppointmentItem)

Appt.Subject = SubjectStr
'Formato da data = mes/dia/ano
Appt.Start = #10/20/2011 1:00:00 PM#
Appt.End = #10/20/2011 2:00:00 PM#
'Appt.AllDayEvent = AllDay
Appt.Body = BodyStr
Appt.ReminderMinutesBeforeStart = 5
Appt.Save

Set Appt = Nothing
Set OlApp = Nothing

End Function


Private Sub testsub()
CreateAppointment "Teste", "Texto", False
End SubCri

Nenhum comentário:

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.