Outlook takviminde randevu konusu nasıl aranır ve değiştirilir?

Outlook takviminde randevu konusunu bulun ve değiştirin, bazı konuların toplu olarak aynı metinlerle değiştirilmesi gerektiğini fark ettiğinizde yararlıdır. Veya Outlook'a veri aktarıldıktan sonra konu alanındaki Kopyala kelimesini değiştirin. Bu makale, birden çok randevu konusunu aramak ve değiştirmek için size VBA kodu sağlar. Lütfen daha fazla ayrıntı için göz atın.

Randevu konusunu VBA kodu ile arayın ve değiştirin

Randevu konusunu VBA kodu ile arayın ve değiştirin

Bu bölümde aşağıdaki gibi randevu konusunu VBA kodu ile arayabilir ve değiştirebilirsiniz.

1. Öncelikle, Outlook'ta makro ayarlarını düşük olarak ayarlamanız gerekir.

1) Outlook 2010 ve 2013'te fileto > Opsiyonlar. Ve bu da Outlook Seçenekleri iletişim kutusunu tıklayın Güven Merkezi sol çubukta, ardından Güven Merkezi Ayarları düğmesine basın.

içinde Güven Merkezi iletişim kutusunu tıklayın Makro Ayarları sol çubukta, ardından seçin Tüm makroları etkinleştirin seçeneği Makro Ayarları Bölüm. Ve tıklayın OK buton. Ekran görüntüsüne bakın:

2). Outlook 2007'de lütfen tıklayın Tools > Güven Merkezi. In Güven Merkezi iletişim kutusunu tıklayın Makro Ayarları sol çubukta, ardından seçin Makrolar için güvenlik kontrolü yok seçeneğini tıklayın ve OK düğmesine basın.

2. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. içinde Uygulamalar için Microsoft Visual Basic penceresi, genişletmek için çift tıklayın project1 > Microsoft Outlook Nesneleri > Bu OutlookOturumu VBA düzenleyicisini açmak için. Ekran görüntüsüne bakın:

4. Aşağıdaki VBA kodunu kopyalayıp VBA düzenleyicisine yapıştırın. Ve sonra F5 kodu çalıştırmak için anahtar.

VBA: randevu konusunu bulun ve değiştirin

Sub FindReplaceAppointment()
	Dim oApp As Outlook.Application
	Dim oCalFolder As Outlook.MAPIFolder
	Dim oAppt As Outlook.AppointmentItem
	Dim sOldText As String
	Dim sNewText As String
	Dim iCalChangedCount As Integer
	Set oApp = Outlook.Application
	MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
	sOldText = InputBox("What is the text string that you would like to replace?")
	sNewText = InputBox("With what would you like to replace it?")
	' Check to be sure a Calendar folder was selected
	Do
	If Not (oCalFolder Is Nothing) Then
		If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
	End If
	MsgBox ("Please select a calendar folder from the following list.")
	Set oCalFolder = Application.Session.PickFolder
	On Error GoTo ErrHandler:
Loop Until oCalFolder.DefaultItemType = olAppointmentItem
' Loop through appointments in calendar, change text where necessary, keep count
iCalChangedCount = 0
For Each oAppt In oCalFolder.Items
	If InStr(oAppt.Subject, sOldText) <> 0 Then
		Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
		oAppt.Subject    = Replace(oAppt.Subject, sOldText, sNewText)
		oAppt.Save
		iCalChangedCount = iCalChangedCount + 1
	End If
Next
' Display results and clear table
MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
Set oAppt = Nothing
Set oCalFolder = Nothing
Exit Sub
	ErrHandler:
	MsgBox ("Macro terminated.")
End Sub

5. Kodu çalıştırdıktan sonra, bir Microsoft Outlook iletişim kutusu açılır. Tıkla OK düğmesine basın.

6. saniyede Microsoft Outlook iletişim kutusunda değiştirmek istediğiniz metni girin ve ardından OK düğmesine basın.

7. Üçüncü olarak Microsoft Outlook iletişim kutusuna, değiştirmek istediğiniz metni girin ve OK.

not: Belirtilen takvimde konudaki tüm “Kopyala” kelimelerini kaldırmak istiyorsanız, lütfen bu kutuyu boş bırakın.

8. Tıklayın OK Aşağıdaki iletişim kutusundaki düğmesine tıklayın.

9. içinde Klasör Seç iletişim kutusunda, belirtilen e-posta hesabının altında takviminizi seçin ve ardından OK buton. Ekran görüntüsüne bakın:

10. Ardından, değiştirme işleminin başarılı olduğunu bildirmek için bir iletişim kutusu açılacaktır. Lütfen tıklayın OK düğmesine basın.

11. Ve sonra seçtiğiniz takvimdeki konulardaki tüm metinler yeni içerikle değiştirildi.

---

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.

Devamını Oku       Bedava indir      Satın alma