Ugrás a tartalomra

Hogyan lehet keresni és lecserélni a találkozó tárgyát az Outlook naptárban?

A találkozó tárgyának megkeresése és cseréje az Outlook naptárban hasznos, ha úgy találja, hogy egyes tantárgyakat tömegesen ugyanazokkal a szövegekkel kell helyettesíteni. Vagy cserélje le a Tárgy mezőre a Másolás szót az adatok importálása után az Outlook programban. Ez a cikk VBA-kódot tartalmaz a több kinevezési tárgy kereséséhez és cseréjéhez. Kérjük, böngésszen további részletekért.

Keresse meg és cserélje le a találkozó tárgyát VBA kódra

Iroda lap – Engedélyezze a lapos szerkesztést és böngészést a Microsoft Office-ban, így a munka egyszerűvé válik
Kutools for Outlook – Növelje az Outlookot 100+ speciális funkcióval a kiemelkedő hatékonyság érdekében
Növelje Outlook 2021–2010 vagy Outlook 365 verzióját ezekkel a speciális funkciókkal. Élvezze az átfogó 60 napos ingyenes próbaverziót, és fokozza az e-mailezési élményt!

nyíl kék jobb buborékKeresse meg és cserélje le a találkozó tárgyát VBA kódra

Ebben a részben az alábbiak szerint kereshet és cserélheti le a találkozó tárgyát VBA kóddal.

1. Először alacsonyra kell állítania a makróbeállításokat az Outlook alkalmazásban.

1) Az Outlook 2010 és 2013 programban kattintson a gombra filé > Opciók. És a Outlook opciók párbeszédpanelen kattintson a gombra Trust Center a bal sávban, majd kattintson a gombra Trust Center beállítások gombot.

A Trust Center párbeszédpanelen kattintson a gombra Makróbeállítások a bal sávban, majd válassza a lehetőséget Engedélyezze az összes makrót lehetőség a Makróbeállítások szakasz. És kattintson a gombra OK gomb. Lásd a képernyőképet:

2). Az Outlook 2007 alkalmazásban kattintson a gombra Eszközök > Trust Center. Az Trust Center párbeszédpanelen kattintson a gombra Makróbeállítások a bal sávban, majd válassza a lehetőséget Nincs makrók biztonsági ellenőrzése opciót és kattintson a OK gombot.

2. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Ban,-ben Microsoft Visual Basic for Applications ablak, kattintson duplán a project1 > Microsoft Outlook objektumok > ThisOutlookSession hogy megnyissa a VBA szerkesztőt. Lásd a képernyőképet:

4. Másolja és illessze be a következő VBA kódot a VBA szerkesztőbe. És akkor nyomja meg a F5 gombot a kód futtatásához.

VBA: keresse meg és cserélje ki a kinevezés tárgyát

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. A kód futtatása után a Microsoft Outlook megjelenik a párbeszédpanel. Kattints a OK gombot.

6. A másodikban Microsoft Outlook párbeszédpanelen írja be a cserélni kívánt szöveget, majd kattintson a gombra OK gombot.

7. A harmadikban Microsoft Outlook párbeszédpanelen írja be a cserélni kívánt szöveget, majd kattintson a gombra OK.

Megjegyzések: Ha csak el akarja távolítani az összes „Másolás” szót a megadott naptár tárgyából, kérjük, hagyja üresen ezt a négyzetet.

8. Kattintson a OK gombra az alábbi párbeszédpanelen.

9. Ban,-ben Válassza ki a Mappa párbeszédpanelen válassza ki a naptárat a megadott e-mail fiók alatt, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

10. Ezután megjelenik egy párbeszédpanel, amely tájékoztatja Önt arról, hogy a csere sikeres. Kattintson a gombra OK gombot.

11. Ezután a kiválasztott naptár tantárgyai összes szövegét lecserélték az új tartalomra.


A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

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