Office: Access Termine nach Outlook exportieren

Maori · 4. Juni 2003

Hallo Leute,

ich habe eine Terminverwaltung in Access und möchte die Termine nach Outlook exportieren als Termin ohne Uhrzeit. Ich habe mal etwas im Netz gefunden, dass hat aber nicht geklappt.

Diese Funktion müsste netzfähig sein, d.h. mehrere User mit eigenem Outlook, die auf die gleiche Access Datenbank zu greifen.

Hat jemand eine Idee.

:)

GroßerMeister · 6. Juni 2003

Hier eine Möglichkeit:
Die Termine werden in einer Accesstabelle eingegeben, pro Termin ein neues Feld und 3 Datensätze mit Betreff, Inhalt und Datum

Code:

Sub OutlookKalender()
Dim objOutlook As Outlook.Application
Dim myNameSpace As NameSpace
Dim myfolder As mapifolder
Dim olc As Outlook.AppointmentItem
Dim ter As Recordset
Dim fld As Field
Dim i As Integer
Dim subj, start As Boolean
Dim myitems As Items
Dim Datum As Date
Dim Land As String

Set ter = CurrentDb.OpenRecordset("Termine")
i = 0
ter.MoveNext
'**************Schleife für Felder der Tabelle Termine
For Each fld In ter.Fields

Set objOutlook = CreateObject("Outlook.Application")
Set myNameSpace = objOutlook.GetNamespace("MAPI")

'Erste Ordner-Ebene
Set myfolder = myNameSpace.Folders("Persönliche Ordner")

'Jetzt kommt der eigentliche Kalender
Set olc = myfolder.Folders("kalender").Items.Add(olAppointmentItem)

With olc

subj = False: start = False
ter.MoveFirst
ter.MoveNext: ter.MoveNext

'***************Eintrag Termin und Name des Abgleichs, wenn Datum in Tabelle aktuell

If CDate(IIf(Len(ter(i)) = 10, ter(i), #1/1/1900#)) > Date Then
'.start = ter(i)
Datum = ter(i)
ter.MoveFirst
Land = ter(i)
ter.MoveNext
If PurgeCalendarFolder(ter(i) & " " & Land, Datum) = False Then
MsgBox ter(i) & " " & Land & " " & Datum
.Subject = ter(i) & " " & Land
.start = Datum
.AllDayEvent = True
.Save
End If
i = i + 1
Else
i = i + 1

End If
End With

Set objOutlook = Nothing
Next

End Sub

Function PurgeCalendarFolder(Betreff As String, Datum As Date) As Boolean
Dim colItems As Items
Dim colOldItems As Items
Dim objItem As AppointmentItem
Dim strRes As String
Dim intCount As Integer
Dim strRestrict As String
Dim objOutlook As Outlook.Application
Dim myNameSpace As NameSpace
Dim objFol As mapifolder
Dim objfolder As mapifolder

Set objOutlook = CreateObject("Outlook.Application")
Set myNameSpace = objOutlook.GetNamespace("MAPI")
Set objFol = myNameSpace.Folders("Persönliche Ordner")
Set objfolder = objFol.Folders("Kalender")

' make sure this is a Calendar folder
If objfolder.DefaultItemType = olAppointmentItem Then
Set colItems = objfolder.Items

' get all the recurrences
colItems.Sort "[Start]"
colItems.IncludeRecurrences = True

' set optional restriction
strRestrict = GetRestrictDate(objfolder.Name)
If strRestrict "" Then
strRestrict = "[End] < " & Chr(34) & _
Format(strRestrict, "mmm dd, yyyy") & Chr(34) & " And [Start] > " & Chr(34) & Date & """"
Set colOldItems = colItems.Restrict(strRestrict)
End If

'****************Durchlaufen der Kalendereinträge
PurgeCalendarFolder = False
Set objItem = colOldItems.GetFirst
Do Until objItem Is Nothing
If objItem & " " & objItem.start = Betreff & " " & Datum Then PurgeCalendarFolder = True
intCount = intCount + 1
Set objItem = colOldItems.GetNext
Loop
End If

Set objItem = Nothing
Set colItems = Nothing
Set colOldItems = Nothing
Set objfolder = Nothing
Set objNS = Nothing
Set objOutlook = Nothing
End Function

Function GetRestrictDate(strFolderName As String) As String
Dim strMsg As String
Dim strTitle As String
Dim strResponse As String

If strResponse = "" Or IsDate(strResponse) Then
GetRestrictDate = Date + 60
Else
strResponse = GetRestrictDate(strFolderName)
End If

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

Sascha Trowitzsch · 6. Juni 2003

Noch ein paar Links:

http://www.ms-office-forum.net/forum...der=descending

u_schersching · 18. August 2003

Hallo Marco,
ich habe eine kleine Access-Anwendung, bestehend aus 2 Tabellen (Auftrag+Kunde) und brauche hierfür eine Terminverwaltung. Vorgestellt habe ich mir ein Kalenderblatt mit verschiedenen Sichten(Woche,Monat,Jahr) in dem der User seine Termine eingeben kann unter Einbeziehung von Auftrag und Kunde. Durch Blättern im Access-Forum bin ich auf Dich gestoßen, da Du eine Terminverwaltung in Access geschrieben hast. Da ich kein Programmierer bin, wäre ich Dir sehr dankbar, wenn Du mir ein wenig unter die Arme greifen könntest.

Ulli

samoht · 31. Dezember 2004

Kriege deinen code einfach nicht zum laufen.
Fehlermeldung bei der zeile

Set ter = CurrentDb.OpenRecordset("Termine")

typen unverträglich

ich hab eine tabelle mit den 3spalten siehe grafik

*rolleyes.gif*

besten dank für eine antwort

und natürlich einen guten rutsch ins neue jahr

Arne Dieckmann · 31. Dezember 2004

Kontrolliere einfach mal die Verweise. S. dazu donkarls FAQ 7.11 (der Verweis auf DAO wird wohl fehlen), FAQ 7.1 (Link in meiner Signatur) und http://home.arcor.de/ar/arne.d/daten...ndex.html#SEC4

samoht · 1. Januar 2005

besten dank *hands

dein tip mit den verweisen hat mich weitergebracht.

gruss samoth *happy

Office: Access Termine nach Outlook exportieren

Access Termine nach Outlook exportieren

Access Termine nach Outlook exportieren

Access Termine nach Outlook exportieren

Access Termine nach Outlook exportieren - Similar Threads - Access Termine Outlook

Ausdruck eines Etiketts auf verschiedenen PCs steuern

Access als Mediaplayer

Smarttags in Access LTE (2021)

Excel zu Access

Access Neuer Datensatz im Formular

automatische Abfrage URL via Artikelnummer

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