Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Export: Access -> Outlook (Beispiel)
zurück: Es gibt keine älteren Themen in diesem Forum. weiter: Direkt eine externe Tabelle ansprechen - VIEL performanter Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
faßnacht(IT);
www.Office-Loesung.de Administrator


Verfasst am:
12. Jan 2004, 12:57
Rufname: Peter

Export: Access -> Outlook (Beispiel) - Export: Access -> Outlook (Beispiel)

Nach oben
       

HI Smile
Ich habe mal ein Beispiel aus meinem Erfahrungsschatz etwas angepasst.
Die Anpassungen habe ich noch nicht getestet.
Code:
' Menue: Extras -> Verweise Microsoft DAO 3.xx Object Library muss aktiv sein!
Option Compare Database
Option Explicit

Sub OutlookExport()
    Dim DB As DAO.Database, rsDaten As DAO.Recordset
    Dim fldOutlook As OutLook.MAPIFolder
    Dim conOutlook As OutLook.ContactItem
    Dim iItem As Integer

    DoCmd.Hourglass True
    Set DB = CurrentDb
    Set rsDaten = DB.OpenRecordset("DeineAbfrage")
    Set fldOutlook = OutlookContactFolder()
    With rsDaten
        Do Until .EOF
            Set conOutlook = fldOutlook.Items.Add(olContactItem)
            'Zum ändern eines vorhandenen Kontaktes nutzt man:
            'fldOutlook.Items.Find ("[CustomerID]=" & !DeineID)
            conOutlook.CompanyName = Nz(![Name2]) & " " & Nz(![Name3])
            conOutlook.BusinessAddressStreet = Nz(![Straße/Postfach])
            conOutlook.BusinessAddressPostalCode = Nz(![PLZ])
            conOutlook.BusinessAddressCity = Nz(![Ort])
            conOutlook.Categories = Nz(![TYP])
            conOutlook.OrganizationalIDNumber = Nz(![DeineID], 999999)
            conOutlook.CustomerID = Nz(![DeineID], 999999)
            conOutlook.LastName = Nz(![NachName])
            conOutlook.FirstName = Nz(![Vorname])
            conOutlook.Title = Nz(![Anrede])
            Select Case Left(Nz(![Anrede]), 1)
              Case "H":  conOutlook.Gender = 2
              Case "F":  conOutlook.Gender = 1
              Case Else: conOutlook.Gender = 0
            End Select
            conOutlook.Department = Nz(![AN-Abteilung])
            '.=nz(![AN-Drucken])
            conOutlook.HomeTelephoneNumber = Nz(![PrivatTel])
            '.... usw.
            conOutlook.Save
            .MoveNext
        Loop
    End With
    fldOutlook.Application.Quit
    Set fldOutlook = Nothing
    DoCmd.Hourglass False
End Sub

Function OutlookContactFolder() As OutLook.MAPIFolder
    Dim objOutlook As OutLook.Application
    Dim nspOutlook As OutLook.NameSpace
    Dim fldOutlook As OutLook.MAPIFolder

    Set objOutlook = GetCreateObject("Outlook.Application")
    Set nspOutlook = objOutlook.GetNamespace("MAPI")
    Set fldOutlook = nspOutlook.GetDefaultFolder(olFolderContacts)
    Set OutlookContactFolder = fldOutlook
End Function

_________________
na, hilft das weiter?
ciao Smile
Peter Faßnacht
Willi Wipp
Moderator


Verfasst am:
06. März 2004, 18:07
Rufname:
Wohnort: Raum Wiesbaden


Re: Export: Access -> Outlook (Beispiel) - Re: Export: Access -> Outlook (Beispiel)

Nach oben
       

{Dieser Beitrag nimmt das Thema aus den unbeantworteten Themen heraus}
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: Pivot nach Excel export. Aber nur Pivot! 4 Sono 5259 29. Mai 2009, 12:38
magi65 Pivot nach Excel export. Aber nur Pivot!
Keine neuen Beiträge Access Tabellen & Abfragen: Datum ändert sich beim Export von Access in Excel 14 Frenchie 2027 20. März 2009, 13:24
Gast Datum ändert sich beim Export von Access in Excel
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageprobleme (Zeitraum ab jetzt), Export nach Excel 0 Waldi_NW 404 20. März 2009, 11:33
Waldi_NW Abfrageprobleme (Zeitraum ab jetzt), Export nach Excel
Keine neuen Beiträge Access Tabellen & Abfragen: Outlook Kalender in Access mit allen Feldern 2 Gast 1918 07. Feb 2009, 23:27
Willi Wipp Outlook Kalender in Access mit allen Feldern
Keine neuen Beiträge Access Tabellen & Abfragen: Export eines großen datensatzes 1 q3stanky 390 04. Feb 2009, 00:15
trekking Export eines großen datensatzes
Keine neuen Beiträge Access Tabellen & Abfragen: Access Export in csv Problem mit NULL Werten in DB 3 pali99 1414 23. Jan 2009, 09:51
Gast Access Export in csv Problem mit NULL Werten in DB
Keine neuen Beiträge Access Tabellen & Abfragen: Export einer Tabelle mit falschen Nachkommastellen 1 andreas k 483 12. Jan 2009, 14:42
Gast Export einer Tabelle mit falschen Nachkommastellen
Keine neuen Beiträge Access Tabellen & Abfragen: Normalisierung Fußballtore (als Beispiel) 8 Christian B. 2521 13. Nov 2008, 11:18
Christian B. Normalisierung Fußballtore (als Beispiel)
Keine neuen Beiträge Access Tabellen & Abfragen: Access mit Outlook verknüpfen 2 Jecky 1226 30. Okt 2008, 09:55
Jecky Access mit Outlook verknüpfen
Keine neuen Beiträge Access Tabellen & Abfragen: Outlook kontakte in tabelle verwenden und weitere Daten hinz 0 Gast 1106 04. Jun 2008, 07:59
allgaierdive Outlook kontakte in tabelle verwenden und weitere Daten hinz
Keine neuen Beiträge Access Tabellen & Abfragen: Export als CSV...Feld irrtümlicherweise als dezimal mit ,00? 5 Zonk 1294 19. Nov 2007, 11:38
Zonk Export als CSV...Feld irrtümlicherweise als dezimal mit ,00?
Keine neuen Beiträge Access Tabellen & Abfragen: laufende Zeilennummerierung in Abfrage u Export in txt 11 monsti88 5905 22. Aug 2007, 16:53
monsti88 laufende Zeilennummerierung in Abfrage u Export in txt
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe