Aus Access einen Termin in Outlook eintragen
Hansueli Rickli
Ich habe in Access Termine die ich mit den Terminen in Outlook
vergleichen/abgleichen möchte.
Wenn ich aus Access mit Outlook verbinde, so sehe ich die unten aufgeführten
Felder.
Da ist alles drin, nur das wichtigste: Datum und Zeit vom Termin seht nicht
drin.
Wie kann ich die Termine bearbeiten
Hansueli Rickli
Spalten
Name Typ Größe
Dringlichkeit Long Integer 4
Symbol Text 255
Priorität Long Integer 4
Betreff Text 255
Von Text 255
Direkt an mich gesendet Ja/Nein 1
Kopie (CC) an mich Ja/Nein 1
Absendername Text 255
CC Text 255
An Text 255
Erhalten Datum/Uhrzeit 8
Nachrichtengröße Long Integer 4
Inhalt Memo -
Erstellt Datum/Uhrzeit 8
Geändert Datum/Uhrzeit 8
Betreffpräfix Text 255
Hat Anlagen Ja/Nein 1
Normalisierter Betreff Text 255
Objekttyp Long Integer 4
Ungelesen Long Integer 4
Beispiel: ( mit ; getrennt)
Dringlichkeit; Symbol; Priorität; Betreff; Von; Direkt an mich gesendet;
Kopie (CC) an mich; Absendername; CC; An; Erhalten; Nachrichtengröße;
Inhalt; Erstellt; Geändert; Betreffpräfix; Hat Anlagen; Normalisierter
Betreff; Objekttyp; Ungelesen
1; IPM.Appointment; 0; Visitation Gericht; Hansueli Rickli; ; ; Hansueli
Rickli; ; ; 10.04.2000 08:04:40; 642; ; 10.04.2000 08:04:39; 10.04.2000
08:04:39; ; 0; Visitation Gericht; 5;
1; IPM.Appointment; 0; Test; Hansueli Rickli; ; ; Hansueli Rickli; ; ;
10.07.2000 12:21:25; 621; ; 10.07.2000 12:20:57; 10.07.2000 12:20:57; ; 0;
Test; 5;
1; IPM.Appointment; 0; hansueli; Hansueli Rickli; ; ; Hansueli Rickli; ;
Hansueli Rickli; 10.07.2000 12:26:34; 1171; ; 10.07.2000 12:26:05;
10.07.2000 12:26:05; ; 0; hansueli; 5;
Folke Kieseler
Hallo,
ein Demo dazu findest Du hier:
www.outlook-net.de/download.htm
hier gibt's weitere Beispiele:
http://ulster.net/~hfeddema/
--
Folke Kieseler / MCSE
MS Outlook 2000-FAQ: http://www.outlook-net.de/faq.htm
MS Outlook 98-FAQ: http://www.pc-faq.de/outlook98
***** Bitte keine Outlook-Fragen per Email. *****
"Hansueli Rickli" <ric...@affolternamalbis.NOSPAMch> schrieb im
Newsbeitrag news:#g$tgoo6$GA.242@cppssbbsa05...
Hansueli Rickli
Hansueli
Hansueli Rickli
Hoffentlich darf ich soviel Code hier zeigen?
Hansueli
Option Compare Database
Option Explicit
Sub TermineInOutlookNeuSetzen()
FriStiTermineClear
TermineInOutSetzen
End Sub
Sub CreateKontakt(GV, Start, Minuten, Text)
Dim objOutApp As Outlook.Application
Dim objOutNms As Outlook.NameSpace
Dim objOutFolder As Outlook.MAPIFolder
Dim objOutItm As Outlook.AppointmentItem
Set objOutApp = New Outlook.Application
Set objOutNms = objOutApp.GetNamespace("MAPI")
Set objOutFolder = objOutNms.GetDefaultFolder(olFolderCalendar)
Set objOutItm = objOutFolder.Items.Add(olAppointmentItem)
objOutItm.Duration = Minuten
objOutItm.Subject = GV
objOutItm.Start = Start
objOutItm.Body = Text
objOutItm.Categories = "FriSti"
objOutItm.Save
End Sub
Sub TermineInOutSetzen()
Dim rstTermine As Recordset
Dim Zeit As Date
Dim Minuten As Long
Dim Start As Date
Dim Duration As Date
Dim GV As String
Dim DBp As Database
Dim Text As String
Set DBp = CurrentDb 'P
Set rstTermine = DBp.OpenRecordset("Geplante Verhandlungen", dbOpenSnapshot)
'as Recordset Da sind meine Termine in Access die ich in outlook haben will
If Not (rstTermine.EOF And rstTermine.BOF) Then
rstTermine.MoveFirst
Do While Not rstTermine.EOF
If IsNull(rstTermine("Zeit")) Or rstTermine("Zeit") = "00:00" Then
Zeit = "12:00"
Else
Zeit = rstTermine("Zeit")
End If
Start = rstTermine("Datum") & " " & Zeit
If IsNull(rstTermine("Dauer")) Or rstTermine("Dauer") = "00:00" Then
Duration = "01:00"
Else
Duration = rstTermine("Dauer")
End If
Minuten = 60 * Hour(Duration) + Minute(Duration)
GV = rstTermine("GV")
Text = rstTermine("Art") & ": " & rstTermine("Bemerkung")
CreateKontakt GV, Start, Minuten, Text
rstTermine.MoveNext
Loop
Else
End If
rstTermine.Close
Set rstTermine = Nothing
DBp.Close
Set DBp = Nothing
End Sub
Sub FriStiTermineClear()
Dim objOutApp As Outlook.Application
Dim objOutNms As Outlook.NameSpace
Dim objOutFolder As Outlook.MAPIFolder
Dim objOutTermin As Outlook.AppointmentItem
Dim objSelectedItm As Outlook.AppointmentItem
Dim objOutTermine As Outlook.Items
Dim rquery As String
Dim test As Variant
Set objOutApp = New Outlook.Application
Set objOutNms = objOutApp.GetNamespace("MAPI")
Set objOutFolder = objOutNms.GetDefaultFolder(olFolderCalendar)
rquery = "[Kategorien] = 'FriSti'"
Set objOutTermin = Nothing
Set objOutTermine = objOutFolder.Items.Restrict(rquery) '(olAppointmentItem)
Set objOutTermin = objOutTermine.Find(rquery)
Do While objOutTermine.Count > 0
objOutTermin.Delete
Set objOutTermin = objOutTermine.Find(rquery)
Loop
End Sub
Folke Kieseler
Von mir aus, gerne :-))
Aber es geht jetzt, weil Du es geschafft hast!
Und eine letzte Bitte :-))
"Folke" ist wirklich ungewöhnlich.
Aber mache es mir nicht noch schwerer. <LOL>
--
Folke Kieseler
"Hansueli Rickli" <ric...@affolternamalbis.ch> schrieb im Newsbeitrag
news:u0FApGW7$GA....@cppssbbsa02.microsoft.com...
