Le o Tópico a baixo, talvez ajude:
http://maximoaccess.forumeiros.com/t3464-resolvidoemail-via-cdo-e-outlook-express-gravacao-e-anexos
ou então:
Abra um novo projeto no Visual Basic.
No menu Ferramentas, escolha referências e selecione a biblioteca Microsoft CDO 1.21.
Adicione um objeto CommandButton ao formulário padrão. Aceite o nome padrão, Command1.
Copie o código a seguir na seção General Declarations do formulário padrão.
Option Explicit
Private Sub Command1_Click()
Dim objSession As Object
Dim objMessage As Object
Dim objRecipient As Object
'Create the Session Object.
Set objSession = CreateObject("mapi.session")
'Logon using the session object.
'Specify a valid profile name if you want to.
'Avoid the logon dialog box.
objSession.Logon profileName:="MS Exchange Settings"
'Add a new message object to the OutBox.
Set objMessage = objSession.Outbox.Messages.Add
'Set the properties of the message object.
objMessage.subject = "This is a test."
objMessage.Text = "This is the message text."
'Add a recipient object to the objMessage.Recipients collection.
Set objRecipient = objMessage.Recipients.Add
'Set the properties of the recipient object.
objRecipient.Name = "John Doe" '<---Replace this with a valid
'display name or e-mail alias
'Type can be ActMsgTo, mapiTo, or CdoTo for different CDO versions;
'they all have a constant value of 1.
objRecipient.Type = mapiTo
objRecipient.Resolve
'Send the message.
objMessage.Send showDialog:=False
MsgBox "Message sent successfully!"
'Logoff using the session object.
objSession.Logoff
End Sub
Execute o projeto. Clique em Command1. Você enviou o email Visual Basic.