Ese error posiblemente lo de porque no tienes el outlook sino que tienes el Outlook express o viceversa ... prueba esto :
* AM_BareBones.PRG
* ----------------
*
*Create a MAPI Session object then Logon. The Logon dialog can be
*bypassed by providing a valid ProfileName as the first parameter
*(as a string) to the Logon Method.
objSession = CREATEOBJECT("mapi.session")
objSession.Logon("wesanto")
*Create a new message in the Outbox
objMessage = objSession.Outbox.Messages.Add
*Populate a few basic properties of the message
objMessage.Subject = "wenceslao"
objMessage.Text = "Texto del mensaje"
objMessage.Attachments.Add("impresos.rtf", 0, 1, "c:\impresos.rtf")
*Add a Recipient to the message we just created and resolve
objRecip = objMessage.Recipients.Add
*Alias of who you are sending to
objRecip.name = "
[email protected]"
objRecip.Resolve
*Send it
objMessage.Send
*Clean up then bail
objSession.Logoff
RELEASE objRecip, objMessage, objSession
*EOP: AM_BareBones.PRG
o bien esto otro
oleMMess=createobject("msmapi.mapimessages")
oleMSess=createobject("msmapi.mapisession")
oleMSess.signon
OleMMess.sessionid=OleMSess.sessionid
OleMMess.msgindex=-1
OleMMess.compose
set default to "C:\encripta"
OleMMess.Recipdisplayname="
[email protected]"
OleMMess.recipaddress=""
OleMMess.msgnotetext="Prueba de correo texto"
OleMMess.msgsubject="Comentario del corrreo"
OleMMess.attachmentindex=0
