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:
Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!
- Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
- BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
- Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
- Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
- Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
