HELP!
Could you pls tell me how i can send a msg with
several attachments? i've tried but i get an error msg
sending the second file.

This is my code:

Set objMapi = CreateObject("MAPI.Session")
If Not objMapi Is Nothing Then
objMapi.Logon profilename:=sProfile
End If

Set objMsg = objMapi.Inbox.Messages.Add
objMsg.Subject = sSubject
objMsg.Text = sMsg

'Sending files
If Not IsMissing(sFiles) Then
sFile = Split(sFiles, ";")
For i = LBound(sFile) To UBound(sFile)
Set objAttach = objMsg.Attachments.Add
With objAttach
'THIS IS WHERE I GET THE ERROR WHEN IT HAD'S THE SECOND FILE: (i=2)
.Source = sFile(i)
.Type = mapiFileData
.ReadFromFile sFile(i)
End With
Next i
End If


If you have any clue why this happens pls
reply.
thank you!