![]() ![]() I did a little amendment to handle the possibility of having more than 1 attachment with the same name (doubtless not the greatest piece of VB coding but it seems to work for me): FileName = WheretosaveFolder & “ ” & Atmt.FileName Dim MyFile As String Dim fileExt As Integer Dim newFileName As String Dim availableName As String availableName = “N” fileExt = 0 newFileName = FileName Do While availableName = “N” MyFile = Dir(newFileName) If MyFile “” Then fileExt = fileExt + 1 newFileName = FileName & “.” & fileExt Else availableName = “Y” End If Loop Atmt.SaveAsFile newFileName. Kutools for Outlook là mt b tr Outlook mnh m giúp gii phóng bn khi các thao tác tn thi gian mà phn ln ngi dùng Outlook phi thc hin hàng ngày Nó cha các nhóm công c tit kim thi gian ca bn Bn có th nhn c hng dn tính nng chi tit v Kutools for Outlook t ây. ![]() Other than that the script works great for what is was originally designed to do and makes it easy to implement for any beginner or novice user!! Already more than enough big-ups for this, but still felt the need to add my own. I have users that have hundreds of faxes that are attached to emails come in daily and it takes more time to have to re-download every attachment when they run your script rather than just the ones that are attached to emails that haven’t been read yet. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |