7/17/2019 CriarTarefaOutlook

1/2

Attribute VB_Name = "CriarTarefaOutlook"Sub EnviaTarefa()

Dim objOutlook As Outlook.Application

Dim objAppt As Outlook.AppointmentItem

Dim objRecurPattern As Outlook.RecurrencePattern

Set objOutlook = CreateObject("Outlook.Application")

Set objAppt = objOutlook.CreateItem(olAppointmentItem)

With objAppt

.Start = #7/16/2010 3:00:00 PM#

.End = #7/17/2010 4:00:00 PM#

.Duration = 30 'durao em minutos

.Subject = "Ttulo da tarefa"

.Body = "Notas / corpo da tarefa"

.Location = "Local da tarera"

'Seta o comprimisso para ser lembrado

.ReminderMinutesBeforeStart = 15 'tempo em minutos

.ReminderSet = True

.MeetingStatus = olMeeting

.Recipients.Add ("rafael.gomes.santos@gmail.com")

'.AllDayEvent = True

Set objRecurPattern = .GetRecurrencePattern

'Seta a recorrncia da tarefa

'Exclua estas linhas caso no queira uma tarefa recorrente

With objRecurPattern

.RecurrenceType = olRecursWeekly

.Interval = 1

'Uma vez por semana

.PatternStartDate = #7/16/2010#

7/17/2019 CriarTarefaOutlook

2/2

.PatternEndDate = #7/17/2010#

End With

'.Save

.Send

.Close (olSave)

End With

End Sub