Outlook'ta E-posta Konu Satırını Ek Adıyla Otomatik Olarak Doldurma

Ek adını Outlook'ta e-posta konusu olarak sık sık kullanıyor musunuz? Öyleyse, Outlook'un otomatik olarak tamamlayabileceğini ummalısınız. Bu makale, Outlook VBA ile gerçekleştirilmesi için kullanışlı bir yöntem sunacaktır.

Birçok kullanıcı, e-posta konu satırına ek dosya adını manuel olarak yazmaya alışkındır. Böyle bir durumda, Outlook bunu otomatik olarak yapabilirse çok daha kullanışlı olacaktır. Ayrıca, bazı kullanıcılar konu satırını doldurmayı sık sık unutur. Bu nedenle, "Gönder" düğmesine bastıklarında "konu yok" uyarı mesajı alırlar. Bu durumda, Outlook konu satırını ek dosya adıyla otomatik olarak doldurabilirse, can sıkıcı "konu yok" uyarısından kaçınabilirler. Kısacası, birçok Outlook kullanıcısının Outlook'un e-posta konu satırını ek dosya adıyla otomatik olarak doldurmasını sağlayacak bir yöntemi özlediğine inanılıyor. Neyse ki, Outlook VBA yardımıyla bunu son derece kolay bir şekilde başarabiliriz. İşte ayrıntılı VBA kodları ve adımları.

E-posta Konu Satırını Ek Adıyla Otomatik Doldur

1. Öncelikle Outlook'u başlatıp "Geliştirici" sekmesine geçebilirsiniz.
2. Daha sonra bu sekmenin altında, VBA düzenleyicisini getirecek olan “Visual Basic' düğmesine tıklamalısınız.
3. Bir sonraki pencerede, öncelikle sağ taraftaki proje listesinde “ThisOutlookSession” projesini bulmanız gerekir.
4. Sonraki bu projeyi açmak için çift tıklayın. Ardından aşağıdaki kodları içine kopyalayın.

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

5. Bundan sonra, mevcut VBA projesine normal şekilde bir dijital sertifika atamaya devam etmeniz gerekir.

• İlk olarak, bir dijital sertifika oluşturmak için yerleşik "VBA Projeleri için Dijital Sertifikalar" yardımcı programını kullanın.
• Ardından, mevcut makroyu imzalayabilirsiniz.

6. Daha sonra VBA düzenleyicisinden çıkın ve makro ayarlarını "Dijital olarak imzalanmış makrolar için bildirimler, diğer tüm makrolar devre dışı" olarak değiştirin.
7. Sonunda bir deneyebilirsin.

• Yeni bir e-posta oluşturun.
• Konuyu doldurmadıysanız ve bir dosya eklemek niyetindeyseniz, aşağıdaki görüntüye benzer bir mesaj alacaksınız:
• “Evet” seçeneğini seçtiğinizde, konu ek adı ile hemen doldurulacaktır.

Sık Karşılaşılan Outlook Sorunlarıyla Başa Çıkın

Outlook'u onlarca yıldır kullandığınıza göre, pek çok Outlook sorunuyla karşılaşmış olmalısınız. O halde, onlarla tanışırken genellikle hangi işlemleri yaparsınız? Bunların bir an önce tespit edilmesi ve ortadan kaldırılması önerilir. Bunun nedeni, biriken sorunların Outlook verilerinize her an zarar verebilmesidir. Bu nedenle, Outlook normal şekilde çalışsa bile, gelen kutusu onarım aracını veya harici Outlook PST hata onarım programı, sevmek DataNumen Outlook Repair, hataları algılamak ve çözmek için PST dosyalarınızı taramak için.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım hasarlı SQL Server veritabanı ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com