Hogyan lehet automatikusan kitölteni az e-mail tárgyát a melléklet nevével az Outlookban?
Azok számára, akik hozzászoktak ahhoz, hogy a melléklet nevét e-mail tárgyaként használják az Outlookban, a melléklet nevének manuális beírása a tárgysorba minden alkalommal időigényes lesz. Az alábbi gif-en látható módon, ha az e-mail tárgysorát a melléklet beszúrásakor automatikusan a melléklet nevével szeretné kitölteni, ebben az oktatóanyagban a VBA módszer segít.
Az e-mail tárgyának automatikus kitöltése a melléklet nevével VBA-kóddal
Kérjük, futtassa a következő VBA-kódot, hogy az e-mail tárgyát automatikusan kitöltse a beillesztett melléklet nevével az Outlook programban.
1. Indítsa el az Outlook programot, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson duplán Project1 (VbProject.OTM) > Microsoft Outlook objektumok > ThisOutlookSession megnyitni ThisOutlookSession (kód) szerkesztő.
3. Ezután másolja be a következő VBA-kódot a ThisOutlookSession (kód) szerkesztő.
VBA-kód: Az e-mail tárgyának automatikus kitöltése a melléklet nevével
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
4. Most el kell mentenie a kódot, és újra kell indítania az Outlookot.
5. Ezentúl, ha olyan e-mailben csatolt mellékletet, amelynek tárgya még nincs kitöltve, a Kutools az Outlook számára párbeszédpanel jelenik meg, amely megkérdezi, hogy a melléklet nevét kívánja-e tárgyként használni, kattintson a gombra Igen gombot.
Ezután a tárgysor automatikusan megjelenik a beillesztett melléklet nevével.
Megjegyzések:
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.