Auto poslať e-mail outlook každý deň

Príklady kódu

0
0

outlook odoslať automatické e-mailové každý mesiac

'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

Podobné stránky

Podobné stránky s príkladmi

V iných jazykoch

Táto stránka je v iných jazykoch

Русский
..................................................................................................................
English
..................................................................................................................
Italiano
..................................................................................................................
Polski
..................................................................................................................
Română
..................................................................................................................
한국어
..................................................................................................................
हिन्दी
..................................................................................................................
Français
..................................................................................................................
Türk
..................................................................................................................
Česk
..................................................................................................................
Português
..................................................................................................................
ไทย
..................................................................................................................
中文
..................................................................................................................
Español
..................................................................................................................
Балгарскі
..................................................................................................................
Íslensk
..................................................................................................................