Inhalt
Category-Manager | |
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet. |
Dieses Beispiel sendet jede Email am Abend des gleichen Tages um 18 Uhr.
Voraussetzung dafür, wie auch für alle folgenden Beispiele, ist, dass Outlook zum festgelegten Zeitpunkt noch läuft.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim Mail As Outlook.MailItem If TypeOf Item Is Outlook.MailItem Then Set Mail = Item Mail.DeferredDeliveryTime = Date & " 18:00" End If End Sub
Dieses Beispiel sendet jede Email, die einen bestimmten Betreff hat, am nächsten Montag um 8 Uhr.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim Mail As Outlook.MailItem If TypeOf Item Is Outlook.MailItem Then Set Mail = Item If Mail.Subject = "Beispiel" Then Mail.DeferredDeliveryTime = GetNextWeekday(vbMonday) & " 08:00" End If End If End Sub Private Function GetNextWeekday(ByVal DayOfWeek As VbDayOfWeek) As Date Dim diff As Long diff = DayOfWeek - Weekday(Date, vbSunday) If diff > 0 Then GetNextWeekday = DateAdd("d", diff, Date) Else GetNextWeekday = DateAdd("d", 7 + diff, Date) End If End Function
ReplyAll | |
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten. |
Dieses Beispiel sendet jede Email, der eine bestimmte Kategorie zugewiesen ist, am Morgen des nächsten Arbeitstages. Wenn Sie also an einem Freitag auf Senden klicken, dann wird die Email erst am folgenden Montag gesendet.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim Mail As Outlook.MailItem If TypeOf Item Is Outlook.MailItem Then Set Mail = Item If Mail.Categories = "Beispiel" Then Mail.DeferredDeliveryTime = GetNextWorkday(1) & " 08:00" End If End If End Sub Private Function GetNextWorkday(ByVal MinDaysOffset As Long) As Date Dim d As Date d = DateAdd("d", MinDaysOffset, Date) Select Case Weekday(d, vbMonday) Case 6: d = DateAdd("d", 2, d) Case 7: d = DateAdd("d", 1, d) End Select GetNextWorkday = d End Function
Category-Manager | |
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet. |