AW: Datum von Excel in Outlook eintragen
Excel
Hallo
Bei VBA-Gut sollte das kein Problem sein.
Hier ein kleines Tool um die korrekten Object-ID in Outlook ausfindig zu machen
Sub Get_ID_SubFolders_Outlook()
Dim i As Integer, n As Integer, y As Integer, myCounter As Integer
Dim objOutlook As Object
Dim objnSpace As Object
Dim objFolder As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
myCounter = 1
For y = 1 To 2
Set objFolder = objnSpace.folders(y)
'Object Hauptordner
Cells(myCounter, 1) = objFolder
On Error Resume Next
'Bei mehr Objecten anpassen
For i = 1 To 15
'Ordnder in diesem Überordner
Cells(myCounter, 2) = i
Cells(myCounter, 3) = objFolder.folders(i)
'Unterordner
For n = 1 To 15 ' Bei mehr Postfächern bitte anpassen
Cells(myCounter, 4) = n
Cells(myCounter, 4) = objFolder.folders(i).folders(n)
myCounter = myCounter + 1
Next n
Next i
Next y
Set objnSpace = Nothing
Set objFolder = Nothing
Set objOutlook = Nothing
End Sub
Zur Interaktion mit Outlook kannst du dann hier noch vorbeischauen
http:\\www.office.gmxhome.de
und unter EXCEL bzw. EXCEL und Outlook mal nachschauen.
Das Prinzip müsste gleich sein,... allerdings habe ich noch nie eine Anbindung an einen Exchange-Server programmiert.
Gruss Rainer