VB betiği e-posta eklerini kaydetmek için, ancak yalnızca bir e-postada birden fazla varsa

Aşağıdakine benzer bir kod kullanıyorum ve onu 'bir komut dosyası çalıştır' e-posta kuralları içinde etkinleştirerek ve belirli e-postalar gelirken ekleri kaydetmek için iyi çalışıyor. ve sonuncusu üzerine iniyor. Kod içinde yalnızca "x" ekini kaydetmesini söyleyebileceğim bir yol var mı, yani. sadece ilk ek mi, yoksa sadece dördüncü ek, vb.

* Belirli e-postalardaki ekleri işlemek istiyorsanız, kullandığım budur. Outlook 2013'te benim için mükemmel çalışıyor:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\temp"
     For Each objAtt In itm.Attachments
          objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
          Set objAtt = Nothing
     Next
End Sub

Kuralın son kısmı, bir komut dosyası çalıştırmasıdır. Resim açıklamasını buraya girin Outlook VBA'yı bilmeyen diğer kişiler için Geliştirici Şeridini açmanız gerekir. Resim tanımlamasını buraya girin Yukarıdaki kodu yapıştırın, VBA'yı kaydedin, sonra kuralınıza bakın. resim açıklaması buraya girin

2: 15'te 17: 12'de yanıtladı *

— user764995
kaynak

(1) Başka birinin kodunu gönderiyorsanız, kaynağa hem ada hem de bağlantıya göre kredi vermelisiniz. (2) Bir şey denedin mi? (Eğer öyleyse, ne?) VBA'yı kullanmak istiyorsanız ve mevcut kodda küçük değişiklikler yapmak istiyorsanız, dil hakkında biraz bilgi edinmeye çalışmalısınız.

— Scott,

@Scott, üzgünüm Bu forumda yeni ve ayrıca VBA'da yeniyim .... ama öğrenmeye çalışıyorum ve bu yüzden bir soru soruyorum. Bu noktaya hiçbir şey denemedim bc nereden başlayacağımdan emin değilim.

— user764995