Disa përdorues dëshirojnë të kërkojnë vetëm përgjigjet e takimit nga pjesëmarrësit e kërkuar kur dërgojnë një ftesë takimi të Outlook. Ky artikull do të mësojë se si ta realizoni atë përmes Outlook VBA.
Për të mos kërkuar përgjigje kur dërgoni ftesa për takime, thjesht mund të klikoni butonin "Opsionet e përgjigjes" dhe zgjidhni opsionin "Kërkoni përgjigje". Por, në këtë mënyrë, të gjithë të pranishmit, pa marrë parasysh kërkesën ose opsionin, nuk do t'u kërkohet të dërgojnë përgjigjet e tyre të takimit. Megjithatë, në realitet, most me kalimin e kohës, ajo që dëshironi është të mos kërkoni përgjigje nga pjesëmarrësit opsionalë. Në këtë rast, duhet të kërkoni metoda të tjera, si ajo e mëposhtme.
Kërkojuni pjesëmarrësve vetëm që t'i përgjigjen ftesës suaj të takimit
- Në radhë të parë, hapni aplikacionin tuaj Outlook.
- Pastaj shtypni butonat "Alt + F11" në ekranin kryesor të Outlook.
- Më pas, pasi të keni akses në redaktorin VBA të Outlook, duhet të gjeni dhe hapni projektin "ThisOutlookSession".
- Më pas, kopjoni kodin e mëposhtëm VBA në këtë dritare të projektit.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMeeting As Outlook.MeetingItem
Dim objCopiedMeeting As Outlook.AppointmentItem
Dim objOriginalAttendee As Outlook.recipient
Dim objCopiedAttendee As Outlook.recipient
If TypeOf Item Is MeetingItem Then
Set objMeeting = Item
For i = objMeeting.Recipients.count To 1 Step -1
'Remove Optional Attendees from the Original Meeting Invitation
Set objOriginalAttendee = objMeeting.Recipients.Item(i)
If objOriginalAttendee.Type = olOptional Then
objOriginalAttendee.Delete
End If
Next
'Copy the Meeting
Set objCopiedMeeting = objMeeting.GetAssociatedAppointment(True).Copy
'Disable "Request Response" Feature in the Copied Meeting
objCopiedMeeting.ResponseRequested = False
For i = objCopiedMeeting.Recipients.count To 1 Step -1
'Add the Previously Removed Optional Attendees
Set objCopiedAttendee = objCopiedMeeting.Recipients.Item(i)
If objCopiedAttendee.Type = olRequired Then
objCopiedAttendee.Delete
End If
Next
'Send out the Copied Meeting
objCopiedMeeting.Send
'Delete the Copied Meeting after Sending
objCopiedMeeting.Delete
End If
End Sub
- Pas kësaj, ju duhet të nënshkruani këtë projekt VBA.
- Qëndroni në makro aktuale dhe shtypni "Tools" në shiritin e veglave.
- Pastaj zgjidhni opsionin "Nënshkrimet Dixhitale".
- Në kutinë e dialogut që shfaqet, ndiqni udhëzimet në ekran për ta përfunduar atë.
- Më vonë kontrolloni cilësimet e makrove të Outlook për t'u siguruar që makroja e nënshkruar në mënyrë dixhitale është e aktivizuar.
- Që tani e tutje, kur dërgoni një ftesë për takim, pjesëmarrësve opsionalë nuk do t'u kërkohet të përgjigjen. Nga këndvështrimi i tyre, ftesa e takimit do të duket si pamja e mëposhtme e ekranit:
Luftoni viruset dhe malware në Outlook
Filtri i postës elektronike Junk Outlook luan një rol të rëndësishëm në shmangien e sulmeve të papritura të viruseve dhe malware. Në ditët e sotme, viruset po bëhen gjithnjë e më të sofistikuara. Për të bllokuar infeksionin e virusit dhe sulmin e malware, jo vetëm që duhet të bllokoni mesazhet e padëshiruara në kohë, por gjithashtu duhet të raportoni domenet ose adresat e dyshimta të emailit te Microsoft, duke ndihmuar në forcimin e filtrit të postës elektronike të padëshiruar të Outlook. Përveç kësaj, përveç filtrit të integruar të postës elektronike të padëshiruar, ju duhet të mbani gjithashtu një mjet të frikshëm riparimi, si p.sh. DataNumen Outlook Repair. Ka një shumë më të lartë Rimëkëmbja e opinionit normë se rivalët e saj.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com