Outlook wyślij automatyczny e-mail co miesiąc

'Based on https://www.extendoffice.com/documents/outlook/1567-outlook-send-schedule-recurring-email.html#a
'Follow the instructions from the link to create the appointment and category.
'Then create the macro, add the code below:
' this other link is useful too: https://www.slipstick.com/developer/send-email-outlook-reminders-fires/

Private Sub Application_Reminder(ByVal Item As Object)

Dim olNS As Outlook.NameSpace
Dim objMsg As MailItem

'IPM.TaskItem to watch for Task Reminders
If Item.Class <> OlObjectClass.olAppointment Then
  Exit Sub
End If

If Item.Categories <> "Send Schedule Recurring Email" Then
  Exit Sub
End If

Set olNS = Application.GetNamespace("MAPI")
Set objMsg = Application.CreateItem(olMailItem)

objMsg.SendUsingAccount = olNS.Accounts.Item(1)
objMsg.To = Item.Location
objMsg.BCC = "[email protected]"
objMsg.Subject = Item.Subject
objMsg.Body = Item.Body
objMsg.Send

Set objMsg = Nothing
End Sub
DevPedrada