tengo esto y para 2 destinatarios si me funciona pero que hago si son para 3 pues les agrego
strBcc="[email protected]"
pero no me funciona ( solo le llega al de strTo="[email protected]") alguien me puede ayudar
gracias
---------------------------------------------------------------------------
el codigo de abajo si funciona pero solo para 2
---------------------------------------------------------------------------
<%
Else
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance
strFrom=request.form("textEMail")
select case request.form("selectProducto")
case 1:
strTo="[email protected]"
strCC="[email protected]"
case 2:
strTo="[email protected]"
strCC="[email protected]"
case 3:
strTo="[email protected]"
strCC="[email protected]"
case else:
strTo="[email protected]"
end select
strSubject="Comentario de " & request.form("textNombre") & " " & request.form("textApellido") & "/" & request.form("textEmpresa")
strBody=" El siguiente mensaje fue enviado por:" & vbCrLf & vbCrLf
strBody=strBody & "Nombre: " & request.form("textNombre") & " " & request.form("textApellido") & vbCrLf
strBody=strBody & "Email: " & request.form("textEMail") & vbCrLf
strBody=strBody & "Empresa: " & request.form("textEmpresa") & vbCrLf
strBody=strBody & "Ciudad: " & request.form("textCiudad") & vbCrLf
strBody=strBody & "Pais: " & request.form("textPais") & vbCrLf & vbCrLf
strBody=strBody & "Comentario: " & request.form("textComentario")
lngImportance = 2 '2: high, 1: normal, 0: low
Set myCDONTSMail=CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
Set myCDONTSMail=Nothing
%>
