vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: zwei Fragen zu Outlook auslesen 
Autor: ModeratorDieter (Moderator)
Datum: 29.01.02 10:51
Hallo cl,

also ich habe mir mal die OutlookOrdnerExportieren-Prozedur angeschaut und sie ein wenig abgeändert. Beim Aufruf brauchst Du jetzt nur noch den vollständigen Dateinamen anzugeben, in welche dann alle Adressen im Format Lfnr;FullName;TimeStamp exportiert werden.

Ich habe es leider nicht testen können, da ich nicht mit Outlook arbeite und somit auch keine Adressen im Adressbuch stehen habe.

Also probier's einfach mal aus: 
<code><font color=#000099>Public</font> <font color=#000099>Sub</font> _
  OutlookOrdnerExportieren(strExportFile _
  <font color=#000099>As</font> <font color=#000099>String</font>)
 
  <font color=#000099>Dim</font> objOutlook <font color=#000099>As</font> Object
  <font color=#000099>Dim</font> objNamespace <font color=#000099>As</font> _
    Object
  <font color=#000099>Dim</font> objFolder <font color=#000099>As</font> Object
  <font color=#000099>Dim</font> objItem <font color=#000099>As</font> _
    Outlook.ContactItem
  <font color=#000099>Dim</font> x <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> MyItem <font color=#000099>As</font> Object
  <font color=#000099>Dim</font> myContacts <font color=#000099>As</font> Object
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
 
  <font color=#000099>Set</font> objOutlook = CreateObject( _
    "Outlook.Application")
  <font color=#000099>Set</font> objNamespace = objOutlook.GetNamespace("MAPI")
 
  <font color=green>' Outlook Ordnerauswahl öffenen...</font>
  <font color=green>' (Set objFolder = objNameSpace.PickFolder)</font>
  <font color=green>' Kalender = olFolderCalendar</font>
  <font color=green>' Posteingang = olFolderInbox</font>
  <font color=green>' Postausgang = olFolderOutbox</font>
  <font color=green>' Gesendete Mails = olFolderSentMail</font>
  <font color=green>' Adressbuch = olFolderContacts</font>
  <font color=green>' Papierkorb = olFolderDeletedItems</font>
  <font color=green>' Notizen = olFolderNotes</font>
  <font color=green>' Aufgaben = olFolderTasks</font>
  <font color=green>' ? = olFolderDrafts</font>
  <font color=green>' ? = olFolderJournal</font>
  <font color=#000099>Set</font> objFolder = objNamespace.GetDefaultFolder( _
    olFolderContacts)
 
  <font color=green>' nächste freie Dateinummer</font>
  F = FreeFile
 
  <font color=green>' Datei öffnen (ggf. vorhandene überschreiben)</font>
  <font color=green>' sollen die Daten angehängt werden muss die</font>
  <font color=green>' Datei mit FOR APPEND geöffnet werden</font>
  <font color=#000099>Open</font> strExportFile <font color=#000099>For</font> _
    <font color=#000099>Output</font> <font color=#000099>As</font> #F
 
  <font color=green>' Schleife durch alle Objekte dieses Ordners...</font>
  <font color=#000099>For</font> x = 1 <font color=#000099>To</font> _
    objFolder.Items.Count
    <font color=#000099>Set</font> objItem = objFolder.Items(x)
    <font color=green>' aktuelles Objekt speichern</font>
    <font color=green>' Format: LfNr;Name;TimeStamp</font>
    <font color=#000099>Print</font> #F, <font color=#000099>CStr</font>(x) & _
      ";" & _
      objItem.FullName & ";" & _
      objItem.LastModificationTime
 
    <font color=green>' Steuerung an das Betriebssystem übergeben, damit</font>
    <font color=green>' es andere Ereignisse verarbeiten kann.</font>
    DoEvents
 
    <font color=#000099>Set</font> objItem = <font color=#000099>Nothing</font>
  <font color=#000099>Next</font> x
 
  <font color=green>' Datei schliessen</font>
  <font color=#000099>Close</font> #F
 
  <font color=green>' Objekte entladen...</font>
  <font color=#000099>Set</font> objOutlook = <font color=#000099>Nothing</font>
  <font color=#000099>Set</font> objNamespace = <font _
    color=#000099>Nothing</font>
  <font color=#000099>Set</font> objFolder = <font color=#000099>Nothing</font>
  <font color=#000099>Set</font> objItem = <font color=#000099>Nothing</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
zwei Fragen zu Outlook auslesen127cl29.01.02 09:31
Re: zwei Fragen zu Outlook auslesen428ModeratorDieter29.01.02 09:46
Re: zwei Fragen zu Outlook auslesen79cl29.01.02 10:12
Re: zwei Fragen zu Outlook auslesen856ModeratorDieter29.01.02 10:51
Re: zwei Fragen zu Outlook auslesen87cl29.01.02 11:07
Noch ein Frage bezüglich Zeilenumbruch77cl29.01.02 12:17
Re: Noch ein Frage bezüglich Zeilenumbruch452ModeratorDieter29.01.02 12:39
Re: Noch ein Frage bezüglich Zeilenumbruch79cl29.01.02 13:15
Frage zu dem Code98cl29.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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel