Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Rspina

aspmail, com copia para usuario??

Recommended Posts

Galerinha, duvida de iniciante...Como faço neste codigo abaixo para enviar uma copia do email ao usuario.Valeu!!!!<% Destino = "rafael.spina@uol.com.br"servidor = "smtp.dglnet.com.br"titulo = "Cartões de Natal 2004"'Retirar dados do formulárion1 = Request("inputNome")n2 = Request("inputCpf")n3 = Request("inputFonefis")n4 = Request("inputEndefis")n5 = Request("inputBairrfis")n6 = Request("inputCepfis")n7 = Request("inputCidafis")n8 = Request("inputEstafis")n9 = Request("inputEmaifis")n10 = Request("inputPagam")n11 = Request("inputEntreg")n12 = Request("inputMenssag")n13 = Request("inputC1")n14 = Request("inputC2")n15 = Request("inputC3")n16 = Request("inputC4")n17 = Request("inputC5")n18 = Request("inputC6")n19 = Request("inputC7")n20 = Request("inputC8")n21 = Request("inputC9")n22 = Request("inputC10")n23 = Request("inputC11")n24 = Request("inputC12")n25 = Request("inputQtd")n26 = Request("inputValor")'Criar objetoSet Mail = Server.CreateObject("Persits.MailSender")' Criar corpo da mensagemstrBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#006699'>" strBody = strBody & "Nome: "strBody = strBody & "<b>" & n1 & "</b><br><br>"strBody = strBody & "CPF: "strBody = strBody & "<b>" & n2 & "</b><br><br>"strBody = strBody & "Fone: "strBody = strBody & "<b>" & n3 & "</b><br><br>"strBody = strBody & "Endereço: "strBody = strBody & "<b>" & n4 & "</b><br><br>"strBody = strBody & "Bairro: "strBody = strBody & "<b>" & n5 & "</b><br><br>"strBody = strBody & "CEP: "strBody = strBody & "<b>" & n6 & "</b><br><br>"strBody = strBody & "Cidade: "strBody = strBody & "<b>" & n7 & "</b><br><br>"strBody = strBody & "Estado: "strBody = strBody & "<b>" & n8 & "</b><br><br>"strBody = strBody & "E-mails: "strBody = strBody & "<b>" & n9 & "</b><br><br>"strBody = strBody & "Forma de Pagamento: "strBody = strBody & "<b>" & n10 & "</b><br><br>"strBody = strBody & "Forma de Entrega: "strBody = strBody & "<b>" & n11 & "</b><br><br>"strBody = strBody & "Mensagem: "strBody = strBody & "<b>" & n12 & "</b><br><br>"strBody = strBody & "1) Fábio Cembranelli - Flores do Campo"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n13 & "</b><br><br>"strBody = strBody & "2) Christiane Grigoletto - Sem título"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n14 & "</b><br><br>"strBody = strBody & "3) Maurício Moraes - Lembranças da Terra"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n15 & "</b><br><br>"strBody = strBody & "4) Paula Pestana - Sem título"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n16 & "</b><br><br>"strBody = strBody & "5) Alice Vilhena - Sem título"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n17 & "</b><br><br>"strBody = strBody & "6) Mariana Maia - Sem título"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n18 & "</b><br><br>"strBody = strBody & "7) Edvaldo Catini - Sem título"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n19 & "</b><br><br>"strBody = strBody & "8) Sandro Corradin - O Vaso do Palhaço"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n20 & "</b><br><br>"strBody = strBody & "9) Oswaldo Ribeiro - Flautista com Pássaros"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n21 & "</b><br><br>"strBody = strBody & "10) Giselle Ulisse - Alegrias de Criança"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n22 & "</b><br><br>"strBody = strBody & "11) Élvio Santiago - Composição com Peixes ao Sol"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n23 & "</b><br><br>"strBody = strBody & "12) Marco Aurélio Namura - Linhas e Cores"strBody = strBody & "<br>""Quantidade: "strBody = strBody & "<b>" & n24 & "</b><br><br>"strBody = strBody & "Quantidade Total de Cartões: "strBody = strBody & "<b>" & n25 & "</b><br><br>"strBody = strBody & "Valor do Pedido: "strBody = strBody & "<b>"&"R$" & n26 & "</b><br><br>"strBody = strBody & "</font>" 'Propriedades do ASPMAILMail.Host = servidorMail.Port = 25 ' Valor opcional. 25 é a porta de erroMail.From = "rafael.spina@uol.com.br"Mail.FromName = email ' OpcionalMail.Subject = tituloMail.Body = strBodyMail.IsHTML = TrueMail.AddAddress DestinoMail.Send' Controlar erros do ASPMAILIf Err <> 0 Then Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.DescriptionElse Response.Redirect("enviado_sucesso.htm")End If'Destruir o aspmailSet Mail = Nothing%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.