dide respondió:
A ver si te sirve este Sub Envia_Mail(HTMLAviso, origen, destino, asunto) Dim iMsg Set iMsg = CreateObject("CDO.Message") Dim iConf Set iConf = CreateObject("CDO.Configuration") Dim Flds Set Flds = iConf.Fields ' The full field name strings are used...