VBOffice

Neue Termine automatisch per Email senden

Lassen Sie sich per Email informieren, wenn jemand einen neuen Termin in Ihren Kalender einträgt.

Zuletzt geändert: 10.11.2006 | Aufrufe: 67.526  | #35
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Category-Manager 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.

Mit ein paar Zeilen Code kann der Kalender überwacht und jeder neue Eintrag per E-Mail an eine bestimmte Adresse gesendet werden. Um einen Termin versenden zu können, muss dieser als Meeting gekennzeichnet werden.

Wenn Sie nicht den Standardkalender, sondern einen Unterordner davon überwachen wollen, dann entfernen Sie im Beispiel das Hochkomma vor der zweiten Set Folder-Anweisung, und ersetzen Sie den Namen mit dem Namen Ihres Unterordners.


tip  So fügen Sie Makros in Outlook ein
Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.Namespace
  Dim Folder As Outlook.MapiFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set Folder = Ns.GetDefaultFolder(olFolderCalendar)
  ' Set Folder = Folder.Folders("name des unterordners")
  Set Items = Folder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Dim Appt As Outlook.AppointmentItem

  If TypeOf Item Is Outlook.AppointmentItem Then
    Set Appt = Item
    Appt.Recipients.Add "abc@domain.com"
    Appt.MeetingStatus = olMeeting
    Appt.Save
    Appt.Send
  End If
End Sub
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.
email  Senden Sie eine Nachricht