Outlook'taki alıcılara göre imzayı otomatik olarak nasıl değiştirebilirim?
Varsayılan olarak Outlook, kullanıcıların farklı e-posta hesapları üzerinden e-posta gönderirken imzayı otomatik olarak değiştirmeleri için yerleşik bir işleve sahiptir. Ancak bunun ötesinde, burada size Outlook'taki Kime alanındaki farklı alıcılara göre imzayı otomatik olarak değiştirme yöntemini göstereceğim.
İmzayı alıcılara göre otomatik olarak VBA kodu ile değiştirin
İmzayı alıcılara göre otomatik olarak VBA kodu ile değiştirin
Outlook'ta e-posta gönderirken ilgili alıcılara farklı imzalar uygulamak için lütfen aşağıdaki adımları izleyin.
1. Öncelikle, Outlook'ta otomatik eklenen imza özelliğini devre dışı bırakmanız gerekir. lütfen tıklayın fileto > Opsiyonlar açmak için Outlook Seçenekleri pencere.
2. içinde Outlook Seçenekleri pencere, seç posta sol bölmede, ardından İmzalar düğmesi Mesaj oluştur Bölüm. Ekran görüntüsüne bakın:
3. içinde İmzalar ve Kırtasiye iletişim kutusuna gidin ve Varsayılan imzayı seçin bölümünde E-posta İmzası sekmesinde bir e-posta hesabı seçin E-posta hesabı açılır listeyi seçin ve ardından (Yok) itibaren Yeni mesajlar ve Cevaplar / iletiler açılır listeler. Tüm e-posta hesapları şu şekilde ayarlanana kadar bu adımları tekrarlayın. (Yok). Ardından, OK düğmesine basın.
not: Ayrıca gerekli imzalarınızı burada da oluşturabilirsiniz. İmzalar ve Kırtasiye iletişim kutusu.
4. Tıklayın OK düğmesi geri döndüğünde Outlook Seçenekleri pencere.
5. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
6. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu Sol bölmede Kod penceresini açın ve VBA kodunun altındaki kopyayı pencereye girin. Ekran görüntüsüne bakın:
VBA kodu: Outlook'taki alıcılara göre imzayı otomatik olarak değiştirin
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Else
xRcpAddress = xRecipient.AddressEntry.Address
End If
Select Case xRcpAddress
Case "Email Address 1"
xSignatureFile = xSignaturePath & "aaa.htm"
Exit For
Case "Email Address 2", "Email Address 3"
xSignatureFile = xSignaturePath & "bbb.htm"
Exit For
Case "Email Address 4"
xSignatureFile = xSignaturePath & "ccc.htm"
Exit For
End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With xDoc.Application.Selection.Find
.ClearFormatting
.Text = xFindStr
.Execute Forward:=True
End With
With xDoc.Application.Selection
.MoveLeft wdCharacter, 2
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
Else
With xDoc.Application.Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub
notlar:
- 1). VBA kodunda, lütfen "E-posta Adresi 1/2/3/4"Alıcıların belirli e-posta adresleriyle.
- 2). "aaa.htm""bbb.htm" ve "ccc.htm" ilgili alıcılara göndereceğiniz belirtilen imzalardır.
- 3). Bu durumda, imza "aaa","E-posta Adresi 1", İmza"bbb","E-posta Adresi 2"Ve"E-posta Adresi 3başlıklı bir kılavuz yayınladı, ve "E-posta Adresi 4"İmzalı e-postayı alacak"ccc”. Lütfen ihtiyaçlarınıza göre değiştirin.
- 4). Bir e-postada birden fazla alıcı varsa, kod yalnızca ilk alıcıyı dikkate alır. Bu durumda, diğer alıcılar e-postaları ilk alıcıyla aynı imzaya sahip olacaklardır.
7. Sonra tıklayın Tools > Referanslar gitmek için Referanslar-Proje iletişim kutusu. İletişim kutusunda, lütfen hem Microsoft Word Nesne Kitaplığı ve Microsoft Komut Dosyası Çalışma Zamanı seçenekleri ve ardından OK düğmesi, ekran görüntüsüne bakın:
8. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, bir e-posta oluşturup Gönder düğmesine bastıktan sonra, ilgili imza alıcının Kime alanındaki e-posta adresine bağlı olarak e-posta gövdesinin sonuna otomatik olarak eklenecektir.
Outlook'ta E-posta Gönderirken Geçerli Tarihi İmza Olarak Otomatik Olarak Ekle:
Outlook'unuzda yeni e-posta oluştururken / yanıtlarken / iletirken zaman damgasını e-posta gövdesine imza olarak eklemek isterseniz, Yeni oluştururken, yanıtlarken ve e-posta iletirken tarih imzası ekleyin seçeneği Outlook için Kutools ona ulaşmak için. Ekran görüntüsüne bakın:
Şimdi indirin ve deneyin (60 günlük ücretsiz iz)
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.