Reporter | |
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert. |
Müssen Sie jeden Tag zur gleichen Zeit eine E-Mail versenden? Outlook sieht dafür keine Regel vor, aber Sie können für solche Aufgaben den Mechanismus der Erinnerungen nutzen.
Erstellen Sie eine Aufgabe mit einem eindeutigen Betreff und setzen Sie die gewünschte Erinnerungszeit fest. Tragen Sie den Betreff im Code unter ReminderSubject ein. Sie könnten statt täglicher Intervalle natürlich auch andere, z.B. stündliche, festlegen.
Private Sub Application_Reminder(ByVal Item As Object) SendAutoEmail Item End Sub Private Sub SendAutoEmail(Item As Object) Dim oTask As Outlook.TaskItem Dim oMail As Outlook.MailItem Dim oFld As Outlook.MAPIFolder Dim ReminderSubject As String Dim EmailSubject As String Dim SendTo As String Dim Message As String 'Task item ReminderSubject = "TäglicheErinnerung" 'Email SendTo = "name@domain.com" EmailSubject = "Beispiel" Message = "diese nachricht wurde automatisch versandt" If TypeOf Item Is Outlook.TaskItem Then Set oTask = Item If LCase$(oTask.Subject) = LCase$(ReminderSubject) Then oTask.ReminderTime = DateAdd("d", 1, oTask.ReminderTime) oTask.Save Set oMail = Application.CreateItem(olMailItem) oMail.Subject = EmailSubject oMail.Body = Message oMail.Recipients.Add SendTo oMail.Recipients.ResolveAll oMail.Send End If End If End Sub
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. |