Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Frage zu dem Code
Autor: cl
Datum: 29.01.02 15:27
Danke nochmal für die Hilfe! Nun habe ich aber eine neue Aufgabe bekommen, und wollte nur mal nachfragen, ob Kalendar auslesen, mit diesem Code nun auch fuktioniert? Ich weiß nicht was ich bei der Definizion des objItem einsetzen soll. Bei den Adressen war es 'Dim objItem As Outlook.ContactItem' aber was soll ich bei dem Kalendar einsetzten? Ich danke dir im Vorraus mfg Claudia Public Sub OutlookOrdnerExportieren2(strExportFile _ As String) Dim objOutlook As Object Dim objNamespace As Object Dim objFolder As Object Dim objItem As ????? Dim x As Integer Dim MyItem As Object Dim myContacts As Object Dim F As Integer Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") ' Outlook Ordnerauswahl öffenen... ' (Set objFolder = objNameSpace.PickFolder) ' Kalender = olFolderCalendar ' Posteingang = olFolderInbox ' Postausgang = olFolderOutbox ' Gesendete Mails = olFolderSentMail ' Adressbuch = olFolderContacts ' Papierkorb = olFolderDeletedItems ' Notizen = olFolderNotes ' Aufgaben = olFolderTasks ' ? = olFolderDrafts ' ? = olFolderJournal Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar) ' nächste freie Dateinummer F = FreeFile ' Datei öffnen (ggf. vorhandene überschreiben) ' sollen die Daten angehängt werden muss die ' Datei mit FOR APPEND geöffnet werden Open strExportFile For Output As #F ' Schleife durch alle Objekte dieses Ordners... For x = 1 To objFolder.Items.Count Set objItem = objFolder.Items(x) ' aktuelles Objekt speichern ' Format: LfNr;Name;TimeStamp Print #F, CStr(x) & ";" & _ objItem.FullName & ";" & _ objItem.LastModificationTime ' Steuerung an das Betriebssystem übergeben, damit ' es andere Ereignisse verarbeiten kann. DoEvents Set objItem = Nothing Next x ' Datei schliessen Close #F ' Objekte entladen... Set objOutlook = Nothing Set objNamespace = Nothing Set objFolder = Nothing Set objItem = Nothing End Sub

zwei Fragen zu Outlook auslesen	128	cl	29.01.02 09:31
Re: zwei Fragen zu Outlook auslesen	428	Dieter	29.01.02 09:46
Re: zwei Fragen zu Outlook auslesen	79	cl	29.01.02 10:12
Re: zwei Fragen zu Outlook auslesen	856	Dieter	29.01.02 10:51
Re: zwei Fragen zu Outlook auslesen	87	cl	29.01.02 11:07
Noch ein Frage bezüglich Zeilenumbruch	78	cl	29.01.02 12:17
Re: Noch ein Frage bezüglich Zeilenumbruch	453	Dieter	29.01.02 12:39
Re: Noch ein Frage bezüglich Zeilenumbruch	80	cl	29.01.02 13:15
Frage zu dem Code	99	cl	29.01.02 15:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen