Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Outlook Termin Serie x-ter Arbeitstag

Frage Microsoft Outlook & Mail

Mitglied: katzenm

katzenm (Level 1) - Jetzt verbinden

10.09.2009, aktualisiert 11:37 Uhr, 16329 Aufrufe, 5 Kommentare

Monatliche Terminserie für fünften, sechsten usw. Arbeitstag anlegen.

Hallo,
leider bietet Outlook nur die Auswahl den ersten bis vierten oder letzten Arbeitstag im Monat für eine Terminserie auszuwählen. Wie kann ich dies auf den fünften, sechsten usw. erweitern? -- Anfrage besteht für den sechsten Arbeitstag.
Kzm
Mitglied: 4mB3r197
22.12.2009 um 15:06 Uhr
Eine Lösung zu dieser Frage - wenn auch recht umständlich - findet sich hier:

http://www.outlook-user.de/blog/index.php/hier-wird-ihnen-geholfen/2008 ...
Bitte warten ..
Mitglied: katzenm
14.01.2010 um 14:40 Uhr
Danke 4mB3r197.

Umständlich, aber wenigstens ein Weg. Inzwischen habe ich mich durch VBA gekämpft und es ist folgender Code entstanden:
(Er erzeugt an den entsprechenden Terminen Einzeltermine. Eine Lösung wie ich das nun als Serientermin bastel steht prizipiell auch schon, mangels Zeit noch nicht umgesetzt. Hierzu verschiebt man die Termine einer Serie nachträglich.)

Option Explicit

' Variablen die evtl. in Sub angepasst werden müssen:
Dim sSubject As String
Dim sLocation As String
Dim iDuration As Integer
Dim iXth As Integer
Dim iAmount As Integer

Sub te_Arbeitstag()
xteWorkd_singledates
End Sub

' berechne x-ten Arbeitstag beginnend beim jetztigen Monat für iAmount Monate
Private Sub xteWorkd_singledates()
Dim oDate As Date
Dim oDateTmp As Date
Dim iMonth As Integer
Dim iDay As Integer
Dim iYear As Integer

' Initialisierung - 1. des derzeitigen Monats
iDay = 1
iMonth = Month(Now)
iYear = Year(Now)
oDate = CDate("1." & iMonth & "." & iYear)

' nachfolgende Variablen anpassen:
sSubject = "Auswertung Emails"
sLocation = "Mein Büro"
iDuration = 90
iXth = 6
iAmount = 2 ' 12 ' Anzahl der Monate für die ein Termin erstellt wird

' Variablen-Ini
Dim i As Integer
Dim myItem As AppointmentItem
Dim myOlApp As Outlook.Application
Dim objRecPatt As RecurrencePattern

Set myOlApp = GetObject(, "Outlook.Application")

For i = 0 To iAmount - 1
Set myItem = myOlApp.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = sSubject
myItem.Location = sLocation

oDateTmp = DateAdd("m", i, oDate) ' 1. des jeweiligen Monats
getXthWorkingDay oDateTmp, iXth

myItem.Start = CStr(oDateTmp) & " 10:30:00 AM"
myItem.Duration = iDuration
myItem.Send
Next i

End Sub

Private Sub getXthWorkingDay(oDate, iX)
Dim a
Dim oDateTmp
Dim oDayOfWeek

For a = 1 To iX
oDateTmp = oDate
oDayOfWeek = Format(oDateTmp, "dddd")
'MsgBox (oDayOfWeek & " " & oDateTmp)
If a = 1 Then
Select Case oDayOfWeek
Case "Samstag"
oDateTmp = oDateTmp + 2 'Springt auf den Montag
Case "Sonntag"
oDateTmp = oDateTmp + 1 'Springt auf den Montag
Case Else
' oDateTmp = oDateTmp ' Bleibt
End Select
Else
Select Case oDayOfWeek
Case "Freitag"
oDateTmp = oDateTmp + 3 'Springt auf den Montag
Case "Samstag"
oDateTmp = oDateTmp + 2 'Springt auf den Montag
Case Else
oDateTmp = oDateTmp + 1 'Springt auf Mo, Do, Mi, Do oder Freitag
End Select
End If
oDate = oDateTmp
'Wochentagist2 = Format(Datumist2, "dddd")
'MsgBox (Wochentagist1 & " " & Datumist1 & Chr(13) & Wochentagist2 & " " & Datumist2)
Next a
End Sub

' Wird für die Aufgabe nicht benötigt. Generiert das Datum für den 6. Tag des Monats
Private Sub create6thDayDate()
Dim myItem
Dim myOlApp As Outlook.Application
Dim objRecPatt As RecurrencePattern

