enviar mensajes con outlook

Williams L?
21 de Diciembre del 2003
Tengo el siguiente codigo:

Public Sub EnviarCorreo()
Dim objoutlook As Object
Dim objMailItem
Set objoutlook = CreateObject("outlook.application")
Set objMailItem = objoutlook.CreateItem(olMailItem)
objMailItem.Recipients.Add "[email protected]"
objMailItem.Body = "Enviando e-mail desde Código"
objMailItem.Subject = "PRUEBA DE AUTOMATIZACION"
objMailItem.Send
Set objoutlook = Nothing
End Sub

Private Sub Command1_Click()
EnviarCorreo
End Sub

El problema que tengo es que el mismo envia un mensaje pero en blanco, sin nada de texto la parte donde hace mención al Body no funciona que debo hacer. Esta hecho en VB5 conectandome con
Outlook 2000 gracias.

chusperman
21 de Diciembre del 2003
no estoy seguro pero la opcion messagetext te puede dar resultado de todas formas te aconsejo ke uses el smtp.ocx

David
21 de Diciembre del 2003
Prueba con esto:
Option Explicit
Dim ObjOutlook as new outlook.application
Dim ObjMail as MailItem

Private Sub Command1_Click()
Set ObjMail=ObjOutlook.CreateItem(olMailItem)
With ObjMail
.To = "[email protected]" 'El destinatario
.Subject = "Aqui el Asunto" 'El asunto del mensaje
.Body = "Aqui el Cuerpo" 'El Cuerpo del mensaje
.Importance = olImportanceHigh 'La importancia
.Attachments.Add "c:1.txt" 'Archivos adjuntos
.Send
End With
Set ObjMail = Nothing
Msgbox "Se ha enviado correctamente el mail"
End
End Sub