Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook Kontakte nach Excel

Outlook Kontakte nach Excel
pointofview
Hallo an alle,
ich habe seit kurzem eine Fehlermeldung bei diesem Makro:
Sub ContactsToExcel()
'Deklaration
Dim nspMapi As Outlook.Namespace
Dim folMapi As Outlook.MAPIFolder
Dim itmAll As Outlook.Items
Dim itmReal As Outlook.Items
Dim itmContacts As Outlook.ContactItem
Dim strContactFilter As String
Dim excApp As Object
Dim excWkb As Object
Dim excWks As Object
Dim intRow As Integer
'Outlook-Objekte öffnen
Set nspMapi = Application.GetNamespace("MAPI")           'Hier taucht der Laufzeitfehler '438'  _
auf
Set folMapi = nspMapi.GetDefaultFolder(olFolderContacts)
Set itmAll = folMapi.Items
'Verteilerlisten herausfiltern,
'nur 'Richtige Kontakte' verwenden
strContactFilter = "[MessageClass] = 'IPM.Contact'"
Set itmReal = itmAll.Restrict(strContactFilter)
'Excel-Objekte öffnen
Set excApp = CreateObject("Excel.Application")
'Neue Excel-Instanz
Set excWkb = excApp.Workbooks.Add
'Neues Workbook anlegen
Set excWks = excWkb.Sheets(1)
'Erstes Sheet
'Excel-Worksheet aufbereiten
With excWks
'Sheet-Name
.Name = "Outlook-Kontakte"
'Spaltenüberschriften
.Cells(1, 1).Value = "Vorname"
.Cells(1, 2).Value = "Nachname"
.Cells(1, 3).Value = "Strasse"
.Cells(1, 4).Value = "PLZ"
.Cells(1, 5).Value = "Ort"
.Cells(1, 6).Value = "Land"
.Cells(1, 7).Value = "E-Mail"
'Spaltenüberschriften fett
.Rows("1:1").Font.Bold = True
'Outlook-Kontakte nach Excel übertragen
intRow = 2
For Each itmContacts In itmReal
.Cells(intRow, 1).Value = itmContacts.FirstName
.Cells(intRow, 2).Value = itmContacts.LastName
.Cells(intRow, 3).Value = itmContacts.BusinessAddressStreet
.Cells(intRow, 4).Value = itmContacts.BusinessAddressPostalCode
.Cells(intRow, 5).Value = itmContacts.BusinessAddressCity
.Cells(intRow, 6).Value = itmContacts.BusinessAddressCountry
.Cells(intRow, 7).Value = itmContacts.Email1Address
intRow = intRow + 1
Next itmContacts
'Optimale Spaltenbreite
.Columns.AutoFit
End With
'Excel einblenden
excApp.Visible = True
'Speicher freigeben
Set itmReal = Nothing
Set itmAll = Nothing
Set folMapi = Nothing
Set nspMapi = Nothing
Set excWks = Nothing
Set excWkb = Nothing
Set excApp = Nothing
End Sub
Dieser Fehler ist erst seit 2 Tagen, da auf Office 2003 umgestellt wurde und online ein Update auf Service-Pack3 erfolgte. Die notwendigen Verweise im VBA-Editor sind aktiviert. In der Regedit habe ich leider keinen Schlüssel
Microsoft Knowledge Base-Artikel 938816:
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Forms\
Doppelklicken Sie auf den Registrierungseintrag EnableMapiForms , geben Sie 1 im Textfeld Wert , und klicken Sie dann auf OK
und auch kein Verzeichnis Forms gefunden. Kann es sein, dass im VBA-Code LateBinding notwendig ist und EarlyBinding programmiert, was aber nur mit älteren Versionen läuft?
Code hatte bis dato einwandfrei gelaufen. Für Hilfe wäre ich sehr dankbar.
Gruss
Oliver

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Outlook Kontakte nach Excel
06.11.2009 14:57:45
Luschi
Hallo Oliver,
Du mußt schon im Registry-Editor das fehlende Unterverzeichnis Forms (als Schlüssel) anlegen und darin dann den Eintrag (als DWord-Wert) erstellen und den Wert mit 1 festlegen.
Ohne dem geht es nicht, da M$ einige Sicherheitseinstellungen geändert hat. Ich kann es leider nicht testen, da bei uns immer noch Office XP im Einsatz ist.
Wie es geht: siehe http://support.microsoft.com/kb/938816/de
Gruß von Luschi
aus klein-Paris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige