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

Outlook'ta e-posta konusunu ek adıyla otomatik olarak nasıl doldurabilirim?

Outlook'ta bir e-postanın konusu olarak ek adını kullanmaya alışmış olanlar için, ek adını her seferinde konu satırına manuel olarak yazmak zaman alıcı olacaktır. Aşağıdaki gif'te gösterildiği gibi, bir ek eklediğinizde e-posta konu satırını ek adıyla otomatik olarak doldurmak istiyorsanız, bu eğitimdeki VBA yöntemi yardımcı olacaktır.


E-posta konusunu VBA koduyla ek adıyla otomatik olarak doldurun

E-posta konusunu Outlook'ta eklenen ekin adıyla otomatik olarak doldurmak için lütfen aşağıdaki VBA kodunu çalıştırın.

1. Outlook'unuzu başlatın, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Proje1 (VbProject.OTM) > Microsoft Outlook Nesneleri > Bu OutlookOturumu açmak için ThisOutlookSession (Kod) editörü.

3. Ardından aşağıdaki VBA kodunu kopyalayın. ThisOutlookSession (Kod) editörü.

VBA kodu: E-posta konusunu ek adıyla otomatik olarak doldurun

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. Şimdi kodu kaydetmeniz ve Outlook'u yeniden başlatmanız gerekiyor.

5. Şu andan itibaren, konusu henüz doldurulmamış bir e-postaya ek eklediğinizde, Outlook için Kutools Ek adını konu olarak kullanmak isteyip istemediğinizi soran bir iletişim kutusu açılacaktır, Evet düğmesine basın.

Ardından konu satırı, eklenen ekin adıyla otomatik olarak doldurulacaktır.

notlar:

1) Konuyu zaten doldurduysanız, ek eklediğinizde iletişim kutusu açılmaz.
2) Mevcut bir konuyu mevcut e-postadan kaldırırsanız ancak imleç konu satırında hala görüntüleniyorsa, bir ek eklemek de iletişim kutusunu açmaz. Konuyu kaldırdıktan sonra, kodun çalışması için mesaj kutusunu yenilemek için konu satırından uzağa tıklamanız gerekir.
3) Aynı anda birden fazla ek eklerseniz, e-postanın konusu olarak yalnızca ilk ekin adı kullanılabilir.

Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (6)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler. 2 veya XNUMX'deki en iyi oyunlardan biri olan ve şu anda dünyanın dört bir yanından gelen en iyi oyunlardan birine sahip olmak için nasıl bir yol izleyeceğinizi öğrenin? Bugünün en iyi gününe ne kadar hakimsin veya ne kadar başarılı olabilirsin? Заранее спасибо
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Александр,

Bu ek adlarını aynı anda konuya eklerken ve ardından bunları AND ile ilişkilendirirken birden fazla ek eklemekten mi bahsediyorsunuz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Bu yorum sitedeki moderatör tarafından en aza indirildi
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Александр,

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
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır