collapse

* Benutzer Info

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

* Wer ist Online

  • Punkt Gäste: 104
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 2
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14130
  • stats Beiträge insgesamt: 68367
  • stats Themen insgesamt: 9208
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Outlook Kontakte in Access bearbeiten  (Gelesen 2640 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: Visual Basic
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 »
 

 

Outlook Postfächer

Begonnen von MjayBoard Access Programmierung

Antworten: 4
Aufrufe: 3215
Letzter Beitrag September 13, 2010, 10:15:37
von Mjay
Email senden aus Bericht und Sende-Bestätigung aus Outlook in Kontrollkästchen

Begonnen von PergusBoard Access Programmierung

Antworten: 2
Aufrufe: 2685
Letzter Beitrag März 30, 2011, 06:34:53
von Pergus
Termin wieder aus outlook löschen

Begonnen von tismoBoard Access Programmierung

Antworten: 0
Aufrufe: 2367
Letzter Beitrag Mai 05, 2011, 22:13:31
von tismo
Email Outlook Signatur

Begonnen von JonnyBoard Access Programmierung

Antworten: 8
Aufrufe: 5919
Letzter Beitrag Januar 10, 2012, 17:35:12
von DF6GL
Signatur weg bei Email senden über VBA (Outlook 2010)

Begonnen von phanthomiasBoard Access Programmierung

Antworten: 4
Aufrufe: 8378
Letzter Beitrag Januar 27, 2012, 14:52:42
von Jonny