Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Outlook > Outlook - Ερωτήσεις / Απαντήσεις > Αποθήκευση απαντήσεων (meeting tracking)

Outlook - Ερωτήσεις / Απαντήσεις Γενικά θέματα γύρω από το Microsoft Outlook.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 10-12-09, 20:11
Το avatar του χρήστη Θανάσης
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 21-10-2009
Μηνύματα: 25
Question Αποθήκευση απαντήσεων (meeting tracking)

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

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

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

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

Ευχαριστώ
Απάντηση με παράθεση
  #2  
Παλιά 14-12-09, 11:03
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.016
Προεπιλογή

Αγαπητέ Θανάση, καλημέρα!
Έστω ότι σε ένα φύλλο 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
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word

Τελευταία επεξεργασία από το χρήστη Tasos : 14-12-09 στις 11:15.
Απάντηση με παράθεση
  #3  
Παλιά 14-12-09, 20:05
Το avatar του χρήστη Θανάσης
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 21-10-2009
Μηνύματα: 25
Question Απαντήσεις προσκεκλημένων σε meeting

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

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

Ευχαριστώ και πάλι
Απάντηση με παράθεση
  #4  
Παλιά 14-12-09, 22:35
Το avatar του χρήστη gr8styl
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 19-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 823
Προεπιλογή Meeting Attendees replies

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

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

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

Θανάσης (gr8styl)
Συνημμένα Αρχεία
Τύπος Αρχείου: txt meeting_attendees.txt (2,6 KB, 37 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 16-12-09, 20:15
Το avatar του χρήστη Θανάσης
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 21-10-2009
Μηνύματα: 25
Thumbs up

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

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

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

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

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

Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Αποθήκευση Εγγραφής από Ερώτημα kostakis123 Access - Ερωτήσεις / Απαντήσεις 1 07-12-15 11:12
[Εκτύπωση] Εκτύπωση με αποθήκευση? kolekas Excel - Ερωτήσεις / Απαντήσεις 25 08-10-15 16:20
[VBA] αποθήκευση ως pdf rmaria Excel - Ερωτήσεις / Απαντήσεις 7 17-12-14 22:04
[VBA] Αποθήκευση με ημερομηνία sotisanis Excel - Ερωτήσεις / Απαντήσεις 7 16-10-13 08:24
Υπολογισμός και αποθήκευση ΦΠΑ vaios84 Access - Ερωτήσεις / Απαντήσεις 8 24-01-12 12:16


Η ώρα είναι 11:04.