Habe folgenden Code zum generieren von Outlook Kontakten von einer Excel Liste, aber wieß noch nicht wie ich es anstellen soll, das die Kontakte nur im Unterordner Kontakte2 angelegt werden.
Option Explicit
Sub AdressenKopieren()
Dim Appli As Outlook.Application
Dim Objekt As Outlook.ContactItem
Dim Zähler As Long
Set Appli = CreateObject("Outlook.Application")
Sheets("Kontakte").Activate
Range("A2").Select
For Zähler = 1 To ActiveSheet.UsedRange.Rows.Count - 1
Set Objekt = Appli.CreateItem(olContactItem)
With Objekt
.FirstName = ActiveCell.Value
.LastName = ActiveCell.Offset(0, 1).Value
.HomeAddress = ActiveCell.Offset(0, 2).Value _
& ", " & ActiveCell.Offset(0, 3).Value
.HomeAddressPostalCode = ActiveCell.Offset(0, 4).Value
.Email1Address = ActiveCell.Offset(0, 5).Value
.MobileTelephoneNumber = ActiveCell.Offset(0, 6).Value
.Save
End With
ActiveCell.Offset(1, 0).Select
Next Zähler
MsgBox "Es wurden " & Zähler - 1 & " Adressen kopiert."
Set Objekt = Nothing
Set Appli = Nothing
End Sub
Danke für eure Hilfe im Vorhinein.
lg Markus