Kaikkien vastaanottajien automaattinen siirtäminen alkuperäistä lähettäjää lukuun ottamatta "CC"-kenttään käytettäessä "Vastaa kaikille" Outlookissa

Jotkut käyttäjät siirtävät aina kaikki vastaanottajat paitsi alkuperäinen lähettäjä "CC"-kenttään käyttäessään "Vastaa kaikille" Outlookissa. Tässä artikkelissa esitellään menetelmä liikkeen automatisoimiseksi Outlook VBA:n avulla.

Oletuksena, kun valitset "Vastaa kaikille" vastataksesi sähköpostiin, kaikki vastaanottajat, jotka olivat alun perin "Vastaanottaja"-kentässä, sijoitetaan edelleen vastausviestin "Vastaanottaja"-kenttään. Monet käyttäjät haluaisivat kuitenkin siirtää kaikki vastaanottajat "CC"-kenttään, jolloin "Vastaanottaja"-kentässä on vain alkuperäinen lähettäjä. Vastauksena tähän vaatimukseen paljastamme tässä osan VBA-koodia, joka voi toteuttaa sen automaattisesti.

Siirrä automaattisesti kaikki vastaanottajat paitsi alkuperäinen lähettäjä CC-kenttään "Vastaa kaikille"

1. Käynnistä ensin Outlook-ohjelma.
2. Paina sitten Outlookin pääikkunassa ”Alt + F11” -näppäimiä.
3. Seuraavaksi siirryt Outlook VBA -editoriin.
4. Myöhemmin sinun pitäisi löytää ja avata "ThisOutlookSession" -projekti.
5. Myöhemmin sinun on kopioitava ja liitettävä seuraavat VBA-koodit tähän projektiikkunaan.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

6. Tämän jälkeen sinun tulee allekirjoittaa tämä makro ja muuttaa sitten Outlook-makroasetuksiasi sallimaan digitaalisesti allekirjoitetut makrot.
7. Lopulta voit käynnistää Outlookin uudelleen aktivoidaksesi uuden VBA-projektin.
8. Tästä lähtien aina, kun vastaat sähköposteihin käyttämällä "Vastaa kaikille", näet, että kaikki vastaanottajat on siirretty "CC"-kenttään ja vain alkuperäinen lähettäjä on "Vastaanottaja"-kentässä.

Älä panikoi PST-korruption varalta

Jos PST-tiedostosi sisältää paljon arvokkaita tietojasi, kuten asiakastietoja ja niin edelleen, sinun on huolestuttava, kun PST-tiedostosi vioittuu. Jos olet kuitenkin varmuuskopioinut tiedostosi äskettäin, et koskaan panikoi. Varmuuskopioiden avulla voit saada takaisin omasi vahingoittunut Outlook dataa vaivattomasti. Mutta jos tällaista varmuuskopiota ei ole, voit silti käyttää tehokasta palautustyökalua, kuten DataNumen Outlook Repair.

Tekijän esittely:

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