Problema con Servicio que envia correo

[arkdna]

debo hacer un servicio que envia un correo cada cierto tiempo,
para madar el correo estoy usando mapi
y para manejar el servicio uso el ntservice

Todo funciona bien cuando pruebo el ejecutable, pero cuando lo levanto como un servicio, no envia el correo, levanta sin presentar ningun problema, pero el correo nunk llega, mediante alertas me he dado cuenta que si entra al procedimiento de eviar el correo, pero por alguna razon el correo no llega,
no se si debo cambiar alguna propiedad o algo por el estilo, si alguien tiene informacion que me brinde se lo agraderia muchisimo!!

el codigo que utilizo para enviar el correo es:

Public Function envia(para As String, tema As String, _
texto As String) As Boolean
On Error GoTo ErrHandler
With MAPISession1
.DownLoadMail = False
.LogonUI = True
.SignOn
.NewSession = True
MAPIMessages1.SessionID = ServiceMain.MAPISession1.SessionID
End With
With MAPIMessages1
.Compose
.RecipAddress = para
.AddressResolveUI = False
'.ResolveName
.MsgSubject = tema
.MsgNoteText = texto
.Send False
End With
envia= True
ErrHandler:
End Function