Note: The other languages of the website are Google-translated. Back to English

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

Kartica Office - omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte delo ...
Kutools za Outlook - prinaša 100 zmogljivih naprednih funkcij v Microsoft Outlook
  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po pravilih; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaže sporočilo, ko poskušate odgovoriti na vse, če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v pogovoru po pošti; Odgovori na več e-poštnih sporočil hkrati; Samodejno dodaj pozdrav ko odgovor; Samodejno dodaj datum in čas v zadevo ...
  • Orodja za pritrditev: Samodejno loči, Stisni vse, Preimenuj vse, Samodejno shrani vse ... Hitro poročilo, Preštej izbrano pošto, Odstranitev podvojenih e-poštnih sporočil in stikov ...
  • Več kot 100 naprednih funkcij bo rešiti večino svojih težav v Outlooku 2010-2019 in 365. Polne funkcije 60-dnevnega brezplačnega preskusa.

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.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (8)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Dela prav dobro, res dobro. Potreboval sem nekaj časa, da sem razumel, da je to občutljivo na velike in male črke, vendar je to zelo dobro. Hvala vam
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam! Kako ga lahko spremenimo, da vedno uporablja isti koledar in ne prikaže prvega pojavnega okna? Hvala vam
Ta komentar je moderator na spletnem mestu minimiziral
Delalo fantastično! Najlepša hvala!!!
Ta komentar je moderator na spletnem mestu minimiziral
To bi moralo storiti namesto vas. Dodajte te 3 vrstice takoj za vrstico 8 (Nastavi oApp = Outlook.Application). Zatemni nmSpace kot Outlook.NameSpace Nastavi nmSpace = oApp.GetNamespace("MAPI") Nastavi oCalFolder = nmSpace.GetDefaultFolder(olFolderCalendar)
Ta komentar je moderator na spletnem mestu minimiziral
Zdi se, da tega ne morem storiti za nelokalne koledarje ali koledarje v skupni rabi. Ali kdo ve, kako se to naredi za skupne koledarje? Nastavljen sem kot "lastnik" za raven dovoljenja koledarja v skupni rabi, vendar se ne bo prikazal na mojem seznamu map, ko zaženem skript, prikazani so samo moji lokalno ustvarjeni koledarji.
Ta komentar je moderator na spletnem mestu minimiziral
Vedno dobim sintaktično napako takoj na začetku v 2. vrstici na Dim oApp As Outlook.Application. Nimam pojma kaj je narobe :-(

Poskušam zagnati VB Script v Outlooku 2016 (različica O365) v sistemu Windows 10.
Ta komentar je moderator na spletnem mestu minimiziral
buongiorno,
è possibile specificare la cartella posizione calendario (es.: \\mail@dominio\Calendario) senza far apparire la richiesta?
Hvala
Hi,
ali je mogoče določiti koledar lokacije mape (npr. .: \\ mail@domain\Calendar), ne da bi se pojavila zahteva?

Hvala


Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala. Mislim, da je to prvič, da sem kopiral in izvedel vaš makro "kot je" brez napak ali kakršne koli potrebe po spremembah!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije