With OutMail
If Len(sFile) >0 Then .Attachments.Add sFile
End With