GRACIAS pero creo que utilizaste los dos crontroles:
MAPISession
MAPIMessages
Asi claro que funciona, pero a mi me lo piden de de esta forma
Dim objSession As Object
Dim objMessage As Object
Set objSession = CreateObject("MAPI.SESSION")
objSession.Logon "Your Profile Name", , False,False
Set objMessage = objSession.Inbox.Messages.Add
objMessage.Subject = "Assunto da mensagem"
objMessage.Text = "Texto da Mensagem"
objMessage.Attachments.Add "Anexo", , , "C:\webmundi.DOC"
'caminho do arquivo em anexo
objMessage.Recipients.Add "endereço do e-mail"
objMessage.Recipients.Resolve
objMessage.Send
mira este link
http://www.webmundi.com/vb/vbr.asp?offset=10&IdDica=64
No se que me hace falta
espero su respuesta..