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

Hoe vul ik het e-mailonderwerp automatisch in met de naam van de bijlage in Outlook?

Voor degenen die gewend zijn om de bijlagenaam als onderwerp van een e-mail in Outlook te gebruiken, zal het tijdrovend zijn om de bijlagenaam elke keer handmatig in de onderwerpregel te typen. Zoals weergegeven in de onderstaande gif, als u de onderwerpregel van de e-mail automatisch wilt vullen met de naam van de bijlage wanneer u een bijlage invoegt, zal de VBA-methode in deze zelfstudie helpen.


Vul het e-mailonderwerp automatisch in met de bijlagenaam met VBA-code

Voer de volgende VBA-code uit om het e-mailonderwerp automatisch te vullen met de naam van de ingevoegde bijlage in Outlook.

1. Start uw Outlook, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik Project1 (VbProject.OTM) > Microsoft Outlook-objecten > DezeOutlookSessie om de te openen ThisOutlookSession (code) editor.

3. Kopieer vervolgens de volgende VBA-code naar de ThisOutlookSession (code) editor.

VBA-code: vul het e-mailonderwerp automatisch in met de bijlagenaam

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. Nu moet u de code opslaan en Outlook opnieuw starten.

5. Vanaf nu, wanneer u een bijlage invoegt in een e-mail die nog geen onderwerp heeft ingevuld, a Kutools for Outlook dialoogvenster verschijnt met de vraag of u de naam van de bijlage als onderwerp wilt gebruiken, klik op de Ja knop.

Vervolgens wordt de onderwerpregel automatisch gevuld met de naam van de ingevoegde bijlage.

Opmerkingen:

1) Als u het onderwerp al heeft ingevuld, zal het invoegen van een bijlage niet in het dialoogvenster verschijnen.
2) Als u een bestaand onderwerp uit de huidige e-mail verwijdert, maar de cursor wordt nog steeds weergegeven in de onderwerpregel, zal het invoegen van een bijlage ook niet het dialoogvenster openen. Nadat u het onderwerp hebt verwijderd, moet u weg klikken van de onderwerpregel om het berichtvenster te vernieuwen om de code te laten werken.
3) Als u meerdere bijlagen tegelijk invoegt, kan alleen de naam van de eerste bijlage als onderwerp van de e-mail worden gebruikt.

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Heb je vragen? Stel ze hier. (7)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Добрый день. Als u een apparaat gebruikt dat 2 of XNUMX jaar oud is, kunt u het beste van alles doen. Wilt u weten of u uw bestelling kunt plaatsen? Hoe werkt het?
Deze opmerking is gemaakt door de moderator op de site
Hallo Александр,

Bedoel je het toevoegen van meerdere bijlagen terwijl je die bijlagenamen tegelijkertijd toevoegt aan het onderwerp en ze vervolgens koppelt met AND?
Deze opmerking is gemaakt door de moderator op de site
Да. Schakel het apparaat uit en zorg ervoor dat het apparaat niet leeg is. Als je dat doet, moet je het weten.
Deze opmerking is gemaakt door de moderator op de site
Ja, ja. Als u meer informatie wilt ontvangen over het gebruik van een product dan
Deze opmerking is gemaakt door de moderator op de site
Добрый день. Als er 2 файлов op het apparaat staan ​​И.
Deze opmerking is gemaakt door de moderator op de site
Hallo Александр,

The following VBA code can help to solve your problem. Please give it a try.
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
Deze opmerking is gemaakt door de moderator op de site
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL