setting attachment name using cdo.message

[MattJames]

I have setup a loop to add attachments to an automated email.

These attachments can vary due to many different options.

When the emails are received however the name of the attachments are all changed to numbers rather than the actual filename that was sent out.

	'## Add Attachments to message
	If strAttachment <> "" Then
		Dim iBp3
		Set iBp3 = iMsg.GetInterface("IBodyPart")
		
		Dim arrAttachments
		arrAttachments = Split(strAttachment,",")
		
		Dim Element
		
		If isArray(arrAttachments) Then		
			For Each Element in arrAttachments
				Set iBp3 = iMsg.AddAttachment(DocPath & Element)
			Next
		End If
	End If
	'#############################

While the attachments are received by the users I know that someone important will not read them as they don't have real names.

Could anyone help?

Thanks.


-------------------------------
Matt James