Problema con el envio de emails

[ddlm]

Hola a todos... Mi problema es el siguiente... he de programar un sistema de avisos por email a los clientes utilizando ASP. Yo siempre lo he hecho con el ASPEmail q funciona muy bien. Pero donde estoy ahora no quieren poner ese componente en el servidor. Dicen que con el MAPI se puede hacer y me han dado la funcion en un codigo.... pero mi problema es que no consigo que me funcione... a continuacion os pongo el codigo que me han pasado a ver si sabeis por donde pillarlo para que funcione... muchisimas gracias.

++++++++++++++++CODIGO+++++++++++++++

Public Sub SendMailPlus(Mostrar As Boolean, PerfilID As String, PerfilPassword As String, Destinatario As String, Optional Asunto As String, Optional Mensaje As String, Optional ArchivoAdjunto As String)

On Error GoTo CtrlErrores



With frminicio.MAPISession1

.UserName = PerfilID

.Password = PerfilPassword

.NewSession = True

.DownLoadMail = False ' o false si no deseas recibir

.SignOn

End With



With frminicio.MAPIMessages1

.SessionID = frminicio.MAPISession1.SessionID

.MsgIndex = -1 ' nuevo mensaje

.Compose

If Trim$(Destinatario) <> "" Then .RecipDisplayName = Destinatario

' .RecipAddress = Destinatario

If Trim$(Asunto) <> "" Then .MsgSubject = Asunto

If Trim$(Mensaje) <> "" Then .MsgNoteText = Mensaje



If ArchivoAdjunto <> "" Then

.AttachmentIndex = 0

.AttachmentPathName = ArchivoAdjunto

.AttachmentPosition = 0

.AttachmentType = 0

End If

' If Trim$(Destinatario) = "" Then .Show

.Send Mostrar

End With



' Cuando ya no tengas que enviar ningun mail más:

frminicio.MAPISession1.SignOff



Fin:

Screen.MousePointer = 0

DoEvents

Exit Sub



CtrlErrores:

Screen.MousePointer = 0

DoEvents

Select Case Err.Number

Case "32050" 'La sesion ya existe. La cerramos y empezamos de nuevo

frminicio.MAPISession1.SignOff

SendMailPlus Mostrar, PerfilID, PerfilPassword, Destinatario, Asunto, Mensaje, ArchivoAdjunto

Case "32001" 'Cancelado por el usuario

frminicio.MAPISession1.SignOff

Case Else

MsgBox "Error : " & Err.Number & vbCr & Err.Description & vbCr & "...al intentar generar el emailc...", vbCritical, "Envio de email"

End Select



Resume Fin

Resume