Ako rýchlo znova odoslať pozvánku na schôdzku osobám, ktoré v Outlooku neodpovedali

Záchrana dát z Outlooku, Riešenia pre Outlook Júla 28, 2017

Mnoho používateľov dúfa, že pozvánku na schôdzu rýchlo znova pošle účastníkom, ktorí neodpovedali. Tento článok vám ukáže, ako to dosiahnuť.

V mojom predchádzajúcom článku - „Ako rýchlo poslať oznamovací e-mail účastníkom stretnutia, ktorí neodpovedali”, Môžete sa dozvedieť, ako poslať e-mail s upozornením príjemcom schôdzky, ktorí neodpovedali. Mnohí používatelia by chceli túto pozvánku na schôdzku znova odoslať namiesto e-mailu s oznámením. Preto v nasledujúcich textoch odhalíme kúsok kódu VBA, ktorý vám pomôže v okamihu si ho uvedomiť.

Rýchlo znova pošlite pozvánku na schôdzku tým, ktorí v Outlooku neodpovedali

Znova pošlite pozvánku na stretnutie tým, ktorí neodpovedali

  1. K start s, spustite aplikáciu Outlook.
  2. Potom v hlavnom okne Outlooku stlačte klávesovú skratku „Alt + F11“, aby ste sa dostali do editora VBA.
  3. Ďalej by ste mali otvoriť nepoužívaný modul alebo jednoducho vložiť nový.
  4. Následne skopírujte a vložte nižšie uvedený kód VBA do tohto modulu.
Sub ResendMeetingInvitationToAttendeesNotRespond () Dim objMeeting ako AppointmentItem Dim objAttendees ako príjemcovia Dim objAttendee ako príjemca Dim AttendeesNotRespond As String Dim objCopiedMeeting ako AppointmentItem Dim objRecipient ako príjemca Dim objItem ako objekt Set copyMeeting = ActiveExp. meeting Set objCopiedMeeting = objMeeting.Copy 'Odstrániť všetkých pôvodných príjemcov For i = objCopiedMeeting.Recipients.Count To 1 Step -1 objCopiedMeeting.Recipients.Item (i) .Delete Next Set objAttendees = objMeeting.Recipients For each objAttendee In objAttendees If ( objAttendee.Type <> olOrganizer) A (objAttendee.MeetingResponseStatus = olResponseNone) Potom 'Pridajte príjemcov, ktorí na túto schôdzku neodpovedali, objCopiedMeeting.Recipients.Add (objAttendee.Address) Koniec, ak ďalej', odošlite túto skopírovanú schôdzu objCopiedMeeting.Recip.Recip.Recipents. ResolveAll objCopiedMeeting.Send 'Trvalé odstránenie skopírovanej schôdzky objCopiedMeeting.UserProperties.Add ( "Vymazať"), olText objCopiedMeeting.Save objCopiedMeeting.Delete pre každú objItem v Application.Session.GetDefaultFolder (olFolderDeletedItems) .Items If TypeName (objItem.UserProperties.Find ("Clear")) <> "Nič" Potom Koniec Ak Next End Sub

Kód VBA - rýchlo znova pošlite pozvánku na schôdzku tým, ktorí neodpovedali

  1. Potom, pre neskorší pohodlný prístup, je lepšie pridať tento nový projekt VBA na panel nástrojov Rýchly prístup ako obvykle.
  2. Prístupom k nastaveniam makier sa tiež ubezpečte, že sú makrá povolené.
  3. Nakoniec môžete urobiť záber:
  • Najskôr musíte vo svojom kalendári Outlooku zvoliť zdrojovú schôdzku.
  • Potom stlačte tlačidlo makra na paneli s nástrojmi Rýchly prístup.
  • Táto schôdzka bude okamžite preposlaná účastníkom, ktorí neodpovedali.

Vyriešte rôzne problémy s programom Outlook

Pri používaní Outlooku sa môžu neočakávane vyskytnúť všetky druhy problémov, napríklad náhle „Nereaguje“, vyskakovacie chybové správy, zlyhania atď. Spravidla je nevyhnutné vyriešiť malé problémy pomocou nástroja na interné opravy. Ak sú však problémy príliš vážne na to, aby ich program Scanpst.exe dokázal vyriešiť, nezostáva vám nič iné, ako využiť omnoho účinnejší a spoľahlivejší nástroj na opravu, ako napríklad DataNumen Outlook Repair. Je dobre vyznaný v Oprava PST, čím sa presunula nad svojich súperov.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Komentáre sú uzavreté.