A ver si entendí bien: creo el objeto con FSO para que me abra el archivo donde tengo las direcciones y con un split para que me marque el final de cada mail entre comas, pero no entiendo como incorporar el mail en todo esto para que despues me haga un loop de la siguiente direccion hasta finalizar la lista.
lo que tengo es esto :
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
.To = "MI WEB<
[email protected]>"
.From = "MI WEB<
[email protected]>"
.Subject = "Newsletter 5"
.HTMLBody = strHTML
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Response.Redirect "http://www.miweb.com/ok.htm"