AspMail CCO

AAAAAOOOOO · Março 4, 2010

Olá pessoal alguém poderia me ajudar a resolver este problema, estou querendo enviar um email de orçamento.

O cliente está querendo que isso chegue em outro email também.

Segue o codigo

For EnviaEmail = 1 to 1

Conteudo = "<html>" & vbcrlf

Conteudo = Conteudo & "<head>" & vbcrlf

Conteudo = Conteudo & "<META http-equiv=Content-Type content=""text/html; charset=ISO-8859-1"">" & vbcrlf

Conteudo = Conteudo & "<title>Criativa Brindes</title>" & vbcrlf

Conteudo = Conteudo & "</head>" & vbcrlf

Conteudo = Conteudo & "<body>" & vbcrlf

Conteudo = Conteudo & " </tr>" & vbcrlf

Conteudo = Conteudo & " </table>" & vbcrlf

Conteudo = Conteudo & "</body>" & vbcrlf

Conteudo = Conteudo & "</html>"

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "localhost"

Mail.From = "vendas@meusite.com.br"

Mail.FromName = "Criativa Brindes"

If EnviaEmail = 2 Then

Mail.AddAddress "vendas@criativabrindes.com.br"

Mail.Subject = "ORÇAMEMTO SITE"

Else

Mail.AddAddress emailde

Mail.Subject = "SEU ORÇAMENTO FOI EFETUADO COM SUCESSO"

End If

Mail.Body = Decodificar(Conteudo)

Mail.IsHTML = True

On Error Resume Next

Mail.Send

If Error <> 0 Then

ErroGerado = ErroGerado & "<p>Ocorreu o seguinte erro ao enviar sua compra: "& Err.Description &"</p>"

End If

Set Mail = Nothing

If EnviaEmail >= 3 Then Exit For

Erro = ErroGerado

Else

Session.Contents.Remove("Validador")

Session("Aviso") = "<p>ORÇAMENTO EFETUADO COM SUCESSO UM E-MAIL SERÁ ENVIADO PARA <font face=""verdana"" color=""#000000""><b>"& emailde &"</b></font> </p>"

Session("Finalizado") = "Sim"

'Response.Redirect "Pedidos.asp?P_Action="& Request("P_Action") &"&P_Produto="& Request("P_Produto") &"&P_Pagina="& Request("P_Pagina") &"&P_Order="& Request("P_Order") &"&P_CresDesc="& Request("P_CresDesc") &""

Response.Write "<script>window.location='Pedidos.asp'</script>"

Response.End()

End If

Se alguém tiver alguma solução serei muiito grato

=

Leandro_SM · Março 4, 2010

tenta assim

Mail.AddAddress "vendas@criativabrindes.com.br" 'e-mail principal

Mail.AddCC "vendas2@criativabrindes.com.br" 'copia do e-mail para outro endereço

Poste o resultado!

Abraço!

AAAAAOOOOO · Março 5, 2010

Então meu bom, Leandro

não chegou a copia chegou apenas Mail.AddAddress, já testei um monte de componentes mais ate agora não funfou

abraço

bareta · Março 5, 2010

Sub AddBcc(Address As String, Optional Name = "") 
Adds an email address to the message's BCC: (blind carbon copy) list. This method can be called multiple times per message. 
Sub AddCC(Address As String, Optional Name = "") 
Adds an email address and optionally the corresponding full name to the message's CC: (carbon copy) list. This method can be called multiple times per message.

Leandro_SM · Março 5, 2010

então parta para a apelação!

Apos enviar o 1º e-mail que esta funcioando, repita todo o codigo que faz o envio novamente trocando apenas o e-mail.

Ai não tem como dar erro!

Se ele enviou uma vez, terá que enviar outra.

Abraço!

Entrar

AspMail CCO

Pergunta

AAAAAOOOOO

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

Leandro_SM

Link para o comentário

Compartilhar em outros sites

AAAAAOOOOO

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Leandro_SM

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades