Outlook-da E-poçt Mövzu Sətirini Qoşma Adı ilə Avtomatik Doldurmaq necə

Outlook-da tez-tez qoşma adını e-poçt mövzusu kimi istifadə edirsiniz? Əgər belədirsə, Outlook-un onu avtomatik tamamlaya biləcəyinə ümid etməlisiniz. Bu məqalə Outlook VBA ilə həyata keçirmək üçün lazımlı bir üsul təqdim edəcəkdir.

Bir çox istifadəçi e-poçtun mövzu sətrində əlavə adını əl ilə yazmağa alışıb. Belə bir ssenaridə, Outlook bunu avtomatik olaraq yerinə yetirə bilsə, bu, daha rahat olacaq. Həmçinin, bəzi istifadəçilər tez-tez mövzu sətrini doldurmağı unudurlar. Beləliklə, "Göndər" düyməsini basdıqda, onlar "mövzu yoxdur" xəbərdarlıq mesajı alacaqlar. Belə bir halda, Outlook mövzunu avtomatik olaraq əlavə adı ilə doldura bilsə, onlar bezdirici "mövzu yoxdur" xəbərdarlığından yayınmaq imkanına malik olacaqlar. Bir sözlə, bir çox Outlook istifadəçisinin Outlook-un poçtun mövzu sətrini əlavə adı ilə avtomatik doldurmasına icazə vermək üçün belə bir üsula can atdığına inanılır. Xoşbəxtlikdən, Outlook VBA-nın köməyi ilə buna ən çox asanlıqla nail ola bilərik. Budur, ətraflı VBA kodları və addımları.

E-poçt Mövzu Sətirini Qoşma Adı ilə Avtomatik Doldurun

1. Əvvəlcə Outlook-u işə sala və "Geliştirici" sekmesine keçə bilərsiniz.
2. Sonra bu nişanın altında VBA redaktorunu çıxaracaq "Visual Basic" düyməsini sıxmalısınız.
3. Sonrakı pəncərədə əvvəlcə sağ tərəfdəki layihə siyahısında “ThisOutlookSession” layihəsini tapmalısınız.
4. Sonra bu layihəni açmaq üçün iki dəfə klikləyin. Və sonra aşağıdakı kodları ona 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, cari VBA layihəsinə rəqəmsal sertifikat təyin etməyə normal olaraq davam etməlisiniz.

• Birincisi, rəqəmsal sertifikat yaratmaq üçün quraşdırılmış “VBA Layihələri üçün Rəqəmsal Sertifikatlar” proqramından istifadə edin.
• Daha sonra cari makronu imzalaya bilərsiniz.

6. Daha sonra VBA redaktorundan çıxın və makro parametrlərini “Rəqəmsal imzalanmış makrolar üçün bildirişlər, bütün digər makrolar deaktiv edilib” olaraq dəyişdirin.
7. Nəhayət, bir cəhd edə bilərsiniz.

• Yeni bir e-poçt yaradın.
• Mövzunu doldurmamısınızsa və fayl əlavə etmək niyyətindəsinizsə, aşağıdakı şəkil kimi bir mesaj alacaqsınız:
• “Bəli” seçdiyiniz zaman mövzu dərhal qoşma adı ilə doldurulacaq.

Tez-tez Outlook Problemlərinin öhdəsindən gəlin

Əgər onilliklər ərzində Outlook-dan istifadə etmisinizsə, bir çox Outlook problemi ilə qarşılaşmısınız. Onda onlarla görüşərkən adətən hansı hərəkətləri edirsiniz? Onları mümkün qədər tez müəyyənləşdirmək və aradan qaldırmaq tövsiyə olunur. Çünki yığılan problemlər istənilən vaxt Outlook məlumatlarınızı zədələyə bilər. Beləliklə, Outlook normal işləyə bilsə belə, ya gələnlər qutusunun təmiri alətini, ya da xarici tətbiqi tətbiq etsəniz yaxşı olar Outlook PST xəta təmiri proqramıKimi DataNumen Outlook Repair, səhvləri aşkar etmək və həll etmək üçün PST fayllarınızı skan etmək.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş təmir SQL Server Verilənlər bazası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com