Birçok kullanıcı, Outlook'un e-postalarda farklı alıcılar için farklı imzaları otomatik olarak seçebileceğini umuyor. Böylece, bu makale VBA aracılığıyla nasıl gerçekleştirileceğini öğretecektir.
Varsayılan olarak, Outlook yalnızca değişen imzaları yeni e-postalara, yanıtlara ve iletmelere otomatik olarak eklemenize izin verir. Ancak birçok kişi, Outlook'un değişen alıcılar için farklı imzaları otomatik olarak seçebileceğini bile umuyor. Ne yazık ki, Outlook böyle doğrudan bir özellik sağlamıyor. Bu nedenle, herhangi bir üçüncü taraf eklentisi veya VBA kodu gibi başka yollar aramanız gerekir. Şimdi, aşağıda, bir esinti gibi gerçekleştirmenize yardımcı olabilecek bir VBA kodunu size açıklayacağız.
Farklı Alıcılar İçin Farklı İmzaları Otomatik Olarak Seçin
- Öncelikle Outlook programınızı başlatmanız gerekiyor.
- O zaman otomatik imza ekleme özelliğini devre dışı bıraksanız iyi olur.
- Öncelikle “Dosya” menüsüne gidin ve “Seçenekler”i seçin.
- “Outlook Seçenekleri” penceresinde “Posta” sekmesine geçin.
- Ardından “İmzalar” düğmesini bulun ve tıklayın.
- Ardından, açılır iletişim kutusunda, hem "Yeni Mesajlar" hem de "Yanıtlar/İletmeler"de "(yok)" ayarını yapın.
- Bundan sonra, değişiklikleri kaydetmek için bir dizi "Tamam" ı tıklayın.
- Bundan sonra, Outlook ana penceresine geri dönebilir ve “Alt + F11” tuşlarına basabilirsiniz.
- Ardından, "Uygulamalar için Microsoft Visual Basic" penceresinde "ThisOutlookSession" projesini bulun ve açın.
- Ardından, aşağıdaki VBA kodunu kopyalayıp bu projeye yapıştı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
- Bundan sonra, bu kodu imzalamanız gerekir.
- Daha sonra imzalı makrolara izin vermek için Outlook makro ayarlarınızı değiştirin.
- Bundan sonra, bir e-posta göndermek için "Gönder" düğmesini her tıkladığınızda, Outlook alıcıyı tanımlayacak ve ilgili imzayı e-posta gövdesinin sonuna otomatik olarak ekleyecektir.
Gelen E-postalarda Gizli Kötü Amaçlı Makrolara Dikkat Edin
Günümüzde virüsler çok olgun ve güçlü hale geldi. Bunları her zaman e-postada zararsız şeyler olarak gizlerler. Bu nedenle, artık Outlook'ta makro kullanmayı planladığınıza göre, kötü amaçlı makrolara karşı uyanıklığınızı artırmalısınız. Aksi takdirde, PST verileriniz risk altında tutulacaktır. PST bozulursa, bunu yapmak için elinizden gelenin en iyisini yapacaksınız. PST'yi kurtar veri. Bu durumda, güçlü bir aracın uygulanması önerilir, örneğin DataNumen Outlook Repair.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql düzeltmesi ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com