collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 65
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 4
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 13808
  • stats Beiträge insgesamt: 64126
  • stats Themen insgesamt: 8674
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Autor Thema: Outlook Kontakte in Access bearbeiten  (Gelesen 2239 mal)

Offline asiat

  • Access-Profi
  • **
  • Beiträge: 103
Outlook Kontakte in Access bearbeiten
« am: März 10, 2011, 13:56:03 »
Hallo,
die Überschrift sagt schon alles, oder ?

ich habe den Code  von database bekommen
   
Code: (vb) [Auswählen]
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.

« Letzte Änderung: März 11, 2011, 15:29:15 von asiat »