Pääsisältö

Miten sähköpostin aihe täytetään automaattisesti liitteen nimellä Outlookissa?

Kirjailija: Siluvia Viimeksi muokattu: 2024-09-18

Niille, jotka ovat tottuneet käyttämään liitteen nimeä sähköpostin aiheena Outlookissa, liitteen nimen manuaalinen kirjoittaminen aiheriville joka kerta on aikaa vievää. Kuten alla olevasta gifistä näkyy, jos haluat täyttää sähköpostin aiherivin liitteen nimellä automaattisesti, kun lisäät liitteen, tämän opetusohjelman VBA-menetelmä auttaa.


Täytä sähköpostin aihe automaattisesti liitteen nimellä VBA-koodilla

Suorita seuraava VBA-koodi täyttääksesi sähköpostin aiheen automaattisesti Outlookissa lisätyn liitteen nimellä.

1. Käynnistä Outlook, paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta Projekti1 (VbProject.OTM) > Microsoft Outlook -objektit > ThisOutlookSession avaa ThisOutlookSession (koodi) editori.

3. Kopioi sitten seuraava VBA-koodi tiedostoon ThisOutlookSession (koodi) editori.

VBA-koodi: Täytä sähköpostin aihe automaattisesti liitteen nimellä

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

doc-autofill-subject-line-with-liitteen-nimi-2

4. Nyt sinun on tallennettava koodi ja käynnistettävä Outlook uudelleen.

5. Tästä lähtien, kun lisäät liitteen sähköpostiin, jonka aihetta ei ole vielä täytetty, Kutools Outlookille näyttöön tulee valintaikkuna, jossa kysytään, haluatko käyttää liitteen nimeä aiheena, napsauta Kyllä painiketta.

doc-autofill-subject-line-with-liitteen-nimi-3

Sitten aiheriville täytetään automaattisesti lisätyn liitteen nimi.

doc-autofill-subject-line-with-liitteen-nimi-4

Huomautuksia:

1) Jos olet jo täyttänyt aiheen, liitteen lisääminen ei avaa valintaikkunaa.
2) Jos poistat olemassa olevan aiheen nykyisestä sähköpostista, mutta kohdistin näkyy edelleen aiherivillä, liitteen lisääminen ei myöskään avaa valintaikkunaa. Kun olet poistanut aiheen, sinun on napsautettava pois aiheriviltä viestiruudun päivittämiseksi, jotta koodi toimii.
3) Jos lisäät useita liitteitä samanaikaisesti, vain ensimmäisen liitteen nimeä voidaan käyttää sähköpostin aiheena.

AI Mail Assistant Outlookissa: älykkäämpiä vastauksia, selkeämpi viestintä (yhden napsautuksen taikuutta!) VAPAA

Virtaviivaista päivittäisiä Outlook-tehtäviäsi Kutools for Outlookin AI Mail Assistantin avulla. Tämä tehokas työkalu oppii aiemmista sähköpostiviesteistäsi ja tarjoaa älykkäitä ja tarkkoja vastauksia, optimoi sähköpostisi sisällön ja auttaa sinua luomaan ja tarkentamaan viestejä vaivattomasti.
doc ai sähköpostin kahva

Tämä ominaisuus tukee:

  • Älykkäät vastaukset: saat aiemmista keskusteluistasi luotuja vastauksia – räätälöityjä, tarkkoja ja valmiita käyttöön.
  • Parannettu sisältö: tarkenna sähköpostisi tekstiä automaattisesti selkeyden ja vaikutuksen saamiseksi.
  • Vaivaton kokoonpano: Anna vain avainsanoja ja anna tekoäly hoitaa loput useilla kirjoitustyyleillä.
  • Älykkäät laajennukset: Laajenna ajatuksiasi kontekstitietoisilla ehdotuksilla.
  • Yhteenveto: Saat lyhyet yleiskatsaukset pitkistä sähköposteista välittömästi.
  • Globaali kattavuus: Käännä sähköpostisi helposti mille tahansa kielelle.

Tämä ominaisuus tukee:

  • Älykkäät sähköpostivastaukset
  • Optimoitu sisältö
  • Avainsanoihin perustuvat luonnokset
  • Älykäs sisältölaajennus
  • Yhteenveto sähköpostitse
  • Monikielinen käännös

Mikä parasta, tämä ominaisuus on täysin Ilmainen ikuisesti! Älä odota -lataa AI Mail Assistant nyt ja nauti!


Parhaat toimiston tuottavuustyökalut

Breaking News: Kutools for Outlook julkaisee ilmaisen version!

Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!

🤖 Kutools AI : Käyttää edistynyttä tekoälytekniikkaa sähköpostien vaivattoman käsittelyyn, mukaan lukien sähköpostien vastaaminen, yhteenveto, optimointi, laajentaminen, kääntäminen ja kirjoittaminen.

📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle)  /  Ajoita sähköpostien lähettäminen  /  Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia  /  Automaattinen edelleenlähetys (lisäsäännöt)   /  Automaattinen tervehdys   /  Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...

📨 Sähköposti Management: Muista sähköpostit  /  Estä huijaussähköpostit aiheiden ja muiden taholta  /  Poista päällekkäiset sähköpostit  /  Tarkennettu Haku  /  Yhdistä kansiot ...

📁 Liitteet ProErätallennus  /  Erä Irrota  /  Eräpakkaus  /  Automaattinen tallennus   /  Automaattinen irrotus  /  Automaattinen pakkaus ...

🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia   /  Muistuttaa sinua tärkeistä sähköpostiviesteistä  /  Minimoi Outlook sulkemisen sijaan ...

???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä  /   Tietojenkalastelun vastaiset sähköpostit  /  🕘Näytä lähettäjän aikavyöhyke ...

👩🏼‍🤝‍👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä  /  Jaa yhteysryhmä yksittäisiin ryhmiin  /  Poista syntymäpäivämuistutukset ...

Avaa Kutools for Outlook välittömästi yhdellä napsautuksella. Älä odota, lataa nyt ja lisää tehokkuuttasi!

kutools Outlook-ominaisuuksille1 kutools Outlook-ominaisuuksille2