Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Access Adressdatenbank und Adreßbuch Import Outlook ??
zurück: Tabellen Berechen weiter: Abfrage von Halbjahreswerten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
christine10000
Gast


Verfasst am:
11. Dez 2004, 13:24
Rufname:

Access Adressdatenbank und Adreßbuch Import Outlook ?? - Access Adressdatenbank und Adreßbuch Import Outlook ??

Nach oben
       

Hallo miteinander,

habe folgendes Problem:

Möchte eine Adressdatenbank die als Access-Datei vorliegt, in mein

Outlook-Adressbuch importieren. Aber jetzt:
Die importierte Datei soll nicht im Adressbuch unter Kontakten, also bereits

vorhanden Einträgen erscheinen, sondern gleich in einer zuvor erstellten Gruppe

landen! Würde die Access-Datei einfach nur importiert hätte ich alles in den

Kontakten, das wäre zuviel und unübersichtlich.
Weiterhin habe ich in der Access-Datei eine Spalte "Überbegriff".
Kann ich sortiert nach jeweils irgendeinem Begriff in dieser Spalte Einträge

ins Adreßbuch importieren mit der dazugehörigen gleichnamigen Gruppe?

Hoffentlich war das verständlich !!??

Dabke für Eure Mühe
es grüßt
Chris
Heathen
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Dez 2004, 11:32
Rufname:


AW: Access Adressdatenbank und Adreßbuch Import Outlook ?? - AW: Access Adressdatenbank und Adreßbuch Import Outlook ??

Nach oben
       

hi Smile

Führ folgenden Code aus, dann sollte es finktionieren. (Die Kontaktfolder die im Feld Überbegriffe dürfen noch nicht in Outlook existieren!)
Code:
Public Sub testlauf()
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim myNewFolder As Outlook.MAPIFolder
    Dim sEntryID As String
    Dim rs As DAO.Recordset
    Dim sqry As String

    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
    'Kontaktfolder erstellen
    sqry = "select Distinct [Überbegriff] from [DeineTabelle] order by [Überbegriff];"
    Set rs = CurrentDb.OpenRecordset(sqry)
    Do While Not rs.EOF
        Set myNewFolder = myFolder.Folders.Add(rs![Überbegriff])
        sEntryID = myNewFolder.EntryID
        'aufruf zum Eintragen der Kontakte im Folder
        adding sEntryID, rs![Überbegriff]
        rs.MoveNext
    Loop
    rs.Close
End Sub

Public Sub adding(sEntryID As String, sUeberbegriff As String)
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim myItem As Outlook.ContactItem
    Dim myOtherItem As Outlook.ContactItem
    Dim rsEintrag As DAO.Recordset
    Dim sqry As String
 
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetFolderFromID(sEntryID)
    sqry = "select * from [DeineTabelle] where [Überbegriff]='" & sUeberbegriff & "'"
    Set rsEintrag = CurrentDb.OpenRecordset(sqry)
    Do While Not rsEintrag.EOF
        Set myItem = myFolder.Items.Add
        'Einträge vornehmen (Name, Vorname, Mail-adresse usw.)
        myItem.LastName = rsEintrag![Name]
        myItem.FirstName = rsEintrag![Vorname]
        myItem.Email1Address = Nz(rsEintrag![E-Mail], "keine Mail")
        '.
        '.
        '.
        'usw.
        myItem.Save
        rsEintrag.MoveNext
    Loop
End Sub

Gruß Heathen
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Import und Normalisierung aus Excel nach Access 1 friedrichshain 1535 07. März 2008, 20:33
MiLie Import und Normalisierung aus Excel nach Access
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler beim import von Excel-Datei 2 Klausei 588 21. Dez 2007, 17:47
Marcore666 Fehler beim import von Excel-Datei
Keine neuen Beiträge Access Tabellen & Abfragen: #Num! Fehler bei xls import 21 grossermanitu 2759 05. Dez 2007, 03:38
grossermanitu #Num! Fehler bei xls import
Keine neuen Beiträge Access Tabellen & Abfragen: Bei Import von Daten wechselt automatisch die Datenban 2 maxmanfred11 601 19. Sep 2007, 09:47
Gast Bei Import von Daten wechselt automatisch die Datenban
Keine neuen Beiträge Access Tabellen & Abfragen: Da gab es doch mal was:.... beim Import Dubletten killen...? 1 me-$-on 577 27. Aug 2007, 13:56
SGast Da gab es doch mal was:.... beim Import Dubletten killen...?
Keine neuen Beiträge Access Tabellen & Abfragen: Turbolister csv import/Export Frage 2 valdy 5185 20. Aug 2007, 15:45
valdy Turbolister csv import/Export Frage
Keine neuen Beiträge Access Tabellen & Abfragen: Import von Excel Tabellen mit Dublettenprüfung 9 webolli 3919 14. Dez 2006, 20:16
steffen0815 Import von Excel Tabellen mit Dublettenprüfung
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung, Import oder notfalls Kopie von Web-Dateien 0 Rhett 1100 10. Nov 2006, 12:20
Rhett Verknüpfung, Import oder notfalls Kopie von Web-Dateien
Keine neuen Beiträge Access Tabellen & Abfragen: "Invalid Argument" bei Import von Sage-Tabelle 1 Gast 1608 08. Sep 2006, 15:28
brans "Invalid Argument" bei Import von Sage-Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Bei Import aus "." mach "#" warum?? 3 huk 598 03. Aug 2006, 12:25
Willi Wipp Bei Import aus "." mach "#" warum??
Keine neuen Beiträge Access Tabellen & Abfragen: Einzelne Datensätze ins Outlook Adressbuch 0 Pando0ora 707 01. Jun 2006, 09:07
Pando0ora Einzelne Datensätze ins Outlook Adressbuch
Keine neuen Beiträge Access Tabellen & Abfragen: Import einer TXT-Datei mit Blöcken 5 Nonetti 682 21. Mai 2006, 16:52
SGast Import einer TXT-Datei mit Blöcken
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS