Sähköpostin aiherivin automaattinen täyttäminen liitteen nimellä Outlookissa

Käytätkö usein liitteen nimeä sähköpostin aiheena Outlookissa? Jos näin on, sinun on toivottava, että Outlook voi suorittaa sen automaattisesti. Tässä artikkelissa esitellään kätevä tapa toteuttaa se Outlook VBA:lla.

Monet käyttäjät ovat tottuneet kirjoittamaan liitteen nimen manuaalisesti sähköpostin otsikkoriville. Tällaisessa tilanteessa, jos Outlook pystyy tekemään sen automaattisesti, se on paljon kätevämpää. Jotkut käyttäjät myös unohtavat usein täyttää otsikkorivin. Niinpä he saavat "Ei aihetta" -varoitusviestin painettuaan "Lähetä"-painiketta. Tällaisessa tapauksessa, jos Outlook pystyy automaattisesti täyttämään otsikon liitteen nimellä, he voivat välttää ärsyttävän "Ei aihetta" -varoituksen. Lyhyesti sanottuna uskotaan, että monet Outlookin käyttäjät kaipaavat menetelmää, jolla Outlook voi automaattisesti täyttää sähköpostin otsikkorivin liitteen nimellä. Onneksi Outlook VBA:n avulla voimme tehdä tämän erittäin helposti. Tässä ovat yksityiskohtaiset VBA-koodit ja vaiheet.

Täytä sähköpostin aiherivi automaattisesti liitteen nimellä

1. Ensinnäkin voit käynnistää Outlookin ja siirtyä "Kehittäjä"-välilehdelle.
2. Napsauta sitten tämän välilehden alla "Visual Basic" -painiketta, joka tuo esiin VBA-editorin.
3. Seuraavassa ikkunassa sinun tulee ensin etsiä "ThisOutlookSession" -projekti oikealla olevasta projektiluettelosta.
4. Seuraavaksi kaksoisnapsauta avataksesi tämän projektin. Ja sitten kopioi seuraavat koodit siihen.

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

5. Sen jälkeen sinun on jatkettava digitaalisen varmenteen määrittämistä nykyiselle VBA-projektille normaalisti.

• Ensinnäkin, käytä sisäänrakennettua "Digital Certificates for VBA Projects" -apuohjelmaa digitaalisen varmenteen luomiseen.
• Tämän jälkeen voit allekirjoittaa nykyisen makron.

6. Poistu myöhemmin VBA-editorista ja vaihda makron asetuksiksi "Ilmoitukset digitaalisesti allekirjoitetuista makroista, kaikki muut makrot pois käytöstä".
7. Lopuksi voit kokeilla.

• Luo uusi sähköposti.
• Jos et ole täyttänyt aihetta ja aiot liittää tiedoston, saat viestin, kuten seuraavan kuvan:
• Kun valitset "Kyllä", aihe täytetään liitteen nimellä heti.

Selviytyä usein näkyvistä ongelmista

Edellyttäen, että olet käyttänyt Outlookia vuosikymmeniä, olet täytynyt kohdata monia Outlook-ongelmia. Mitä toimenpiteitä sitten yleensä teet tapaaessasi heidät? On suositeltavaa selvittää ja hävittää ne mahdollisimman pian. Tämä johtuu siitä, että kasaantuvat ongelmat voivat vahingoittaa Outlook-tietojasi milloin tahansa. Siksi, vaikka Outlook voisi toimia normaalisti, sinun on parempi käyttää joko Saapuneet-kansion korjaustyökalua tai ulkoista työkalua Outlook PST -virheiden korjausapuohjelma, Kuten DataNumen Outlook Repair, tarkistaaksesi PST-tiedostosi virheiden havaitsemiseksi ja ratkaisemiseksi.

Tekijän esittely:

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