objNewMail não ofuscante, objNewMail1
Ajustar o objCDOMail = o Server.CreateObject (“CDONTS.NewMail”)
objCDOMail.To = “[email protected]”
objCDOMail.From = “[email protected]”
txtBody = “alguém contatou-o de seu local” & VbCrLf & VbCrLf & “nome: ” & nome & VbCrLf & VbCrLf & “telefone: ” & telefone & VbCrLf & VbCrLf & “email: ” & email & descrição de VbCrLf & de VbCrLf & “de caso: ” & descrip
objCDOMail.Subject = “alguém contatou-o de seu Web site”
objCDOMail.Body = txtBody
objCDOMail.Send
Ajustar o objCDOMail = nada
Se "" <> do email então
Ajustar objCDOMail1 = Server.CreateObject (“CDONTS.NewMail”)
objCDOMail1.To = email
objCDOMail1.From = “[email protected]”
txtBody = “esta é uma resposta automatizada. Por favor não responder ........ recebeu sua mensagem. Obrigado dizendo nos sobre seu caso. Nós tentaremos contatá-lo using a informação que você forneceu. Você pode igualmente alcangar-nos no espaço em branco 1-888 durante horas de negócio normais ou você pode deixar uma mensagem depois que as horas de negócio” & VbCrLf & VbCrLf & VbCrLf & VbCrLf & “você submeteram a seguinte informação: ” & VbCrLf & VbCrLf & “nome: ” & nome & VbCrLf & VbCrLf & “telefone: ” & telefone & VbCrLf & VbCrLf & “email: ” & email & descrição de VbCrLf & de VbCrLf & “de caso: ” & descrip
objCDOMail1.Subject = “sua submissão foi recebido”
objCDOMail1.Body = txtBody
objCDOMail1.Send
Ajustar objCDOMail1 = nada
Terminar se
|