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.