Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Envio de E-mails (Persits.MailSender)...!


spy73

Pergunta

Bom Dia galera, tranquilo?!

Eu tenho um código aqui que manda um informativo por e-mail para alguns contatos mas dá erro quando a variável V_PARA tem mais de um e-mail...

Código:

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

Mail.Host = "localhost"

Mail.From = v_email_remetente

Mail.FromName = v_nome_remetente

Mail.AddAddress "mr.spy7@gmail.com; rodrigo@diretriz.srv.br"

' v_para

Mail.Subject = v_assunto

Mail.Body = v_corpo

Mail.IsHTML = True

On Error Resume Next

Mail.Send

Set Mail = Nothing

Call FechaBanco

Response.Write v_para

If err = 0 Then

response.Redirect( "solicitacao.asp" )

Else

Response.Write( "<tr><td class='fonte-grid-erro' colspan='2' class='fonte-grid-erro'><div align='center'><font color='#FF0000'>Erro: E-mail(s) de destinatário(s) inválido(s)! </font></div></td></tr>")

Response.Write "Ocorreu um erro inesperado (" & Err.number & " - " & err.Description & ")"

End If

Os e-mails na variável ficam assim: "rodrigo@teste.com.br; rodrigo@teste1.com.br" etc etc etc.. E todos os e-mails saum válidos...!

Alguém tem alguma pista do porque disso ocorrer?!

Valeu, AbcS!

Rodrigo.

Editado por spy73
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0
é que tem que colocar um e-mail de cada vez:

Mail.AddAddress Destino1
Mail.AddAddress Destino2
Mail.AddAddress Destino3

saca só a fonte:

http://forum.wmonline.com.br/lofiversion/i...hp/t121726.html

[]'s Rafael Spilki

Então, eu fiz assim pra tentar resolver, verificando as dicas do link que você mandou:

while not aprova.eof

v_para = v_para + aprova( "email" )

Mail.AddAddress v_para

aprova.movenext

if not aprova.eof then

v_para = v_para + "; "

end if

wend

Assim, TEORICAMENTE, ele iria add um e-mail a cada vez e não teria problemas, certo?!

Mas o erro persiste... Será q é porque to colocando esse separador aew: v_para = v_para + "; " ?!?!?!

Caraca, eu já não gostava de ASP puro antes de mexer, agora q to mexendo to vendo q é mais chato do q eu pensava... hahaha

Link para o comentário
Compartilhar em outros sites

  • 0
sim... certamente deve ser por conta do separador! tem que ser um e-mail (endereço de e-mail padrão) por vez!

Para tirar o ";" use split!

[]'s Rafael Spilki

Tentei usar o split mas não deu certo... O que fiz de errado?!

Código:

eDest = split(v_para,";")

for i=0 to UBound(eDest)

Mail.AddAddress eDest(i)

next

Response.Write eDest

Sendo q o v_para tem o valor dos e-mails: "teste@teste.com.br; test1@teste.com.br; etc..."

Link para o comentário
Compartilhar em outros sites

  • 0
sim... certamente deve ser por conta do separador! tem que ser um e-mail (endereço de e-mail padrão) por vez!

Para tirar o ";" use split!

[]'s Rafael Spilki

Tentei usar o split mas não deu certo... O que fiz de errado?!

Código:

eDest = split(v_para,";")

for i=0 to UBound(eDest)

Mail.AddAddress eDest(i)

next

Response.Write eDest

Sendo q o v_para tem o valor dos e-mails: "teste@teste.com.br; test1@teste.com.br; etc..."

Ufa, consegui... xD

Valeu pelo help aew, Rafael...!

AbcS,

Rodrigo.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...