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.

Mitglied: Tekknik

Tekknik (Level 1) - Jetzt verbinden

01.06.2006, aktualisiert 17.08.2006, 23849 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 ...

Outlook & Mail

Outlook2016 Kalender Termin weiterleiten

Frage von hellasOutlook & Mail3 Kommentare

Hallo, ich möchte gerne einen internen Schulungstermin an Personen weiterleiten, die es eventuell auch interessieren könnte. Leite ich diesen ...

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 ...

Neue Wissensbeiträge
Administrator.de Feedback
Unsere Datenbank wurde umgestellt
Information von Frank vor Administrator.de Feedback

Hallo User, ich habe in der Nacht unsere Datenbank umgestellt. D.h. neue Version (MySQL 8) und andere Örtlichkeit. Sollte ...

Sonstige Systeme
Es war einmal ein BeOS - Wer erinnert sich noch?
Information von BassFishFox vor 2 TagenSonstige Systeme5 Kommentare

Hallo, Bin gerade ueber Haiku gestolpert, von dessen Existenz als "Nachfolger des BeOS" ich wusste nur mich nie wirklich ...

Datenschutz

Microsoft und DSGVO - ob das wohl jemals klappt (Probleme beim Datenabfluss für Office Pro Plus)?

Tipp von VGem-e vor 2 TagenDatenschutz3 Kommentare

Servus Kollegen, siehe Aber wer setzt schon MS Office Pro Plus ein? Wie dann der Stand beim "normalen" MS ...

Windows 10

Macht Windows 10.1809 Probleme mit gemappten Netzlaufwerken (betrifft wohl insbes. AMD-Hardware und Trend Micro AV-Produkte)?

Tipp von VGem-e vor 2 TagenWindows 103 Kommentare

Moin Kollegen, grad dazu gefunden und Hatten wir dies nicht bei früheren W10-Upgrades ebenfalls? Da bleibt nur, das Upgrade ...

Heiß diskutierte Inhalte
Windows 10
Programm unter Windows 10 automatisch mit administrativen Rechten starten
Frage von GrafmulderWindows 1016 Kommentare

Hallo zusammen! Zur Situation: Ich benutze Windows 10 Pro für Workstations (Build 1803) mit zwei Konten. Einem Administratorkonto und ...

Windows Server
Cisco Annyconnect Secure Mobility Client - Windows2003 Server unable to connect
Frage von novregenWindows Server11 Kommentare

Von einem Windows 2003 Server soll eine Verbindung über Cisco Anyconnect Mobility Client zu einer Gegenstelle aufgebaut werden. Die ...

LAN, WAN, Wireless
Empfehlung Powerline Adapter
Frage von AgilolfingerLAN, WAN, Wireless9 Kommentare

Hallo Zusammen, ich brauche eine Empfehlung von euch. Ich möchte in einem privaten Haushalt eine Powerline Lösung einrichten. Allerdings ...

Microsoft
Schulungs-Microsoft-Konten zentral verwalten
Frage von thejarneMicrosoft9 Kommentare

Hallo zusammen, wir haben bei uns in der Firma 12 Computer-Arbeitsplätze für EDV-Schulungen, wo u.A. auch Computer-Basics-Kurse (wie verwende ...