Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler im Source ?

Fehler im Source ?
30.09.2002 14:00:37
Wolfgang Becker
Der Archivbeitrag zum Thema Kontakteimport aus Outlook erzeugt bei der Ausführung folgende Fehlermeldung:

Zeile 4:Benutzerdefinierte Typ nicht definiert. Was ist zu tun?
Wie definiert man da: Outlook.Application

mfg
Wolfgang

Source:
Sub AdressenVonOutlook()
Dim workingFolder As Object
Dim i As Integer
Dim olMAPI As New Outlook.Application <- hier

Range("A2").Select
Set workingFolder = olMAPI.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
For i = 1 To workingFolder.Items.Count
Set objItem = workingFolder.Items(i)
With objItem
ActiveCell.Value = .FirstName
ActiveCell.Offset(0, 1).Value = .LastName
ActiveCell.Offset(0, 2).Value = .BusinessAddress
ActiveCell.Offset(0, 3).Value = .Email1Address
ActiveCell.Offset(0, 4).Value = .HomeTelephoneNumber
ActiveCell.Offset(0, 5).Value = .BusinessTelephoneNumber
ActiveCell.Offset(0, 6).Value = .BusinessFaxNumber
ActiveCell.Offset(0, 7).Value = .Birthday
End With
ActiveCell.Offset(1, 0).Select
Next i

Set objItem = Nothing
Set olMAPI = Nothing
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fehler im Source ?
30.09.2002 20:54:29
Herbert
Hallo Wolfgang,
Vielleicht hilft Dir das weiter:

Dim outobj As Object
Dim Mail As Object
Set outobj = CreateObject("Outlook.Application")
Set Mail = outobj.CreateItem(0)
     Code eingefügt mit Syntaxhighlighter 1.14

gruß Herbert

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige