Note: The other languages of the website are Google-translated. Back to English

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.

doc otomatik yönlendirme ekleri yalnızca 1

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.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 

 

Yorumları sıralama ölçütü
Yorumlar (1)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika, ancak birisi e-posta zincirine bir ek ile yanıt verirse, o eki de otomatik olarak iletecektir. Bundan kaçınmanın bir yolu var mı? teşekkürler
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır