Bueno, no lo probé.. pero supongo que debería funcionar. Te marco los agregados y las modificaciones de tu código en bold:
Código:
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Contenido = filesys.OpenTextFile(Server.MapPath("archivodemails.txt"), 1, false)
Mails = Contenido.ReadAll
Set Contenido = Nothing
Set FSO = Nothing
Mails = Split(Mails, ",")
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
ip=CStr(Request.servervariables("remote_host"))
fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now())
Const cdoSendUsingPort = 2
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "200.111.1.100"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
strHTML = "<p align=center>----- NewsLetter 5-----</p>"
strHTML = strHTML & "<p align=center><br>"
strHTML = strHTML & "<p align=center> <br>"
strHTML = strHTML & "Nombre: " & Request.Form("textfield6")
strHTML = strHTML & "<br>"
strHTML = strHTML & "E-mail: " & Request.Form("textfield7")
strHTML = strHTML & "<br>"
strHTML = strHTML & "Fecha: " & fecha & " Ip: " & ip
strHTML = strHTML & "<p align=center><img src=http://www.miweb.com/banner2.JPG width=288 height=50></p>"
With iMsg
Set .Configuration = iConf
.From = "MI WEB<[email protected]>"
.Subject = "Newsletter 5"
.HTMLBody = strHTML
For i = 0 To UBound(Mails)
.To = Mails(i)
.Send
Next
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Response.Redirect "http://www.miweb.com/ok.htm"
Avisá si funciona