Email With Attachments

I'm using this code to send a e-mail with attachment:

Dim oCdoMail
Set oCdoMail = Server.CreateObject("CDO.Message")
oCdoMail.From = strFromEmail
oCdoMail.To = strToEmail
oCdoMail.Subject = "Job Information"
oCdoMail.TextBody = "This is the email notification"
oCdoMail.AddAttachment strFileName
oCdoMail.Configuration.Fields.Item=2
oCdoMail.Configuration.Fields.Item=<My mail server IP>
oCdoMail.Send

This code scuccessfully send mail with attchment on my local. But when we uplaod this code to the web server this is forceing error. If i mark comment the folowing code
"oCdoMail.AddAttachment strFileName" this will work fine on the server, but i need to send e-mail with attachments. how it could be possible ?