Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Mit VB-Skript aus Outlok Kalender Termine lesen.

Frage Microsoft Outlook & Mail

Mitglied: Tekknik

Tekknik (Level 1) - Jetzt verbinden

01.06.2006, aktualisiert 17.08.2006, 22476 Aufrufe, 1 Kommentar, 1 Danke

Wie kann ich aus einem Outlook Kalender Termine mit VBA lesen?

Hat jemand ein kurzes Skript Beispiel?
Mitglied: Biber
17.08.2006 um 16:11 Uhr
Moin Tekknik,
Du hast Dich bestimmt schon gewundert, warum so viele User Deinen Beitrag lesen und kein Schwein was schreibt.

Ein paar Gründe könnte ich nennen:
Mit VB-Skript aus Outlok Kalender Termine lesen.
Wie kann ich aus einem Outlook Kalender Termine mit VBA lesen?

Diese Beschreibung ist nicht sonderlich ergiebig.
Vorteil: Sie ließe sich per SMS versenden.

Nachteile:
- Ein "Hallo" hätte wohl nicht mehr in die SMS gepasst.
- Niemand kennt "Outlok"
- niemand weiß nach diesen zwei Sätzen, ob Du nun mit VB-Skript oder mit VBA die Termine lesen willst
- geschweige denn ob alle oder bestimmte oder die eines bestimmten Zeitraums oder die eines öffentlichen Ordners oder Deine eigenen...
- und erst recht nicht, ob die Termine Outlook-intern manipuliert/ergänzt werden sollen oder z.B. nach Excel kopiert oder wie oder was.

Und wo man/frau Dich abholen muss bei irgendwelchen Skript-Beispielen ist auch schwer erkennbar, wenn Du nicht postest, was Du denn schon hast.

Alles in allem ein so ärgerlicher Beitrag, dass ich den nicht unbeantwortet lassen kann.

Hier eine kurze Skizze unter VBA:
01.
Private Sub ReadCalendarItems() 
02.
    Dim objApp As Application 
03.
    Dim objNS As NameSpace 
04.
    Dim objCalendar As MAPIFolder 
05.
    Dim objItem As AppointmentItem 
06.
    Dim strSubject As String 
07.
    Dim ObjRecipient As Recipient 
08.
    Set objApp = CreateObject("Outlook.Application") 
09.
    Set objNS = objApp.GetNamespace("MAPI") 
10.
    Set objCalendar = objNS.GetDefaultFolder(olFolderCalendar) 
11.
    For Each objItem In objCalendar.Items 
12.
        With objItem 
13.
         
14.
        Debug.Print "Titel: " & .Subject & vbCrLf & _ 
15.
                    "Am:    " & .Start & " - " & .End & vbCrLf & _ 
16.
                    "Dauer: " & IIf(.Duration = 1440, "Ganztägig", .Duration & " Minuten") & vbCrLf & _ 
17.
                    "Body:  " & .Body & vbCrLf & _ 
18.
                    "Teilnehmer: " & .Recipients.Count 
19.
          If .Recipients.Count > 0 Then 
20.
            For Each ObjRecipient In .Recipients 
21.
              Debug.Print ObjRecipient.Name & " / "  ' & ObjRecipient.Address 
22.
            Next 
23.
          End If 
24.
        End With 
25.
    Next 
26.
     
27.
End Sub
Beispiel-Output des Schnippsels im Debugfenster:
01.
Titel: Geburtstag von James Smith 
02.
Am:    15.09.1975 - 16.09.1975 
03.
Dauer: Ganztägig 
04.
Body:   
05.
Teilnehmer: 0 
06.
Titel: Meeting to discuss plans... 
07.
Am:    10.04.2003 22:43:00 - 10.04.2003 23:43:00 
08.
Dauer: 60 Minuten 
09.
 
10.
Body:  Meeting with James Smith to discuss plans. 
11.
Teilnehmer: 0 
12.
Titel: nach Hause telefonieren 
13.
Am:    17.08.2006 15:30:00 - 17.08.2006 16:00:00 
14.
Dauer: 30 Minuten 
15.
Body:   
16.
Teilnehmer: 2 
17.
Frank DerBiber / DerBiber@gmx.net 
18.
frank@will-her-weg.de / frank@will-her-weg.de
Wenn Du etwas anderes willst/meinst/brauchst, formuliere es bitte entsprechend.

Gruß
Biber
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Termin zum Öffentlichen Kalender hinzufügen
Frage von ShnuuuOutlook & Mail1 Kommentar

Hallo Zusammen, wir nutzen in Outlook 2010 mit Exchange 2010 Server. Wir haben einen Öffentlichen Kalender, in dem Kundenbesuche ...

VB for Applications
Hilfe bei VB Skript
Frage von Voner1502VB for Applications1 Kommentar

Hallo zusammen. Ich habe ein Skript für die Übernahme von Druckern vom alten Servern zum neuen Server bekommen. Diese ...

VB for Applications
VB Skript Excel Datei
gelöst Frage von FragerVB for Applications3 Kommentare

Hallo Zusammen, Ich brauche eure Hilfe. Ich habe eine Datei 1.xlsx nun brauche ich ein Skript, was die Datei ...

Exchange Server
Freigegebene Kalender zeigen einzelne Termine nicht an
Frage von garciamExchange Server

Hallo zusammen Ich habe ein Problem mit dem Exchange-Cache-Modus in Outlook 2010. Seit einiger Zeit kommt es immer wieder ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 2 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 7 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 8 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 20 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
Remotesteuerung der Sitzung (Kennung XX) fehlgeschlagen
gelöst Frage von Stefan91Windows Server14 Kommentare

Hallo Zusammen, seit kurzem bekomme ich oben genannte Fehlermeldung, wenn ich versuche eine Remotesitzung über den Taskmanager fernzusteuern (Rechtsklick ...