Office: (Office 2000) Access => Outlook: Termine erstellen ja, löschen klappt nicht!

Andre.Heisig · 11. Mai 2005

hallo leute,

habe mir aus beiträgen hier eine lösung zusammenstellen können, die meine terminplanung aus access nach outlook überträgt. das anlegen von terminen läuft rund, wenn ich in access die termine ändere, muss ich das aber nach outlook abgleichen.

das identifizieren und aktualisieren vorhandener termine war mir zu aufwendig, daher war folgender weg angedacht: die anzulegenden termine werden mit einer sonst nicht benutzten kategorie versehen, das "update" in richtung outlook würde dann diese termine dort komplett löschen und die aktualisierten neu anlegen.

leider scheiterts im moment dennoch am "wiederfinden" ... wenn ich die unten rot markierte zeile ausführe, findet outlook / access ALLE termine. die "abfrage-syntax" scheint falsch zu sein. sieht jemand den fehler ?

Code:

'On Error Resume Next
Dim objNameSpace As Outlook.NameSpace
Dim objOutlook As Outlook.Application
Dim objKalender As Outlook.MAPIFolder
Dim objKalenderOrdner As Outlook.MAPIFolder
Dim Kalendereintrag As Outlook.AppointmentItem

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim SQL As String

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objKalender = objNameSpace.Folders.Item("Andre Heisig")
Set objKalenderOrdner = objKalender.Folders.Item("Kalender")

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

' Löschen aller Termine mit Kategorie "Terminplanung"
For Each Kalendereintrag In objKalenderOrdner.Items
With Kalendereintrag
.Categories = "Terminplanung"
'deleteItem.Delete

'Anzeige Suchergebniss
MsgBox "Betreff: " & .Subject & vbCr & "Beginn: " & .Start & "Ende: " & .End & vbCr & "Inhalt: " & .Body
End With
Next

' Anlegen der aktuellen Plan-Termine in Outlook

SQL = "SELECT * FROM qry_TerminPlanung"

rst.Open SQL, conn, adOpenKeyset, adLockOptimistic

Do While rst.EOF = False
Set Kalendereintrag = objKalenderOrdner.Items.Add(olAppointmentItem)
With Kalendereintrag
' aus der Abfrage stammende Werte
.Subject = rst!TerminBetreff
.Start = rst!TerminDatum
.Duration = rst!TerminDauer
.Body = rst!TerminAufgaben
' feststehende Werte
.Categories = "Terminplanung"
.ReminderSet = False
'.ReminderMinutesBeforeStart = 30
'.Location =
'.RequiredAttendees =
'.MeetingStatus = olNonMeeting
.Save
End With
Set Kalendereintrag = Nothing
rst.MoveNext
Loop

rst.Close
Set rst = Nothing
conn.Close

Set objKalenderOrdner = Nothing
Set objKalender = Nothing
Set objNameSpace = Nothing
Set objOutlook = Nothing

MsgBox "Kalender aktualisiert."

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

danke!

andre heisig.

:)

jmc · 13. Mai 2005

Hi

ich denke, du müsstest abfragen, ob der Termineintrag der Kategorie entspricht und nicht die Kategorie setzen ... Etwa in der Art.

Code:

For Each Kalendereintrag In objKalenderOrdner.Items
With Kalendereintrag
If .Categories = "Terminplanung" Then
.Delete
End If
'Anzeige Suchergebniss
MsgBox "Betreff: " & .Subject & vbCr & "Beginn: " & .Start & "Ende: " & .End & vbCr & "Inhalt: " & .Body
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Arne Dieckmann · 13. Mai 2005

