Hi zusammen,
ich möchte von meiner Excel aus, einen Ausdruck von meinem Outlook (Tagesansicht) machen.
Ich habe es mit Recherche soweit geschafft das es mir den OL Kalender öffnet. Aber wich ich den Befehl zum Ausdrucken geben kann und das sich das geöffnete fester wieder schließt, konnte ich nicht herausfinden.
Hier mal mein Code:
Dim objOutlook As Outlook.Application
Dim objNameSpace As Outlook.Namespace
Dim objKalender As Outlook.MAPIFolder
Dim Kalendereintrag As Outlook.AppointmentItem
Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objKalender = objOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
Dim olExplorers As Outlook.Explorers
Dim myOlExpl As Outlook.Explorer
Dim oCmd As Office.CommandBarButton
Set olExplorers = objOutlook.Explorers
Set myOlExpl = olExplorers.Add(objKalender, olFolderDisplayNoNavigation)
Gruß
Manuela