Set myOlApp = GetObject(, "Outlook.Application")
Set myItem = myOlApp.CreateItem(olAppointmentItem)
myItem.MeetingStatus = olMeeting
myItem.Subject = "Strategy Meeting"
myItem.Location = "Conference Room B"
myItem.Start = #9/24/2009 1:30:00 PM#
myItem.Duration = 90

' objAppt can be solitary, an originator, or a recurrence
Set objRecPatt = myItem.GetRecurrencePattern
With objRecPatt
' set recurrence pattern properties as desired
.RecurrenceType = 2 ' CdoRecurTypeMonthlyNth
.PatternStartDate = Now
.PatternEndDate = DateAdd("m", 1, .PatternStartDate)
.DayOfMonth = 6
End With
Set myItem = objRecPatt.Parent
With myItem
.Subject = "New subject for entire recurring series"
End With
myItem.Send
End Sub
Bitte warten ..
Mitglied: cuwie.de
04.03.2015 um 13:30 Uhr
Hallo zusammen,

auch wenn das Thema schon etwas älter ist, ist es für mich aktuell gerade sehr interessant geworden.
Offensichtlich (aktuelle Recherche in diversen Foren zum Thema) gibt es auch heute noch keine einfache Möglichkeit in Outlook (2013) einen Serientermin pro Monat an einem festen Tag einzurichten, der sich automatisch auf den davorliegenden Arbeitstag verschiebt, wenn die Serie in einem Monat mal auf einen Wochenend- oder Feiertag fällt.
Hintergrund: Ich muss bis zum 5. Tag eines Monats einen Bericht abgeben. Wenn der 5. aber ein Wochenende ist, muss ich den Bericht natürlich schon früher abgeben.

Das muss ich jetzt leider noch bringen: Ich bin erst seit kurzem in der Outlook-Welt unterwegs, bisher seit ca. 17 Jahren ausschließlich mit Lotus Notes in verschiedenen Versionen und auch in einigen voneinander unabhängigen Unternehmen unterwegs. Und LN kann DAS schon seit vielen Jahren standardmäßig...

In der Zwischenzeit schaue ich mir mal das VBA ein bisschen genauer an, vielleicht gibt es da ja was her für den Anfang.

Viele Grüße

Carsten
Bitte warten ..
Mitglied: cuwie.de
04.03.2015 um 13:48 Uhr
So, mal kurz getestet. Das VBA geht eindeutig in die richtige Richtung, danke dafür! Allerdings ist es nicht sonderlich komfortabel zu bedienen, da man direkt im Code die Eckdaten des Serientermins eingeben muss.
Ich kann den Code zwar einigermaßen lesen, aber leider nicht selbst programmieren. Eine Dialogbox wäre nett...
Bitte warten ..
Mitglied: 4mB3r197
08.03.2015 um 20:06 Uhr
Und ich bin inzwischen von Outlook zu Notes und kratzte mir bereits wegen vieler Dinge den Kopf, die Notes nicht oder nur irgendwie kann. Aber in Deinem Fall scheint's mal umgekehrt zu sein.
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Outlook - Bei Terminversand nur Rückmeldung wenn Termin abgelehnt wird (1)

Frage von Corraggiouno zum Thema Outlook & Mail ...

Outlook & Mail
Termine im Kalener nicht sichtbar - Outlook 2013

Frage von marvhartmann zum Thema Outlook & Mail ...

Outlook & Mail
gelöst Outlook 2016 Wochentag-Agenda Ausdruck Termine fehlen (4)

Frage von PatrickStolz zum Thema Outlook & Mail ...

Firewall
Firepower 2100 Series Firepower 2100 Series

Link von Dobby zum Thema Firewall ...

Neue Wissensbeiträge
Viren und Trojaner

Ransomware or Wiper? RedBoot Encrypts Files but also Modifies Partition Table

Information von BassFishFox zum Thema Viren und Trojaner ...

Notebook & Zubehör

WOL bei HP Notebooks

(6)

Erfahrungsbericht von Henere zum Thema Notebook & Zubehör ...

LAN, WAN, Wireless

Neue Cisco Catalyst-Serie 9000

Information von Kuemmel zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Windows 10
Netzwerkkarte schaltet sich erst nach dem Logon ein (23)

Frage von DerWoWusste zum Thema Windows 10 ...

Windows Server
Seit IP Umstellung DC DNS Fehler (18)

Frage von Yaimael zum Thema Windows Server ...

Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (16)

Frage von Spitzbube zum Thema Netzwerke ...

Weiterbildung
gelöst Fest angestellter Admin oder Systemhaus Admin mit Kundenbetreuung? (15)

Frage von Voiper zum Thema Weiterbildung ...