Great job! Could you please tell me if i have a .msg file to upload by using
Set objI = ActiveSheet.OLEObjects.Add(Filename:=vFile(I), Link:=False, DisplayAsIcon:=True, IconFileName:="", IconIndex:=1, _ Iconlabel:=lcl_vIconLabel & Space(1) & Date & Space(1) & Time, Top:=114, Left:=541)
the problem is that after i save the file, the icon change to an envelope and the name also changes to whatever the uploaded file was named, and it doesn't save with the icon label that i prefer. Is there a way of solving this? Thanks!