fíjate, casi 10 horas que alguien tarda en responder. si hubieras buscado un poco en google, hubieras dado con esto en mucho menos tiempo:
Código:
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
' configure message here if necessary
With iMsg
.To = "[email protected]"
.From = "[email protected]"
.Newsgroups = "area.example.newsgroup1"
.Subject = "Agenda for staff meeting"
.TextBody = "See attached docs for more info."
.AddAttachment "http://server.example.com/picture.gif"
.AddAttachment "file://d:/temp/test.doc"
.AddAttachment "C:\files\another.doc"
' ..
End With
Que está sacado de esta página:
http://msdn.microsoft.com/library/de...ttachments.asp
Un saludo.