Ανανέωση ιστοσελίδας

[Θανάσης]

Καλησπέρα σας.

Ξέρει μήπως κάποιος πώς μπορώ να πάρω στο Excel ή το Word ή σε κάποιο txt αρχείο την φόρμα "Παρακολούθηση" (meeting tracking) που περιέχει την λίστα των προσκεκλημένων (attendees) και την απάντηση (response) καθενός σε μιά πρόσκληση για συνάντηση (meeting request) μέσω του Ημερολογίου (Calendar) στο Outlook;

Αν κάνω αποθήκευση σαν txt (save as txt) αποθηκεύεται το περιεχόμενο της πρόσκλησης και η λίστα των προσκεκλημένων, χωρίς την απάντηση του καθενός.
Ακόμη αν κάνω επιλογή όλα από το μενού Επεξεργασία και να κάνω επικόλληση παίρνω μόνο τη λίστα των προσκεκλημένων.

Με τις απαντήσεις (attendees responses) τί γίνεται πώς μπορώ να τις αποθηκεύσω σε κάποιο αρχείο;

Ευχαριστώ

[Tasos]

Αγαπητέ Θανάση, καλημέρα!
Έστω ότι σε ένα φύλλο Excel έχεις:

B2 = αρχή χρονικής περιόδου
B3 = τέλος χρονικής περιόδου
που θα χρησιμεύσουν για να φιλτραριστούν αν θέλεις τα meeting που σ ενδιαφέρουν.

Στα κελιά A1, B1, C1 κοκ. υπάρχουν οι επικεφαλίδες σου.
Εδώ μπορείς να προσαρμόσεις τη σειρά εμφάνισης από τον κώδικα όπως επιθυμείς.
Πριν κάνεις οτιδήποτε, πρόσθεσε την αναφορά (VB-Reference) “Microsoft Outlook xx.x Οject Library“.

Φιλικά

Τάσος

Option Explicit



Sub ReadAppts()

    Dim olApp As New Outlook.Application, _

            olfolder As Outlook.MAPIFolder, _

            oAppt As Outlook.AppointmentItem, _

            Datefrom As Date, DateTo As Date, _

            oApptStartDate As Date, iRow&

    'Set olfolder = olApp.GetNamespace("MAPI").PickFolder ' Ίσως χρειαστεί να επιλέξεις διαφορετικό φάκελο από τον στάνταρ.

    Set olfolder = olApp.GetNamespace("MAPI").GetDefaultFolder(olFold  erCalendar)

    If olfolder Is Nothing Then Exit Sub

    Datefrom = Cells(2, 2)

    DateTo = Cells(3, 2)

    iRow = 2

    For Each oAppt In olfolder.Items

        oApptStartDate = oAppt.Start

        If oAppt.MeetingStatus <> olNonMeeting Then

            If oApptStartDate >= Datefrom And oApptStartDate <= DateTo Then

	   ' Μπορείς να αλλάξεις τη σειρά εμφάνισης στο φύλλο

                Cells(iRow, 3) = oAppt

                Cells(iRow, 4) = oAppt.AllDayEvent

                Cells(iRow, 5) = oAppt.Body

                Cells(iRow, 6) = oAppt.BusyStatus

                Cells(iRow, 7) = oAppt.ConversationTopic

                Cells(iRow, 8) = oAppt.IsRecurring

                Cells(iRow, 9) = oAppt.Importance

                Cells(iRow, 10) = oAppt.Location

                Cells(iRow, 11) = oAppt.ResponseRequested

                Cells(iRow, 12) = oAppt.ResponseStatus  ' νομίζω ότι αυτό σ ενδιαφέρει.

                'Cells(iRow, 13) = oAppt... άλλα μέλη του Outlook.AppointmentItem από το   InteliSence.

                '.................

                '.................

                iRow = iRow + 1

            End If

        End If

    Next

End Sub
        

[Θανάσης]

Αγαπητέ φίλε Τάσο
Σε ευχαριστώ πάρα πολύ για την απάντηση σου.
Αν και δεν είναι αυτό ακριβώς που ψάχνω, θέλω να πω ότι ο κώδικας σου είναι πολύ διδακτικός και χρήσιμος σαν παράδειγμα για την διαχείριση των συναντήσεων (appointments) του Outlook.
Ίσως εγώ να μην ήμουν αρκετά σαφής στο ερώτημα μου.
Το ξαναθέτω λοιπόν με άλλα λόγια:
Έχω καλέσει ένα meeting μέσω του Calendar και οι προσκεκλημένοι έχουν απαντήσει πως θα παραβρεθούν (Accept) ή ότι δεν μπορούν (Not Accept) ή ότι θα προσπαθήσουν (Tentative) ή ακόμα δεν έχουν απαντήσει ακόμα.
Θέλω λοιπόν για το συγκεκριμένο meeting να μεταφέρω σε κάποιο αρχείο σε μορφή πίνακα όπως στη φόρμα Παρακολούθηση (Tracking) του Outlook, την λίστα των προσκεκλημένων και την απάντηση του καθενός.

Ελπίζω να έγινα πιο σαφής αυτή τη φορά

Ευχαριστώ και πάλι

[gr8styl]

Φίλε συνονόματε για δες και αυτό τον κώδικα στο συνημμένο.
Αντίγραψέ τον σε ένα VBA module του Outlook, άνοιξε το meeting που θέλεις και τρέξε το MeetingAttendees

Ελπίζω να κατάλαβα και να έγινε το ζητούμενο.

Σκόπιμα απόφυγα τα ελληνικά στον κώδικα γιατί όπως ξέρεις η γλώσσα μας δεν είναι ιδιαίτερα αγαπητή στη VBA

Θανάσης (gr8styl)

[Θανάσης]

Πολύ σωστά φίλε gr8styl

Είναι ότι ακριβώς ζητούσα.

ΕΥΧΑΡΙΣΤΩ πάρα πολύ.

Μου γλύτωσες πολύ δουλειά.

Μπράβο παιδιά είναι καταπληκτικό το "σαϊτ" σας !!!