'// 기존 코드 (이미지 태그가 있을 때만 Display)
If preData.bContainsImgTag Then
.display
End If

위 부분을

'// 수정 코드 (항상 Display하여 객체 초기화 보장)
.Display

이렇게 수정해보면 될 수도 있겠습니다

이미지나 첨부 파일은 full_path_name으로 입력하고,
중단점을 설정한 후에 아래 코드를 실행하면서 문제되는 부분을 확인해 보세요.

 For Each fileCell In attachFiles.SpecialCells(xlCellTypeVisible)
If VBA.Trim(fileCell) <> "" Then
If Dir(fileCell.Value) <> "" Then
'//.Attachments.Add FileCell.Value

'// if attached file position less than or equal to image end position(-> attached as image file)
If attachedPosition <= imageEnd Then
'//attach image, hide it: but some mail system display image file as attached
.Attachments.Add fileCell.Text, 1, 0
Else
'//attach file
.Attachments.Add fileCell.Text
End If

End If
End If
attachedPosition = attachedPosition + 1
Next fileCell

구버전 호환이 안되는 문제라면 개발자 사이트에 문의를 해 보시는 것이 더 좋을 듯 합니다.

​