Egyes felhasználók csak az értekezletre adott válaszokat kívánják kérni a szükséges résztvevőktől, amikor Outlook-meghívót küldenek. Ez a cikk megtanítja, hogyan valósíthatja meg az Outlook VBA-n keresztül.
Ha nem szeretne választ kérni az értekezlet-meghívók küldésekor, egyszerűen kattintson a „Válaszbeállítások” gombra, és törölje a „Válasz kérése” opciót. Ezáltal azonban az összes résztvevőnek, függetlenül attól, hogy kötelező vagy nem kötelező, nem kell elküldenie az ülésre adott válaszait. A valóságban azonban a most Az idő elteltével nem kíván válaszokat kérni az opcionális résztvevőktől. Ebben az esetben más módszereket kell keresnie, például a következőt.
Csak a szükséges résztvevőket kérje meg, hogy válaszoljanak a megbeszélésre
- Először is indítsa el az Outlook alkalmazást.
- Ezután nyomja meg az „Alt + F11” billentyűket az Outlook főképernyőjén.
- Ezután, miután hozzáfért az Outlook VBA-szerkesztőhöz, meg kell találnia és meg kell nyitnia a „ThisOutlookSession” projektet.
- Ezt követően másolja be a következő VBA-kódot ebbe a projektablakba.
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
- Ezt követően alá kell írnia ezt a VBA projektet.
- Maradjon az aktuális makróban, és kattintson az eszköztáron az „Eszközök” gombra.
- Ezután válassza a „Digitális aláírások” lehetőséget.
- A felugró párbeszédpanelen kövesse a képernyőn megjelenő utasításokat a befejezéshez.
- Később ellenőrizze az Outlook makró beállításait, hogy megbizonyosodjon arról, hogy a digitálisan aláírt makró engedélyezve van.
- Mostantól kezdve, amikor meghívót küld az ülésre, az opcionális résztvevőknek nem kell válaszolniuk. Az ő szemszögükből a találkozó meghívója a következő képernyőképen fog kinézni:
Vírusok és rosszindulatú programok elleni küzdelem az Outlookban
Az Outlook levélszemétszűrője fontos szerepet játszik a váratlan vírus- és rosszindulatú támadások elkerülésében. Manapság a vírusok egyre kifinomultabbak. A vírusfertőzések és a rosszindulatú programok elleni támadások megakadályozása érdekében nemcsak a spameket kell időben blokkolnia, hanem a gyanús e-mail tartományokat vagy címeket is jelentenie kell a Microsoftnak, ezzel is erősítve az Outlook levélszemétszűrőjét. Ezenkívül a beépített kéretlen e-mail szűrőn kívül egy hatalmas javítóeszközt is kell tartania, mint pl. DataNumen Outlook Repair. Sokkal magasabb van benne Outlook helyreállítása aránya, mint riválisai.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com