Office: (Office 2016) Outlook-Export

trekking1 · 3. Februar 2018

Hallo Ohlemayer,

hast Du auf die Rechtschreibung geachtet?
"mohlemeyer@unitybox.de" kommt mir persöhnlich etwas seltsam vor als Mailadresse. *Smilie

Ansonsten stimme ich CatBoy zu. Durchlaufe mal das Ojekt und lass Dir alles anzeigen was es gibt.

VG
trekking

ohlemeyer · 4. Februar 2018

Keine Sorge, die Mailadresse stimmt *wink.gif*
Das funktioniert tatsächlich:
Code:

olObj.GetNameSpace("MAPI").Session.Folders("mohlemeyer@unitybox.de).Folders
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann wird der Termin in den Standardkalender geschrieben.

Wie durchlaufe ich denn das Objekt?

trekking1 · 4. Februar 2018

Hi Ohlemeyer,

zum Beispiel so:

https://docs.microsoft.com/de-de/dot...next-statement

HAbe ich Dich richtig verstanden, dass der Termin jetzt geschrieben wird?!

VG
trekking

ohlemeyer · 6. Februar 2018

Hi,

ja, der Termin wird mit

Code:

olObj.GetNameSpace("MAPI").Session.Folders("mohlemeyer@unitybox.de).Folders
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in den Standardkalender geschrieben. Nur einen anderen Kalender kann ich nicht ansprechen. Kurz vorm Ziel, aber eben noch nicht ganz.

Die For/Next-Auslese kriege ich in dem Code nicht funktionierend hin. Da fehlt mir einfach das nötige Wissen über Objekte/MAPI usw.

Bisher habe ich die Outlook-Pfade über diese (gefundene) Routine ausgelesen:

Code:

Private Sub Befehl0_Click()
Dim myOlApp As Object 'Outlook.Application
Dim myNms As Object ' Outlook.NameSpace
Dim myFolder As Object ' Outlook.MAPIFolder
Set myOlApp = CreateObject("Outlook.Application")
RekOrdner myOlApp.GetNamespace("MAPI")
End Sub

Sub RekOrdner(ff As Object)
Dim F As Object
For Each F In ff.Folders
Debug.Print F.FullFolderPath
RekOrdner F
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit wird der gewünschte Kalender als

\mohlemeyer@unitybox.deKalender (Nur dieser Computer)LO

dargestellt.

Ich habe schon vermutet, dass es an dem Leerzeichen liegt.

Interessanterweise funktioniert übrigens diese Early Binding-Variante (in einem Excel-Forum gefunden) tadellos:

Code:

Private Sub Befehl0_Click()
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olCal As Outlook.MAPIFolder
Dim olApt As AppointmentItem
Dim iRow As Integer
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
On Error Resume Next
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders("LO")
If Err Then
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders.Add("LO") Err.Clear
End If

iRow = 4
Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt
.START = Date
.End = Date
.Subject = "TestTermin"
'.Location = Cells(iRow, 5).Value
' .Body = Cells(iRow, 6).Value & " mitbringen"
' .BusyStatus = olBusy
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
.Move olCal
End With
iRow = iRow + 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der richtige Kalender wird angesprochen und wenn er noch nicht existiert angelegt. Ich habe es aber noch nicht geschafft, das Ganze auf Late Binding umzustellen bzw. weiß auch nicht, ob es dann noch funktioniert:

Code:

Private Sub Befehl0_Click()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")

Dim olNS As Object
Set olNS = olApp.GetNamespace("MAPI")

Dim olCal As Object
Set olCal = olApp.MAPIFolder
Dim alApt As Object

Dim iRow As Integer

On Error Resume Next
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders("LO")
If Err Then
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders.Add("LO")
Err.Clear
End If
iRow = 4

Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt
.START = Date
.End = Date
.Subject = "Trainingstag2"
'.Location = Cells(iRow, 5).Value
' .Body = Cells(iRow, 6).Value & " mitbringen"
' .BusyStatus = olBusy
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
.Move olCal
End With
iRow = iRow + 1

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also hätte ich jetzt zwei Wege, die jeweils fast(!) zum Ziel führen. Bitte nochmal Hilfe auf den letzten Metern! danke!

trekking1 · 6. Februar 2018

Hallo Ohlemeyer,

weiter unten hatte ich Dir geschrieben, dass in der entscheidenden Zeile der Folder fehlt.

GetNamespace("MAPI").Session.Folders(z.B. test@test.de).Folders("Kalender")

In der Regel heißt der "Kalender"

HAst Du das so geschrieben?

VG
trekking

ohlemeyer · 6. Februar 2018

Ja, habe ich probiert:

Code:

olObj.GetNamespace("MAPI").Session.Folders("mohlemeyer@unitybox.de").Folders("Kalender (Nur dieser Computer)")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und auch
Code:

olObj.GetNamespace("MAPI").Session.Folders("mohlemeyer@unitybox.de").Folders("Kalender (Nur dieser Computer)").Folders ("LO")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

erzeugen beide einen Termin im Standardkalender. Es gibt keine Fehler, daher denke ich die Ordnerbezeichnung scheint schon zu passen. Vllt sind alle Kalender in dem Order, nur wie erreiche ich, dass in den Kalender "LO" geschrieben wird?

trekking1 · 6. Februar 2018

Hi

und wenn Du anstatt (Kalender (nur dieser Kalender)) gleich LO schreibst?

Schau Dir mal noch die entsprechenden Objekte dazu an.

https://msdn.microsoft.com/de-de/vba...object-outlook

Sorry würde das gerne mal bei mir ausprobieren aber habe gerade keine Zeit dazu.

VG
trekking

ohlemeyer · 6. Februar 2018

Das geht leider auch nicht.
In den Folders-Eigenschaften gibt es auch noch Items, aber das klappt leider nicht:

Code:

olObj.GetNamespace("MAPI").Session.Folders("mohlemeyer@unitybox.de").Folders("Kalender (Nur dieser Computer)").Items ("LO")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

CatboyJones · 6. Februar 2018

Hol dir den Kalender auf eine solche Weise:

Code:

Sub RekOrdner(ff As Object, oCal as object)
Dim F As Object
For Each F In ff.Folders
If F.FullFolderPath = "mohlemeyer@unitybox.deKalender (Nur dieser Computer)LO"
Set oCal = F
End If
RekOrdner F
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ohlemeyer · 8. Februar 2018

Verstehe ich nicht..? Wo soll das hin, was kommt da raus?

ohlemeyer · 11. Februar 2018

Ich denke allmählich, dieser Weg führt zu nichts. Ich doktere seit Wochen daran herum. Der Kalenderpfad ist richtig, man kann ihn aber so nicht ansprechen. Für den Standardkalender mag es so klappen, aber nicht für andere.

Vielleicht kann mir ja jemand helfen, diese dafür funktionierende Routine in Late Binding zu "übersetzen":

Code:

Private Sub Befehl0_Click()
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olCal As Outlook.MAPIFolder
Dim olApt As AppointmentItem
Dim iRow As Integer
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
On Error Resume Next
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders("LO")
If Err Then
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders.Add("LO") Err.Clear
End If

iRow = 4
Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt
.START = Date
.End = Date
.Subject = "TestTermin"
'.Location = Cells(iRow, 5).Value
' .Body = Cells(iRow, 6).Value & " mitbringen"
' .BusyStatus = olBusy
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
.Move olCal
End With
iRow = iRow + 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

markusxy · 11. Februar 2018

Bei einem Standardordner verwendet man CreateItem.

Ansonsten Folder.Items.Add

Einfach mal einen Blick in die Hilfe riskieren. Das macht das Leben leichter.

CatboyJones · 11. Februar 2018

>Verstehe ich nicht..? Wo soll das hin, was kommt da raus?
Kaum zu glauben...

Code:

Dim myFolder As Object ' Outlook.MAPIFolder
Set myOlApp = CreateObject("Outlook.Application")
RekOrdner myOlApp.GetNamespace("MAPI"), myFolder
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2016) Outlook-Export

Outlook-Export

Outlook-Export

Outlook-Export

Outlook-Export

Outlook-Export

Outlook-Export - Similar Threads - Outlook Export

PDF-Problem bei outlook

Mails in Outlook farblich markieren wenn Zeichen hinter Wort

Outlook Export Assistent funktioniert nicht mehr

Wie exportiere ich Kontaktlisten aus Outlook?

Kontaktliste aus Outlook als pdf/Excel exportieren

Outlook 2003 unter Vista läuft nach Export nicht mehr richti

Beim Export von Outlook nach Excel2007 fehlen Daten