Note: The other languages of the website are Google-translated. Back to English

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:

1) Ha már kitöltötte a tárgyat, a melléklet beszúrása nem ugrik fel a párbeszédpanelen.
2) Ha eltávolít egy meglévő tárgyat az aktuális e-mailből, de a kurzor továbbra is megjelenik a tárgysorban, a melléklet beszúrása sem hozza elő a párbeszédpanelt. A tárgy eltávolítása után kattintson a tárgysorra az üzenetmező frissítéséhez, hogy a kód működjön.
3) Ha egyszerre több mellékletet is beszúr, csak az első melléklet neve használható az e-mail tárgyaként.

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.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (7)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с разделение? Может в данном коде дописать или вообще другой существует? Заранее спасибо
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Александр!

Úgy érted, hogy több mellékletet ad hozzá, miközben ezeket a mellékletneveket egyszerre adja hozzá a tárgyhoz, majd összekapcsolja őket az ÉS-szel?
A weboldal moderátora ezt a megjegyzést minimalizálta
Igen. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
A weboldal moderátora ezt a megjegyzést minimalizálta
Igen, nem. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
A weboldal moderátora ezt a megjegyzést minimalizálta
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Александр!

A következő VBA-kód segíthet a probléma megoldásában. Kérjük, próbálja ki.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Még senki sem írt megjegyzést

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi