Outlook E-poçtlarınızda Fərqli Alıcılar üçün Fərqli İmzaları Avtomatik Seçmək necə

Bir çox istifadəçi ümid edir ki, Outlook e-poçtlarda müxtəlif alıcılar üçün müxtəlif imzaları avtomatik seçə bilər. Beləliklə, bu məqalə onu VBA vasitəsilə necə həyata keçirməyi öyrədəcək.

Varsayılan olaraq, Outlook yalnız yeni e-poçtlara, cavablara və göndərişlərə müxtəlif imzaları avtomatik daxil etməyə imkan verir. Bununla belə, bir çox insanlar Outlook-un müxtəlif alıcılar üçün müxtəlif imzaları avtomatik seçə biləcəyinə ümid edirlər. Təəssüf ki, Outlook belə birbaşa funksiyanı təmin etmir. Beləliklə, hər hansı üçüncü tərəf əlavələri və ya VBA kodu kimi başqa yollar axtarmalısınız. İndi, aşağıda, biz sizə VBA kodunun bir parçasını təqdim edəcəyik ki, bu da onu meh kimi həyata keçirməyə kömək edə bilər.

Fərqli Alıcılar üçün Fərqli İmzaları Avtomatik Seçin

1. Başlamaq üçün Outlook proqramınızı işə salmalısınız.
2. Sonra avtomatik daxiletmə imza xüsusiyyətini deaktiv etsəniz yaxşı olar.

• Əvvəlcə "Fayl" menyusuna gedin və "Seçimlər" seçin.
• "Outlook Seçimləri" pəncərəsində "Mail" sekmesine keçin.
• Sonra tapın və "İmzalar" düyməsini basın.
• Sonra açılan informasiya qutusunda həm “Yeni Mesajlar” və “Cavablar/İrəlilər” bölməsində “(yox)” seçin.
• Bundan sonra, dəyişiklikləri saxlamaq üçün bir sıra "OK" düyməsini basın.

3. Bundan sonra, Outlook əsas pəncərəsinə qayıda və "Alt + F11" düymələrini sıxa bilərsiniz.
4. Sonra, "Proqramlar üçün Microsoft Visual Basic" pəncərəsində "ThisOutlookSession" layihəsini tapın və açın.
5. Sonradan aşağıdakı VBA kodunu kopyalayıb bu layihəyə yapışdırın.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.recipient
    Dim strRecipientAddress As String
    Dim strSignatureFile As String
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim strSignature As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
    End If
 
    'Select different signature files based on recipients
    'You can change the conditions as per you actual needs
    If objRecipients.Count = 1 Then
       Set objRecipient = objRecipients.Item(1)
       strRecipientAddress = objRecipient.Address
       If strRecipientAddress = "mandy@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
       ElseIf strRecipientAddress = "anne@datanumen.com" Or strRecipientAddress = "tony@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm"
       ElseIf strRecipientAddress = "abby@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\New John Smith.htm"
       End If
    Else
       strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\John Smith.htm"
    End If
 
    'Read the specific signature file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
    strSignature = objTextStream.ReadAll
 
    'Insert the signature to this email
    objMail.HTMLBody = objMail.HTMLBody & "<HTML><BODY><br>" & strSignature & "</br></HTML></BODY>"
End Sub

6. Bundan sonra bu kodu imzalamalısınız.
7. Daha sonra imzalanmış makrolara icazə vermək üçün Outlook makro parametrlərinizi dəyişdirin.
8. Bundan sonra e-poçt göndərmək üçün hər dəfə “Göndər” düyməsini kliklədiyiniz zaman Outlook alıcını müəyyən edəcək və e-poçtun sonunda müvafiq imzanı avtomatik daxil edəcək.

Gələn E-poçtlarda Gizli Zərərli Makrolara diqqət yetirin

İndiki vaxtda viruslar çox yetkin və güclü olmuşdur. E-poçtda həmişə onları zərərsiz şeylər kimi gizlədirlər. Buna görə də, indi Outlook-da makrolardan istifadə etmək niyyətində olduğunuz üçün zərərli makrolara qarşı sayıqlığınızı artırmalısınız. Əks halda, PST məlumatlarınız risk altında qalacaq. PST xarab olarsa, əlinizdən gələni etməyə çalışacaqsınız PST bərpa edin data. Bu vəziyyətdə, məsələn, güclü bir vasitə tətbiq etmək tövsiyə olunur DataNumen Outlook Repair.

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 sql düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com