Office: Excel --> Outlook

Hallo zusammen!

Ich habe ein paar Codezeilen die mir Excel Kontakte in Outlook importieren.

So jetzt die Frage weis jemand wie man ausExcel heraus in Outlook einen Neuen Kontakte Ordner erstellt und die Kontakte dann gleich in diesen Ordner einfügt?

Danke schonmal im voraus!

 

So habe nun folgende Code der auch schon sehr gut funktioniert:

Code:

Option Explicit


Sub Send_Contact_List()

Dim test As String



    Dim qWks As Worksheet, i As Integer
    Dim out As Object, MyOutCon As Object
    Dim mynamespace As Object
    Dim Myfolder As Object
    Dim Mynewfolder As Object
    Dim test1 As Object
    Dim newfolder As Object

    test = "neuerKontaktordner"
    
 'Wo stehen die Kontaktdaten
    Set qWks = Worksheets("Tabelle1")
    'Outlook Objekt erstellen
    Set out = CreateObject("Outlook.Application")


 Set Myfolder = out.getnamespace("MAPI").GetDefaultFolder(10)
 Set Mynewfolder = Myfolder.Folders.Add(test)
Mynewfolder.display


    '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 = 4 To Range("B65536").End(xlUp).Row
            'Outlook Kontaktobject erstellen

            Set MyOutCon = out.createitem(2)
            
            'Eine vollständige Liste der möglichen Felder
            'finden Sie in der Outlook-VBA-Hilfe
            With MyOutCon
                .FirstName = Cells(i, 1).Offset(0, 2).Value
                .CompanyName = Cells(i, 1).Offset(0, 1).Value
                .Email1Address = Cells(i, 1).Offset(0, 4).Value
                .Save
            End With
            'Object entfernen
            Set MyOutCon = Nothing
        Next i
    End With
    Set out = Nothing
End Sub

klappt alles super soweit nur habe ich das Problem das zwar ein neuer Kontakt Ordner erstellt wird aber die Kontakte trotzdem noch in den alten(Standard Kontaktorder) kopiert werden hat hier vieleicht jemand eine Idee wie man den neuen Ordner auswählen kann?

Danke schonmal im voraus

 

Hallo Manuel,

Du musst nur eine einzige Codezeile austauschen und zwar:

Code:

Set MyOutCon = out.createitem(2)

durch

Code:

Set MyOutCon = MyNewfolder.Items.Add(2)

Mit Outlook.Createitem(..) kann man nur Standardelemente erzeugen. Will man anderen Foldern Elemente hinzufügen muss man die Items.Add-Methode dieses Folders verwenden.