Enviar email con Adjuntos utilizando CDO

Un código bastante sencillo (y gratis) cortesía de Pepe Llopis, extraido de los newsgroup de microsoft:

Necesitas un XP profesional o superior (2000, 2003, etc) y tener configurado el servicio SMTP

    iMsg = CreateObject("CDO.Message")
    iMsg.From   = ALLTRIM(Thisform.txtEmail.Value)
    iMsg.Subject  = ALLTRIM(Thisform.txtAsunto.Value)
    iMsg.To   = ALLTRIM(lcMailAddress)
    IF !EMPTY(Thisform.txtAdjunto1.Value)
          iMsg.AddAttachment(ALLTRIM(Thisform.txtAdjunto1.Value))
    ENDIF
    WaitWCtr("Dando formato al mensaje ....",.T.)
    lcMessage = ALLTRIM(Thisform.txtPlantilla.Value)
    lcMessage = "file://"+FULLPATH(ALLTRIM(lcMessage))
    iMsg.CreateMHTMLBody( lcMessage,0)
    WaitWCtr("Enviando mensaje....",.T.)
    iMsg.Send
    RELEASE iMsg

Espero les sea de utilidad.


-----------------------------------
Espartaco Palma Martínez