Juni 27, 2022, 14:44:21

Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!


Outlook Kontakte in Access bearbeiten

Begonnen von asiat, März 10, 2011, 13:56:03

⏪ vorheriges - nächstes ⏩

asiat

März 10, 2011, 13:56:03 Letzte Bearbeitung: März 11, 2011, 15:29:15 von asiat
Hallo,
die Überschrift sagt schon alles, oder ?

ich habe den Code  von database bekommen
   
Private Sub cmdCreate_Click()

   Dim oAppl As Outlook.Application
   Dim oNS As Outlook.NameSpace
   Dim oMAPIFolder As Outlook.MAPIFolder
   Dim oContact As Outlook.ContactItem
   Dim strSpezialordner As String
   '----------------------------------
   'Definiert deinen speziellen Ordner
   strSpezialordner = "dance"
   '----------------------------------
   On Error GoTo errHandle
   
   If Not IsNull(Me.txtVorname) And Not IsNull(Me.txtNachname) Then
       
       Set oAppl = CreateObject("Outlook.Application")
       Set oNS = oAppl.GetNamespace("MAPI")
       'Den speziellen Ordner zum Beschreiben vorbeitreiten
       Set oMAPIFolder = oNS.GetDefaultFolder(olFolderContacts).Folders(strSpezialordner)
   
       'Kontakteintrag hinzufügen
       Set oContact = oMAPIFolder.Items.Add
       
       With oContact
           .LastName = Me!txtNachname
           .FirstName = Me!txtVorname
           .Save
       End With
       
       Me!txtNachname = Null
       Me!txtVorname = Null
       
   Else
   
       MsgBox "Es wurden nicht alle erforderlichen Eingaben gemacht!"
       Exit Sub
       
   End If

ExitHere:
   Set oContact = Nothing
   Set oMAPIFolder = Nothing
   Set oNS = Nothing
   Set oAppl = Nothing
   Exit Sub
   
errHandle:
   MsgBox "Es ist ein Fehler beim Zugriff auf Outlook aufgetreten! """
   Resume ExitHere
   
End Sub



das erlaubt Daten in Outlook in bestimmten Ordner hinzufügen.
Ich möchte schon vorhandene Daten bearbeiten
---------------

kann mich einer in die richtige Richtung schubsen, ein link oder so.