Was mir gerade einfällt: Ob so das komplette Löschen der betreffenden Einträge wirklich erfolgreich sein wird, sei dahingestellt. Ich möchte es aber auch nicht testen - dafür müsste ich ja Outlook aktivieren *eek.gif*, deshalb nur der Hinweis auf Saschas Beitrag (#13) in dem Thread: db verknuepfen / vba.

jmc · 13. Mai 2005

Hi Arne

Du sprichst das Problem mit dem Index an (dass man von "hinten nach vorne" löschen muss), IMHO ist das aber bei der Auflistung mit For Each .. Next nicht so.
Habe jedenfalls gerade mal zum verifizieren alle Abfragen in einer mdb so gelöscht - lasse mich aber gerne eines besseren belehren ...

Andre.Heisig · 13. Mai 2005

mahlzeit zusammen ...

danke für die hilfe, ich werd's im laufe des tages testen und ergebnisse zurückmelden ...

andre.

Andre.Heisig · 14. Mai 2005

auch wenn's mir in dem fall nicht gefällt: arne scheint recht zu haben ... ;-))

das termine löschen tut's grundsätzlich, der code findet die richtigen termine, lässt aber 2 von 6 test-terminen stehen ... wenn ich die prozedur mehrfach (im moment 2x) durchlaufen lasse, werden alle termine gelöscht wie gewünscht ...

ich werd mir den link oben mal zu gemüte führen, auf den erste blick ist mir das aber zu hoch ... wenn's gar nicht geht, melde ich mich später nochmal, vielleicht kann mir das ja jemand "eindeutschen" ... *grins *grins *grins

danke!
schönes wochenende!

andre.

Andre.Heisig · 16. Mai 2005

hallo zusammen,

ich hab das ganze nochmal intensiver getestet, es scheint sich wirklich um das von sascha (link von arne oben) beschriebene indizes-problem zu handeln, da immer ungefähr die hälfte der zu löschenden termine tatsächlich gelöscht wird, d.h. ich nähere mich derzeit mit mehreren lösch-vorgängen dem kompletten löschen an ...

leider krieg ich die von sascha beschriebene lösung auf meinen fall nicht umgebogen, dafür fehlt mir das "verständnis" ...

der code nochmal:
Code:

Private Sub btn_delTerm_Click()
'On Error Resume Next
Dim objNameSpace As Outlook.NameSpace
Dim objOutlook As Outlook.Application
Dim objKalender As Outlook.MAPIFolder
Dim objKalenderOrdner As Outlook.MAPIFolder
Dim Kalendereintrag As Outlook.AppointmentItem

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objKalender = objNameSpace.Folders.Item("Andre Heisig")
Set objKalenderOrdner = objKalender.Folders.Item("Kalender")

'Löschen aller Termine mit Kategorie "Terminplanung"
For Each Kalendereintrag In objKalenderOrdner.Items
With Kalendereintrag
If .Categories = "Terminplanung" Then
MsgBox "Betreff: " & .Subject & vbCr & "Beginn: " & .Start & "Ende: " & .End & vbCr & "Inhalt: " & .Body
.Delete
End If
End With
Next

MsgBox "Alle alten Termine gelöscht ..."
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

könnte mir evtl. jemand eine alternative, in der (zitat sascha) "erstens nicht mit For..Each und zweitens abwärts gezählt" wird kurz skizzieren?

oder eine schleife drumherum, die "solange termine gefunden werden", besagte löschung durchführt? ein solcher iterativer durchlauf ist zwar sicherlich nicht besonders elegant, wird aber in meinem fall keine grossen performance-probleme erzeugen, dafür ist die treffermenge zu klein ...

wäre für weitere hilfe dankbar!
andre.

J_Eilers · 16. Mai 2005

Versuchs mal so:

Code:

Private Sub btn_delTerm_Click()
'On Error Resume Next
Dim objNameSpace As Outlook.NameSpace
Dim objOutlook As Outlook.Application
Dim objKalender As Outlook.MAPIFolder
Dim objKalenderOrdner As Outlook.MAPIFolder
Dim Kalendereintrag As Outlook.AppointmentItem
Dim i As Long

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objKalender = objNameSpace.Folders.Item("Andre Heisig")
Set objKalenderOrdner = objKalender.Folders.Item("Kalender")

'Löschen aller Termine mit Kategorie "Terminplanung"
For i = objKalenderOrdner.Items.Count - 1 To 0 Step - 1
With objKalenderOrdner.Items(i)
If .Categories = "Terminplanung" Then
MsgBox "Betreff: " & .Subject & vbCr & "Beginn: " & .Start & "Ende: " & .End & vbCr & "Inhalt: " & .Body
.Delete
End If
End With
Next i

MsgBox "Alle alten Termine gelöscht ..."
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Andre.Heisig · 16. Mai 2005

hallo jan,

80% ... ;-) ... läuft, löscht alle termine, nach dem letzten (vermute ich) oder wenn keine vorhanden (weiss ich) kommt jedoch "Fehler -2147352567 - Array-Index ausserhalb des zulässigen Bereichs" ...

J_Eilers · 16. Mai 2005

Wahrscheinlich hat Outlook mal wieder keine Basis 0...

For i = objKalenderOrdner.Items.Count - 1 To 1 Step - 1

Wenn 1 überbleibt so:

For i = objKalenderOrdner.Items.Count To 1 Step - 1

Andre.Heisig · 16. Mai 2005

For i = objKalenderOrdner.Items.Count - 1 To 1 Step - 1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das scheints zu tun ... werde es gleich in ruhe testen, dann gibts die 100% ... ;-)

dank dir!
andre.

aliyah24 · 20. September 2013

Hallo Zusammen,

ich habe mir hier den Code für die Terminübertragung via VBA nach Outlook übernommen. Ich habe allerdings im meiner Abfrage-Tabelle(qryTermineOutlook) in Spalte "Termin" Zellen die kein Datum enthalten (Makro meldet Fehler). Wie muss ich den Code ändern, das er trotz leerer Zelle in Spalte Termin, alle Datensätze einträgt? Habs schon mit der IS NOT EMPTY bei der Select-Abfrage versucht, geht leider auch nicht *frown.gif*

Code:

Sub ACCToOUTL()
' Anlegen der aktuellen Plan-Termine in Outlook
Dim objNameSpace As Outlook.NameSpace
Dim objOutlook As Outlook.Application
Dim objKalender As Outlook.MAPIFolder
Dim objKalenderOrdner As Outlook.MAPIFolder
Dim Kalendereintrag As Outlook.AppointmentItem

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim SQL As String

