Guys--<BR><BR>I have the following routine i&#039;m using to send mail messages using CDO... However, when I pass multiple attachments to the routine only the very last one gets attached...<BR><BR>Can anyone please take a look and tell me what I&#039;m doing wrong...<BR><BR>Sub SendMail(fromName, fromEmail, toName, toEmail, ccEmail, bccEmail, Subject, Text, Attachment)<BR> Set objSession = Server.CreateObject("CDONTS.Session")<BR> objSession.LogonSMTP "", ""<BR><BR> Set objMessage = objSession.Outbox.Messages.Add<BR><BR> Set objRecipient = objMessage.Recipients.Add("", "", 1) <BR><BR> With objMessage<BR> .Subject = "attachment test"<BR> .Text = "Have a nice day."<BR> .Text = " " & objMessage.Text<BR> ary = Split(Attachment, ", ")<BR> For x = 0 To UBound(ary)<BR> Set objAttach = .Attachments.Add<BR> With objAttach<BR> .Type = 1<BR> .Name = ary(x)<BR> .ReadFromFile("C:AFTemp\" & vSessionId & "\" & ary(x))<BR> End With<BR> Next<BR> .Send<BR> End With<BR> <BR> objSession.Logoff<BR> Set objAttach = Nothing<BR> Set objNewMessage = Nothing<BR> Set objRecipient = Nothing<BR> Set objSession = Nothing<BR>End Sub<BR><BR>Thanks in advance..!