Hey Leute,

ich würde bei Outlook 2010 gern ein Makro haben, welches meine Kontakte aktualisiert. 

Zu meinen Problem:
Die Kontakt CSV, von der ich die Kontakte alle 2 Woche aktualisiere, liegt hierbei auf einem Netzlaufwerk und hat immer denselben Pfad. Nun wollte ich mir diesen Vorgang mit einem Makro vereinfachen. Es ist außerdem notwendig, dass es Duplikate durch die neueren Dateien ersetzt.

Ich habe bereits ein bisschen was versucht.

Sub Import_contacts()

    Dim qWks As Worksheet

    Dim i As Integer

    Dim MyOutApp As Object

    Dim MyOutCon As Object

    Dim mf As Object

    Dim sFile As String

    Dim sPfad As String

    'Wo stehen die Kontaktdaten

    sPfad = "C:\Test\"

    sFile = "Adressen.csv"

    Set qWks = sPfad & sFile

    'Outlook Objekt erstellen

    Set MyOutApp = CreateObject("Outlook.Application")

    'Mit "With" wird auf das Tabellenobjekt referenziert

    With qWks

        'Zählschleife starten

        'Dazu wird der letzten Eintrag in Spalte A bestimmt

        'Der Adressenbereich beginn in Zeile 2

        'deshalb startet auch die Zählschleife dort

        For i = 2 To Range("A300").End(xlUp).Row

            'Outlook Kontaktobject erstellen

            Set mf = MyOutApp.GetNamespace("MAPI").GetDefaultFolder(10).Folders("test")

            Set MyOutCon = mf.Items.Add(2)

            'Eine vollständige Liste der möglichen Felder

            'finden Sie in der Outlook-VBA-Hilfe

            With MyOutCon

                .FirstName = Cells(i, 1).Value

                .LastName = Cells(i, 1).Offset(0, 1).Value

                .Email1Address = Cells(i, 1).Offset(0, 2).Value

                .MobileTelephoneNumber = Cells(i, 1).Offset(0, 3).Value

                .Save

            End With

            'Object entfernen

            Set MyOutCon = Nothing

        Next i

    End With

    Set MyOutApp = Nothing

End Sub

Jedoch bricht er mit "Typen unverträglich." ab. Da ich kaum Erfahrung in VBA-Programmierung habe, komme ich jetzt einfach nicht mehr weiter.

Verwendet jemand von euch sowas oder hat eine Idee wie ich das lösen könnte?

Danke schon mal für eure Antworten.