Buskapina
12 de Septiembre del 2003

Dim ToAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment

Dim ol, ns, newMail

ToAddress = "[email protected]"
MessageSubject = "Don't be cruel"
MessageBody = "Tutti Frutti"
MessageAttachment = "C:Lolo.txt"

' connect to Outlook
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")

Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf

' validate the recipient, just in case...
Set myRecipient = ns.CreateRecipient(ToAddress)
myRecipient.Resolve
If Not myRecipient.Resolved Then
MsgBox "Unknown recipient"
Else
newMail.Recipents.Add(ToAddress)
newMail.Attachments.Add(MessageAttachment).Displayname = "Check this out"
newMail.Send
End If

Set ol = Nothing

__________________
Al ejekutarlo me dice un error de "automatizacion en Outlook.Aplication"

Grazias

Dark
12 de Septiembre del 2003

coloca la palabra reservada Application
por ejemplo
ns.application.CreateRecipient(ToAddress)