Πώς να μετρήσετε τις ώρες / ημέρες / εβδομάδες που δαπανήθηκαν σε ένα ραντεβού ή μια συνάντηση στο Outlook;
Ας υποθέσουμε ότι υπάρχουν πολλά ραντεβού και συναντήσεις σε ένα ημερολόγιο στο Outlook. Και τώρα θέλετε να μετρήσετε τις ώρες / ημέρες / εβδομάδες που ξοδεύετε σε αυτά τα ραντεβού και τις συναντήσεις, οποιαδήποτε ιδέα; Αυτό το άρθρο θα εισαγάγει ένα VBA για να σας βοηθήσει.
Μετρήστε ώρες / ημέρες / εβδομάδες για ραντεβού ή συνάντηση με τη VBA
Μετρήστε ώρες / ημέρες / εβδομάδες για ραντεβού ή συνάντηση με τη VBA
Αυτή η μέθοδος θα εισαγάγει ένα VBA για να μετρήσει τις ώρες ή τα λεπτά που ξοδεύονται για την καθορισμένη συνάντηση ή συνάντηση στο Outlook. Κάντε τα εξής:
1. Μεταβείτε στο φάκελο Ημερολόγιο και κάντε κλικ για να επιλέξετε το ραντεβού ή τη σύσκεψη που θα μετρήσετε τις ώρες που θα περάσετε.
2. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.
3. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο Module που ανοίγει.
VBA: Καταμέτρηση ωρών / λεπτών που ξοδεύονται για ραντεβού ή συνάντηση στο Outlook
Sub CountTimeSpent()
Dim oOLApp As Outlook.Application
Dim oSelection As Outlook.Selection
Dim oItem As Object
Dim iDuration As Long
Dim iTotalWork As Long
Dim iMileage As Long
Dim iResult As Integer
Dim bShowiMileage As Boolean
bShowiMileage = False
iDuration = 0
iTotalWork = 0
iMileage = 0
On Error Resume Next
Set oOLApp = CreateObject("Outlook.Application")
Set oSelection = oOLApp.ActiveExplorer.Selection
For Each oItem In oSelection
If oItem.Class = olAppointment Then
iDuration = iDuration + oItem.Duration
iMileage = iMileage + oItem.Mileage
ElseIf oItem.Class = olTask Then
iDuration = iDuration + oItem.ActualWork
iTotalWork = iTotalWork + oItem.TotalWork
iMileage = iMileage + oItem.Mileage
ElseIf oItem.Class = Outlook.olJournal Then
iDuration = iDuration + oItem.Duration
iMileage = iMileage + oItem.Mileage
Else
iResult = MsgBox("Please select some Calendar, Task or Journal items at first!", vbCritical, "Items Time Spent")
Exit Sub
End If
Next
Dim MsgBoxText As String
MsgBoxText = "Total time spent: " & vbNewLine & iDuration & " minutes"
If iDuration > 60 Then
MsgBoxText = MsgBoxText & HoursMsg(iDuration)
End If
If iTotalWork > 0 Then
MsgBoxText = MsgBoxText & vbNewLine & vbNewLine & "Total work recorded; " & vbNewLine & iTotalWork & " minutes"
If iTotalWork > 60 Then
MsgBoxText = MsgBoxText & HoursMsg(iTotalWork)
End If
End If
If bShowiMileage = True Then
MsgBoxText = MsgBoxText & vbNewLine & vbNewLine & "Total iMileage; " & iMileage
End If
iResult = MsgBox(MsgBoxText, vbInformation, "Items Time spent")
ExitSub:
Set oItem = Nothing
Set oSelection = Nothing
Set oOLApp = Nothing
End Sub
Function HoursMsg(TotalMinutes As Long) As String
Dim iHours As Long
Dim iMinutes As Long
iHours = TotalMinutes \ 60
iMinutes = TotalMinutes Mod 60
HoursMsg = " (" & iHours & " Hours and " & iMinutes & " Minutes)"
End Function
4. Πάτα το F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτό το VBA.
Και τώρα εμφανίζεται ένα παράθυρο διαλόγου και δείχνει πόσες ώρες / λεπτά πέρασε η επιλεγμένη συνάντηση / συνάντηση. Δείτε το στιγμιότυπο οθόνης:
Note: Μπορείτε να επιλέξετε πολλά ραντεβού ή συναντήσεις ταυτόχρονα για να μετρήσετε τις συνολικές ώρες / λεπτά που δαπανώνται σε αυτά με αυτόν τον κωδικό VBA.
Σχετικά άρθρα
Μετρήστε τον συνολικό αριθμό συνομιλιών σε ένα φάκελο στο Outlook
Μετρήστε τον συνολικό αριθμό συνημμένων σε επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook
Μετρήστε τον αριθμό των παραληπτών στα πεδία Προς, Cc και Bcc στο Outlook
Μετρήστε τον αριθμό των μηνυμάτων ηλεκτρονικού ταχυδρομείου από τον αποστολέα στο Outlook
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.