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 "skyyang@addin88.com" '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.
Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!
- Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
- BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
- Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
- Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
- Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
