Me.Range Methode fehlgeschlagen plus OL Makro
Holger
das Makro unten liest alle Kontakte von OutLook in eine Excel Tabelle ein,
falls es jemand brauchen kann, bitte sehr.
Nun zu meinem Problem. Das Makro ist an einen CommandButton geknüpft und
ich in dem Buch wird der Range Bereich immer mit Me. angesprochen.
Nur funktioniert das bei mir nicht, es kommt der Error "Range fehlgeschlagen".
Weiß jemand warum und was bedeutet das Range?
Hier also der Code:
Private Sub GetContactsOL()
Dim objOLApp, objNameSpace, objContItem As Object
Dim intI As Integer
Const olFolderContacts = 10
Const olContact = 40
Set objOLApp = CreateObject("Outlook Application")
Set objNameSpace = objOLApp.GetNamespace("MAPI")
intI = 5
MsgBox "Test"
Me.Range("A5:G5000").ClearContents
Me.Range("A5:G5000").Interior.ColorIndex = vbWhite
Me.Range("A5:G5000").Font.Color = vbBlack
For Each objContItem In objNameSpace.GetDefaultFolder(olFolderContacts).Items
If objContItem.Class = olContact Then
Me.Cells(i, 1) = objContItem.Email1Address
Else
Me.Cells(i, 1) = "DistList: " & objContItem.DLName
Me.Cells(i, 1).Interior.ColorIndex = vbBlack
Me.Cells(i, 1).Font.Color = vbWhite
intI = intI + 1
Next objContItem
End Sub