Hallo zusammen,
vor ein paar Tagen hatte ich eine Frage „wie bekomme ich bestimmte Termine oder Kontakte in eine festgelegte Position in ein Tabellenblatt“ hier eingestellt.
Reinhard hatte sehr schnell einen passenden Link für das Poblem
http://www.tutorials.de/visual-basic-6-0/150500-outl…
doch reichen meine VBA Kenntnisse in keiner weise aus um damit weiterzuarbeiten.
So suche ich nun jemand der mir da weiterhelfen kann.
vielen dank nochmal an Reinhard für seine Bemühungen und natürlich an alle die mir bei meinem Poblem weiterhelfen.
Herbert
ach so meine Programmversionen
EXCEl = 2003
OUTLOOK = 2010
http://www.tutorials.de/visual-basic-6-0/150500-outl…
doch reichen meine VBA Kenntnisse in keiner weise aus um damit
weiterzuarbeiten.
Hallo Herbert,
zum Einfügen des Codes in ein Modul und Starten das makros, den Verweis, usw. gilt das was ich grad eine Beitragfsloge tiefer aan Manni schrieb.
Gruß
Reinhard
Option Explicit
Public Sub kal\_imp()
' Ursprungscode von:
' http://www.tutorials.de/visual-basic-6-0/150500-outlook-kalender-ueber-makro-nach-excel-datei-exportieren.html
'
' Verweis auf Microsoft Outlook X.0 Object Library setzen
' Verweise setzt man im VB-Editor bei Extras---Verweise
'
Dim Outl\_App As Object, Namens\_R As Object, Akt\_Ordner As Object, Kal\_Ordner As Object
Dim Element\_kal As Object, i As Integer
Set Outl\_App = CreateObject("Outlook.Application")
Set Namens\_R = Outl\_App.GetNamespace("MAPI")
Set Akt\_Ordner = Namens\_R.GetDefaultFolder(olFolderCalendar) 'Kalender auswählen
Set Kal\_Ordner = Akt\_Ordner
Set Element\_kal = Kal\_Ordner.Items
Cells(1, 1) = "Ereignis"
Cells(1, 2) = "Beginn"
Cells(1, 3) = "Ende"
For i = 1 To Element\_kal.Count
Cells(i + 1, 1) = Element\_kal(i)
Cells(i + 1, 2) = Element\_kal(i).Start
Cells(i + 1, 3) = Element\_kal(i).End
'... weitere Eigenschaften im Objektkatalog unter "AppointmentItem"
Next i
Columns("A:smiley:").AutoFit
'objekte freigeben
Set Outl\_App = Nothing
Set Namens\_R = Nothing
Set Akt\_Ordner = Nothing
Set Kal\_Ordner = Nothing
Set Element\_kal = Nothing
End Sub
Objektkatalog in Excel
Hallo Herbert,
der im Codekommentar angesprochene Objektkatalog findest du im Editor unter Ansicht oder drücke F2.
Kann in diesem Fall auch der VB-Editor von vom Outlook-Vb-Editor sein.
Gruß
Reinhard
Hallo Reihard,
danke für deine Geduld mit mir.
ich hoffe das ich jetzt ers einmal damit klar komme.
gruß
herbert