tabi o da olabilir, hem yer tasarrufu açısından önemli bir yöntem, teşekkür ederim, yalnız ben şöyle bir makro buldum yabancı bir siteden, işimi de gördü hallettim istediğim oldu, çok teşekkür ederim emeği geçenlere.
önce outlook'ta 'kural oluşturucu' dan ilgili ayarları yaptım (x adlı kişiden y konulu bir ileti gelirse ilgili makroyu (aşağıda) çalıştır) sonra bu makroyu o ayarların şartına bağladım ve sonuç çok iyi, ilgilenenler kullansın.
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\pc\Desktop"
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".xlsx") Then
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
End If
Set objAtt = Nothing
Next
End Sub
Son Düzenleme: 26/05/2022, 15:51, Düzenleyen: tarkanaykın.