Post on 08-Jan-2016
description
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