Tehtävän antaminen useille henkilöille erikseen Outlookissa

Joistakin syistä, kuten luottamuksellisuudesta tai yksityisyydestä, saatat haluta lähettää tehtävän erikseen, kun annat tehtävän useille henkilöille. Nyt esittelemme menetelmän sen saamiseksi.

Kun määrität tehtävän, jos täytät useita vastaanottajia ja napsautat "Lähetä", saat varoituksen, joka kertoo, että useille henkilöille lähetetty tehtävä ei päivity. Joten jos haluat saada tehtäväpäivitykset ajoissa, sinun on parempi määrittää tehtävä useille vastaanottajille erikseen.

Tehtävän päivityksen harkinnan lisäksi luottamuksellisuuden vuoksi tehtävä on tietysti lähetettävä usealle henkilölle erikseen. Yleensä sinun on luotava erilliset tehtävät, lisättävä vastaanottaja ja lähetettävä yksitellen. Se on ilmeisesti hankalaa. Joten seuraavassa esittelemme sinulle paljon tehokkaamman tavan.

Määritä tehtävä useille henkilöille erikseen

1. Aloita painamalla "Alt + F11" päästäksesi Outlook VBA -editoriin.
2. Seuraavaksi kopioi VBA-koodi "Microsoft Visual Basic for Applications" -ikkunassa tyhjään moduuliin tai projektiin.

Sub AssignTaskToMultipleContactsSeparately()
    Dim objCurrentTask As Outlook.TaskItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim objCopiedTask As Outlook.TaskItem
    Dim i As Long
    Dim strRecipientName As String
 
    Set objCurrentTask = Outlook.Application.ActiveInspector.CurrentItem
 
    If Not objCurrentTask Is Nothing Then
       Set objRecipients = objCurrentTask.Recipients
 
       For Each objRecipient In objRecipients
           Set objCopiedTask = objCurrentTask.Copy
 
           For i = objCopiedTask.Recipients.Count To 1 Step -1
               objCopiedTask.Recipients.Remove (i)
           Next
 
           strRecipientName = Split(objRecipient.Address, "@")(0)
           strRecipientName = UCase(Left(strRecipientName, 1)) & Right(strRecipientName, Len(strRecipientName) - 1)
 
           With objCopiedTask
                .Recipients.Add (objRecipient.Address)
                .Recipients.ResolveAll
                .Subject = .Subject & " (" & strRecipientName & ")"
                .Assign
                .Send
          End With
        Next
 
        objCurrentTask.Close olDiscard
    End If
End Sub

3. Lisää myöhemmin tämä makro Tehtävä-ikkunan valintanauhaan katsomalla artikkelin ”Valinnainen vaihe” -kohtaa – ”Kuinka suorittaa VBA-koodi Outlookissa".
4. Lopulta kokeile tätä makroa seuraavasti:

• Luo ensin uusi tehtävä ja lisää vastaanottajat halutessasi.
• Napsauta sitten nauhan makropainiketta.
• Heti nykyinen tehtävä osoitetaan vastaanottajille erikseen, kuten seuraavassa kuvakaappauksessa näkyy.

Pidä huolta Outlookistasi

Outlook on altis virheille ja korruptiolle. Siksi, jos et halua kärsiä Outlook-tietojen katoamisesta, sinun tulee tehdä säännöllisesti varmuuskopioita Outlook-tiedoistasi. Vain tällä tavalla, vaikka Outlook-tiedosto vioittuu, voit silti palauttaa helposti korruptoitunut Outlook tiedot varmuuskopioista. Jos ilman varmuuskopiota, sinun on turvauduttava merkittävään ja tehokkaaseen palautustyökaluun, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server elpyminen ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com