Preskoči na glavno vsebino

Kako iskati in zamenjati predmet sestanka v koledarju Outlook?

Poiščite in zamenjajte zadevo sestanka v koledarju programa Outlook je koristno, če ugotovite, da je treba nekatere predmete množično nadomestiti z enakimi besedili. Ali pa besedo Kopiraj zamenjajte v polju zadeve po uvozu podatkov v Outlooku. Ta članek vsebuje kodo VBA za iskanje in zamenjavo več predmetov sestankov. Prosimo, poiščite več podrobnosti.

Poiščite in zamenjajte zadevo sestanka s kodo VBA

Zavihek Office – omogočite urejanje in brskanje z zavihki v Microsoft Officeu, kar olajša delo
Kutools za Outlook – izboljšajte Outlook s 100+ naprednimi funkcijami za vrhunsko učinkovitost
Izboljšajte svoj Outlook 2021 - 2010 ali Outlook 365 s temi naprednimi funkcijami. Uživajte v obsežnem 60-dnevnem brezplačnem preizkusu in izboljšajte svojo e-poštno izkušnjo!

puščica modri desni mehurčekPoiščite in zamenjajte zadevo sestanka s kodo VBA

V tem razdelku lahko iskate in zamenjate zadevo sestanka s kodo VBA, kot sledi.

1. Najprej morate v Outlooku nastaviti nastavitve makra na nizke.

1) V Outlook 2010 in 2013 kliknite file > možnosti. In v Outlook Možnosti pogovorno okno, kliknite Trust Center v levi vrstici, nato kliknite Trust Center Nastavitve gumb.

v Trust Center pogovorno okno, kliknite Nastavitve makrov v levi vrstici, nato izberite Omogoči vse makre možnost v Nastavitve makrov oddelku. In kliknite OK . Oglejte si posnetek zaslona:

2). V programu Outlook 2007 kliknite Orodja > Trust Center. v Trust Center pogovorno okno, kliknite Nastavitve makrov v levi vrstici, nato izberite Ni varnostnega preverjanja makrov in kliknite na OK gumb.

2. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite, da razširite project1 > Predmeti Microsoft Outlook > Ta OutlookSession odpreti urejevalnik VBA. Oglejte si posnetek zaslona:

4. Kopirajte in prilepite naslednjo kodo VBA v urejevalnik VBA. In nato pritisnite F5 tipko za zagon kode.

VBA: poiščite in zamenjajte predmet sestanka

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. Po zagonu kode a Microsoft Outlook odpre se pogovorno okno. Kliknite OK gumb.

6. V drugem Microsoft Outlook v pogovorno okno vnesite besedilo, ki ga želite zamenjati, in kliknite OK gumb.

7. V tretjem Microsoft Outlook v pogovorno okno vnesite besedilo, ki ga želite zamenjati, in kliknite OK.

Opombe: Če želite samo odstraniti vse besede »Kopiraj« iz teme v določenem koledarju, pustite to polje prazno.

8. Kliknite OK v spodnjem pogovornem oknu.

9. V Ljubljani Izberite mapo v pogovornem oknu izberite koledar pod navedenim e-poštnim računom in kliknite OK . Oglejte si posnetek zaslona:

10. Nato se prikaže pogovorno okno, ki vas obvesti, da je zamenjava uspešna. Kliknite OK gumb.

11. Nato so bila vsa besedila v predmetih izbranega koledarja nadomeščena z novo vsebino.


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Many thanks. I think it is the 1st time, I copied and executed your macro "as is" without any error or any need for changes !
This comment was minimized by the moderator on the site
Buongiorno,
è possibile specificare la cartella posizione calendario (es.: \\mail@dominio\Calendario) senza far apparire la richiesta?
Grazie
Hi,
is it possible to specify the folder location calendar (ex .: \\ mail@domain\Calendar) without making the request appear?

Thank you


This comment was minimized by the moderator on the site
I always get a Syntax Error right at the start on the 2nd line at Dim oApp As Outlook.Application. No idea what's wrong :-(

I try to run the VB Script in Outlook 2016 (O365 Version) on Windows 10.
This comment was minimized by the moderator on the site
It seems I'm unable to do this for non-local, or shared calendars. Does anyone know how to do it for shared calendars? I'm set as "owner" for permission level of the shared calendar, but it won't show up in my list of folders when I run the script, only my locally created calendars show up.
This comment was minimized by the moderator on the site
Worked fantastically! Thank you so much!!!
This comment was minimized by the moderator on the site
This should do it for you. Add these 3 lines immediately after line 8 (Set oApp = Outlook.Application). Dim nmSpace As Outlook.NameSpace Set nmSpace = oApp.GetNamespace("MAPI") Set oCalFolder = nmSpace.GetDefaultFolder(olFolderCalendar)
This comment was minimized by the moderator on the site
Thank you! How can we modify it to always use the same calendar, and not show the first pop-up? thank you
This comment was minimized by the moderator on the site
Worked just fine really good It took me some time to understand that this is case sensitive, but that is very good. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations