 <p>Add this to dims</p> <pre><code>Dim SndrName As String </code></pre> <p>then this <code>SndrName = objItem.SenderName &amp; "_"</code> next to </p> <pre><code> For Each objItem In selItems lCountEachItem = objItem.Attachments.Count SndrName = objItem.SenderName &amp; "_" ' &lt;--- Add this </code></pre> <p>and change the saveas</p> <pre><code> ' Get the full saving path of the current attachment. strAtmtPath = strFolderPath &amp; SndrName &amp; atmt.FileName ' </code></pre>