Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

zwei Fragen zu Outlook auslesen
Autor: cl
Datum: 29.01.02 09:31
Ich muss die Daten des Adressbuches aus dem Outlook in ein File speichern. Das gelang mir ja schon, aber es muss doch sowas wie eine ID für jede adresse geben, die ich auch in das File speichern muss. Und das Datum der Änderung soll ich auch noch mit in das File speichern. Ich hab den Code unten eingefügt. Kann mir irgendwer dabei helfen? Ich danke schon im Vorraus mfg cl der Code: Public Sub OutlookOrdnerExportieren(strExportDir _ As String, strExtension As String, olExportType _ As OlSaveAsType) Dim objOutlook As Object Dim objNamespace As Object Dim objFolder As Object Dim objItem As Outlook.ContactItem Dim x As Integer Dim MyItem As Object Dim myContacts As Object Dim lmod 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(olFolderContacts) 'Schleife durch alle Objekte dieses Ordners... For x = 1 To objFolder.Items.Count Set objItem = objFolder.Items(x) 'dann ist lmod mit wert belegt ( o.t. ) lmod = objItem.LastModificationTime 'MsgBox objItem.LastModificationTime 'Steuerung an das Betriebssystem übergeben, damit 'es andere Ereignisse verarbeiten kann. DoEvents 'Aktuelles Objekt exportieren... objItem.SaveAs CreateFileName(strExportDir, _ objItem.Subject, strExtension), olExportType Set objItem = Nothing Next x 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'Zeigt das Datum und die Zeit des Eintrages an, aber nur in einer 'Message Box 'Set myContacts = objNamespace.GetDefaultFolder _ '(olFolderContacts).Items 'For Each MyItem In myContacts 'MsgBox MyItem.FullName & ": " & MyItem.LastModificationTime 'Next 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'Objekte entladen... Set objOutlook = Nothing Set objNamespace = Nothing Set objFolder = Nothing Set objItem = Nothing End Sub --------------------------------- Private Function CreateFileName(strExportDir As String, _ strSubject As String, strExtension As String) _ As String Dim strFile As String Dim i As Integer 'Abschließender Back-Slash am Ende des Pfades setzen... If Right(strExportDir, 1) <> "" Then strExportDir = _ strExportDir & "" 'Ersetzen von unzulässigen Zeichen! 'Ab VB > 6.0, ansonsten muss die Replace-Funktion 'selbst gebastelt werden... strSubject = Replace(strSubject, "", "#") strSubject = Replace(strSubject, "/", "#") strSubject = Replace(strSubject, ":", "#") strSubject = Replace(strSubject, "*", "#") strSubject = Replace(strSubject, "?", "#") strSubject = Replace(strSubject, Chr(34), "'") strSubject = Replace(strSubject, vbTab, " ") strSubject = Replace(strSubject, "<", "#") strSubject = Replace(strSubject, ">", "#") strSubject = Replace(strSubject, "|", "#") 'Dateiname erstellen... strFile = strExportDir & strSubject & "." & strExtension Do 'Wenn der Dateiname bereits existiert, muss ein neuer 'ermittelt werden mit hochgezähltem Index... If Dir(strFile) <> "" Then i = i + 1 strFile = strExportDir & strSubject & _ " " & i & "." & strExtension Else Exit Do End If Loop 'Endgültiger Dateiname zurückliefern! CreateFileName = strFile End Function

zwei Fragen zu Outlook auslesen	127	cl	29.01.02 09:31
Re: zwei Fragen zu Outlook auslesen	427	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	855	Dieter	29.01.02 10:51
Re: zwei Fragen zu Outlook auslesen	86	cl	29.01.02 11:07
Noch ein Frage bezüglich Zeilenumbruch	77	cl	29.01.02 12:17
Re: Noch ein Frage bezüglich Zeilenumbruch	452	Dieter	29.01.02 12:39
Re: Noch ein Frage bezüglich Zeilenumbruch	79	cl	29.01.02 13:15
Frage zu dem Code	98	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