Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 20833 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(2)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows Server
gelöst Skript per GPO ausführen - Berechtigungen? (13)

Frage von honeybee zum Thema Windows Server ...

iOS
SPAM Einladungen im iCloud Kalender löschen (1)

Tipp von Frank zum Thema iOS ...

Batch & Shell
Powershell CHAT Skript (5)

Frage von xpxy15 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...