Set objOutlook = New Outlook.Application
'Set objNameSpace = objOutlook.GetNamespace("MAPI")
'Set objKalender = objNameSpace.Folders.Item("Persönlicher Ordner")
'Set objKalenderOrdner = objKalender.Folders.Item("ProjektTermine")

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

SQL = "SELECT * FROM qryTermineOutlook"

rst.Open SQL, conn, adOpenKeyset, adLockOptimistic

Do While rst.EOF = False
Set Kalendereintrag = objOutlook.CreateItem(olAppointmentItem)
With Kalendereintrag
' aus der Abfrage stammende Werte
.Subject = rst![Projekt-Titel] & " " & rst!TerminTitel
.Body = "Bei Projekt " & rst![Projekt-Titel] & " (" & rst![PSP-Main] & ") liegt folgender Termin vor: " & rst!TerminTitel & "!"
.RequiredAttendees = "muster@provider.de" 'rst!Personen
'.Location = rst!Ort
.Categories = "Vorhaben-/Berichtstermeine" 'rst!Kategorie
.Start = rst!Termin + #6:00:00 PM#
.Duration = 30
.ReminderMinutesBeforeStart = 43200 'Einen Monat vorher erinnern
.ReminderPlaySound = False
.ReminderSet = True
.Save
End With
Set Kalendereintrag = Nothing
rst.MoveNext
Loop

rst.Close
Set rst = Nothing
conn.Close

'Set objKalenderOrdner = Nothing
'Set objKalender = Nothing
'Set objNameSpace = Nothing
Set objOutlook = Nothing

MsgBox "Kalender aktualisiert."

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank für die Hilfe
Grüße
Aliyah

aliyah24 · 20. September 2013

Habs gelöst.

Ich habe nochmal eine Abfrage erstellt ohne leere "Termin" und diese Abfrage in den Code genommen. Fertig.

Und für alle die auch gerne die Termine in einem anderen Kalender übertragen haben möchten, hier die Komplett-Lösung (zusammengebastellt von eimem Anfänger):
Code:

Sub ACCToOUTL()
' Anlegen der aktuellen Plan-Termine in Outlook
Dim objNameSpace As Outlook.NameSpace
Dim objOutlook As Outlook.Application
Dim objKalender As Outlook.MAPIFolder
Dim objKalenderOrdner As Outlook.MAPIFolder
Dim Kalendereintrag As Outlook.AppointmentItem

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim SQL As String

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objKalender = objNameSpace.GetDefaultFolder(olFolderCalendar)
'Set objKalender = objNameSpace.Folders.Item(olFolderCalendar)
Set objKalenderOrdner = objKalender.Folders.Item("ProjektTermine")

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

SQL = "SELECT * FROM qryTermineOutlook2"

rst.Open SQL, conn, adOpenKeyset, adLockOptimistic

Do While rst.EOF = False
Set Kalendereintrag = objKalenderOrdner.Items.Add
With Kalendereintrag
' aus der Abfrage stammende Werte
.Subject = rst![Projekt-Titel] & " " & rst!TerminTitel
.Body = "Bei Projekt " & rst![Projekt-Titel] & " (" & rst![PSP-Main] & ") liegt folgender Termin vor: " & rst!TerminTitel & "!"
.RequiredAttendees = "muster@provider.de" 'rst!Personen
'.Location = rst!Ort
.Categories = "Vorhaben-/Berichtstermeine" 'rst!Kategorie
.Start = rst!Termin + #6:00:00 PM#
.Duration = 30
.ReminderMinutesBeforeStart = 43200 'Einen Monat vorher erinnern
.ReminderPlaySound = False
.ReminderSet = True
.Save
End With
Set Kalendereintrag = Nothing
rst.MoveNext
Loop

rst.Close
Set rst = Nothing
conn.Close

Set objKalenderOrdner = Nothing
Set objKalender = Nothing
Set objNameSpace = Nothing
Set objOutlook = Nothing

MsgBox "Kalender aktualisiert."

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2000) Access => Outlook: Termine erstellen ja, löschen klappt nicht!

Access => Outlook: Termine erstellen ja, löschen klappt nicht!

Access => Outlook: Termine erstellen ja, löschen klappt nicht!

Access => Outlook: Termine erstellen ja, löschen klappt nicht!

Access => Outlook: Termine erstellen ja, löschen klappt nicht!

Access => Outlook: Termine erstellen ja, löschen klappt nicht!

Access => Outlook: Termine erstellen ja, löschen klappt nicht! - Similar Threads - Access Outlook Termine

Ändern eines Designs und Festlegen der Standardeinstellung in Outlook oder Access

Auswertung von Outlook Genehmigung/Ablehnung an Access übergeben

Access und Outlook

Access / Outlook Empfangsbestätigung

Access Daten in Outlook Kalender

Access Termine nach Outlook exportieren

Ändern eines Designs und Festlegen der Standardeinstellung in Outlook oder Access