Outlook'ta bir randevu veya toplantı için harcanan saatleri / günleri / haftaları nasıl hesaplayabilirim?
Diyelim ki Outlook'ta bir takvimde çok sayıda randevu ve toplantı var. Ve şimdi bu randevulara ve toplantılara harcanan saatleri / günleri / haftaları saymak istiyorsunuz, herhangi bir fikriniz var mı? Bu makale size yardımcı olacak bir VBA tanıtacaktır.
VBA ile randevu veya toplantı için harcanan saatleri / günleri / haftaları sayın
VBA ile randevu veya toplantı için harcanan saatleri / günleri / haftaları sayın
Bu yöntem, Outlook'ta belirtilen randevu veya toplantı için harcanan saatleri veya dakikaları saymak için bir VBA sunacaktır. Lütfen aşağıdaki işlemleri yapın:
1. Takvim klasörüne kaydırın ve harcanan saatleri sayacağınız randevu veya toplantıyı seçmek için tıklayın.
2. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için aynı anda tuşlarına basın.
3. tık Ekle > modülve ardından açılan Modül penceresine VBA kodunun altına yapıştırın.
VBA: Outlook'ta bir randevu veya toplantı için harcanan saatleri / dakikaları sayın
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. Tuşuna basın. F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.
Ve şimdi bir iletişim kutusu açılır ve seçilen randevunun / toplantının kaç saat / dakika harcadığını gösterir. Ekran görüntüsüne bakın:
not: Bu VBA kodu ile harcanan toplam saat / dakikayı saymak için aynı anda birden fazla randevu veya toplantı seçebilirsiniz.
İlgili Makaleler
Outlook'ta bir klasördeki toplam konuşma sayısını sayın
Outlook'ta seçili e-postalardaki toplam ek sayısını sayın
Outlook'ta Kime, Bilgi ve Gizli alanlarındaki alıcıların sayısını sayın
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.