enviando datos via mail

Tienes que añadir la referencia Microsoft Outlook 9.0 Object Libary y poner esto:

'Objetos de Outlook
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim myNamespace As Outlook.NameSpace
Dim myAttachments As Outlook.Attachments
Dim myAttachment As Outlook.Attachment
Dim myFolder As Outlook.MAPIFolder
Dim myFont As Font


Set myOlApp = CreateObject("Outlook.Application") 'Inicializa la Aplic. Outlook
Set myItem = myOlApp.CreateItem(Outlook.OlItemType.olMailItem) 'Inicializa objeto Mail
Set myNamespace = GetNamespace("MAPI") 'Inicializa nombre del espacio a usar

myItem.Subject = "SUJETO DEL MENSAJE "
myItem.To = "correo@ejemplo.com"
myItem.Body = "Cuerpo del mensaje "

Si quieres abrir el mensaje con Outlook antes de enviarlo:
myItem.Display
Si no:
myItem.Send
myOlApp.Quit

Al final libera los recursos utilizados:
Set myItem = Nothing
Set myAttachment = Nothing
Set myNamespace = Nothing
Set myOlApp = Nothing

Espero que te sirva....