Ekleri yalnızca Outlook'taki belirli kriterlere göre otomatik olarak nasıl iletebilirim?
Normalde, bir e-postayı iletirken, orijinal mesaj gövdesi ve ekleri de dahil edilir. Ancak bazen, kriterlere göre orijinal mesaj olmadan yalnızca ekleri belirli bir kişiye iletmeniz gerekir. Outlook'ta bu işi nasıl çözebilirsiniz?
VBA kodu ile otomatik olarak bir kişiye belirli kriterlere göre ekleri iletin
VBA kodu ile otomatik olarak bir kişiye belirli kriterlere göre ekleri iletin
Örneğin, konunun “kto özelliği” metnini içeren bir e-posta alırken, bu e-postanın tüm ekleri, mesaj gövdesi olmadan otomatik olarak belirli kişiye iletilecektir. Aşağıdaki adımlar size yardımcı olabilir, lütfen şunu yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.
VBA kodu: E-postayı ileti gövdesi olmadan otomatik iletin, ancak yalnızca ekleri dahil edin:
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xForwardMail As Outlook.MailItem
Dim xEmail As MailItem
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xEmail = Item
If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub 'change subject text to your need
If xEmail.Attachments.Count = 0 Then Exit Sub
Set xForwardMail = xEmail.Forward
With xForwardMail
.HTMLBody = ""
With .Recipients
.Add "" 'change address to your own
.ResolveAll
End With
.Send
End With
End Sub
not: Yukarıdaki kodda konu metnini ve alıcı adresini kendi başınıza değiştirmelisiniz.
3. Ardından kodu kaydedin ve kod etkisini almak için Outlook'u yeniden başlatın.
4. Şu andan itibaren, yeni bir e-postanın belirli konu metnini içerdiği her seferinde posta kutunuza geldiğinde, Outlook eklerini ileti gövdesi olmadan istenen kişiye otomatik olarak iletecektir.
not: Bu kod yalnızca varsayılan hesapta kullanılabilir.
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.
