Start- Endzeit Outlook Kalender Markierung

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe Community,

ich habe seit germaumer Zeit ein Problem, das ich trotz intensiver Recherche nicht lösen kann:

Hintergrund: Ich möchte per VBA einen Termin in Outlook erzeugen, der einige Attribute gesetzt hat („Anzeigen als:“ frei; Erinnerung: 0 Minuten, etc.) Das funktioniert soweit auch.

Problem: Ich möchte das Datum sowie die Start und Endzeit so festlegen, wie ich sie im Kalender in der Tagesansicht markiert habe. Beispiel: Ich markiere am 15.3. von 12.00 bis 13.00 (diese Zeitspanne ist nun blau dargestellt). Entsprechend will ich

myAppointment.Start auf 12:00

und

myAppointment.End auf 13:00

setzten. Beim Datum entsprechend der 15.3.

Wer kann mir helfen??

Vielen lieben Dank vorab,

RockNick

#2

Hintergrund: Ich möchte per VBA einen Termin in Outlook
erzeugen, der einige Attribute gesetzt hat („Anzeigen als:“
frei; Erinnerung: 0 Minuten, etc.) Das funktioniert soweit
auch.

Hallo Rocknick,

zeige mal den Code.

Gruß
Reinhard

#3

Hallo Reinhard,

das schaut bei mir so aus:

 Set myOlApp = CreateObject("Outlook.Application")
 Set objAppt = myOlApp.CreateItem(olAppointmentItem)

 With objAppt
 '.Start = ???
 '.End = ???
 .ReminderSet = True
 .ReminderMinutesBeforeStart = 0
 .BusyStatus = olFree
 .Display
 End With

Ideen??

Liebe Grüße,

RockNick

#4

Hintergrund: Ich möchte per VBA einen Termin in Outlook
erzeugen, der einige Attribute gesetzt hat („Anzeigen als:“
frei; Erinnerung: 0 Minuten, etc.) Das funktioniert soweit
auch.

Problem: Ich möchte das Datum sowie die Start und Endzeit so
festlegen, wie ich sie im Kalender in der Tagesansicht
markiert habe. Beispiel: Ich markiere am 15.3. von 12.00 bis
13.00 (diese Zeitspanne ist nun blau dargestellt).
Entsprechend will ich

Hallo Rocknick,

meinst du so:

Sub tt()
Dim myOlApp As Object, objAppt As Object
Set myOlApp = CreateObject("Outlook.Application")
 Set objAppt = myOlApp.CreateItem(olAppointmentItem)
 With objAppt
 .Body = "bla bla"
 .Subject = "Besprechung alles Mögliche"
 .Location = "Hamburg"
 .Start = "15.3.2010 11:00"
 .End = "17.3.2010 19:32"
 .ReminderSet = True
 .ReminderMinutesBeforeStart = 0
 .BusyStatus = olFree
 .Display
 End With
End Sub

Gruß
Reinhard

#5

Hallo Reinhard!

.Start = „15.3.2010 11:00“
.End = „17.3.2010 19:32“

Ja, nur eben dass es eben nicht immer vom 15.3. bis zum 17.3. gehen soll, sondern über den Zeitraum, den ich im Kalender markiert habe…

Liebe Grüße,

RockNick

#6

Ja, nur eben dass es eben nicht immer vom 15.3. bis zum 17.3.
gehen soll, sondern über den Zeitraum, den ich im Kalender
markiert habe…

Hallo RockNick,

ja schon, aber da kannst du ja verschiedene Termine haben.
Das mit der Tagesansicht und blau markiert verstehe ich nicht so.
Naja, ich benutze nie den Outlook geschweige den kalender.

Damit kannst du die verschiedenen Kalendereinträge auslesen. Achtung, sie sind nicht chronolisch sondern in der Reihenfolge der Eintragungszeiten.

Datümer, Zeiten, stehen nicht in MeineTermine(). Das habe ich überprüft.

Sub Kalend()
Dim oOL As Object, N As Integer
Dim myNamespace As Object
Dim MeineTermine As Object
Set oOL = CreateObject("Outlook.Application")
Set myNamespace = oOL.GetNamespace("MAPI")
Set MeineTermine = myNamespace.GetDefaultFolder(9).Items
For N = 1 To MeineTermine.Count
 MsgBox MeineTermine(N)
Next N
End Sub

Gruß
Reinhard

#7

Ja, nur eben dass es eben nicht immer vom 15.3. bis zum 17.3.
gehen soll, sondern über den Zeitraum, den ich im Kalender
markiert habe…

Hallo RockNick,

vielleicht hillft dir dies irgendwie weiter.

Public Sub Kal2()
Dim objOutlook As Object
Dim objNameSpace As Object
Dim objOutlookKalender As Object
Dim objOutlookKalenderEintrag As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objOutlookKalender = objNameSpace.PickFolder
For Each objOutlookKalenderEintrag In objOutlookKalender.Items
 With objOutlookKalenderEintrag
 MsgBox "Betreff: " & .Subject & vbNewLine & \_
 "Ort: " & .Location & vbNewLine & \_
 "Beginn: " & .Start & vbNewLine & \_
 "Ende: " & .End & vbNewLine & \_
 "Inhalt: " & .Body
 End With
Next
End Sub

Gruß
Reinhard