Envio de e-mail "Persits.MailSender"

[wilnet 92]

Bom dia pessoal, estou tendo uma dificuldade em fazer um sistema de INDIQUE AO AMIGO, pesquisei vários aqui no forum e em Sites que disponibilizam para downloads, meu servidor aceita os "CDOSYS, ASPMAIL, ASPEMAIL".

 

Vamos lá, depois de muito tempo gasto, consegui fazer este funcionar:

<%Dim Mail ' objeto Email Dim strFromName ' nome do remetenteDim strFromEmail ' endereço de Email do remetenteDim strToEmail ' endereço do destinatarioDim strSubject, strBody 'corpo da mensagemDim strThisPage ' o endereco do seu siteDim strReferringPage ' a referencia URL Dim bValidInput ' variável Booleana usada na validação Dim strhost ' nome do servidor' Retorna o nome do arquivo de script e a url da paginastrThisPage = Request.ServerVariables("SCRIPT_NAME")strReferringPage = Request.ServerVariables("HTTP_REFERER")'define os valores iniciais dos parametros usados em nossa mensagemstrhost = "mail.avenidasaomiguel.com.br" 'altere o nome para o seu servidor de mensagensstrFromName = Trim(Request.Form("txtFromName"))strFromEmail = Trim(Request.Form("txtFromEmail"))strToEmail = Trim(Request.Form("txtToEmail"))strSubject = "Um amigo seu indicou este Site."strBody = Trim(Request.Form("txtMessage"))'monta o corpo da mensagemstrBody = strBody & "Seu amigo(a), visitou este Site e" & vbCrLfstrBody = strBody & "Achou que você também irá gostar, o site é este abaixo:" & vbCrLfstrBody = strBody & " http://www.avenidasaomiguel.com.br " & vbCrLf' validacao dos dadosbValida_Entrada = TruebValida_Entrada = bValida_Entrada And strFromName <> ""bValida_Entrada = bValida_Entrada And Valida_Email(strFromEmail)bValida_Entrada = bValida_Entrada And Valida_Email(strToEmail)'Se o e-mail é valido envia a mensagemIf bValida_Entrada ThenSet Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHostMail.From = strFromEmailMail.FromName = strFromNameMail.AddAddress strToEmailMail.Subject = strSubjectMail.Body = strBodyon error resume nextMail.Sendmensagem_erro = ""if err <> 0 thenmensagem_erro = "Ocorreu o seguinte erro durante o envio do e-mail: " & Err.descriptionend ifSet Mail = Nothingon error goto 0' exibe mensagem de agradecimento%><P><b>Sua mensagem foi enviada. Obrigado por ter visitado nosso site , volte sempre !</P><div align="center"><form>			<div align="center">			  <input type="button" name="Button" class="botao" value="Fechar" Onclick="window.close()">			</div>		  </form></div><% ElseIf "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage ThenResponse.Write "Ocorreu um erro . Verifique suas informações: " & "<BR>" & vbCrLfEnd If' exibe o formulario...Exibe_Formulario strThisPage, strFromName, strFromEmail, strToEmail, strBodyEnd If%><%'verifica se o e-mail é validoFunction Valida_Email(strEmail)Dim bIsValidbIsValid = TrueIf Len(strEmail) < 5 ThenbIsValid = FalseElseIf Instr(1, strEmail, " ") <> 0 ThenbIsValid = FalseElseIf InStr(1, strEmail, "@", 1) < 2 ThenbIsValid = FalseElseIf InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 ThenbIsValid = FalseEnd IfEnd IfEnd IfEnd IfValida_Email = bIsValidEnd Function%><%Sub Exibe_Formulario(strPageName, strFromName, strFromEmail, strToEmail, strBody)%>[b][s]Aqui o Form[/s][/b]<%End Sub%>

è o seguinte, ele até que está funcionando, porem, no Hotmail e gmail, ele vai direto para a pasta de Lixeira, testei no Zipmail e no IG e em meu servidor ele manda noraml, o que pode ser, alguem sabe como posso contorna isso?

 

Já pesquisei aqui no forum sobre SPAM, e li que alguns servidores filtram o titulo da mensagem ou seu conteudo e determinam se é SPAM ou não, mas nao consegui solucionar.

 

Bem, se alguem sober e puder me fazer este favor, ficarei muito grato, estão em suas mãos meus queridos amigos.

 

Grato William

[wilnet 92]

Olá pessoal, será que ninguem tem uma ideia do que possa ser? será que ninguem aqui passou por problema similar, acredito que deve ter uma resposta para isso, agradeceria muito uma ajuda bondosa ai.Grato amigos.

[wilnet 92]

Olá pessoal, ao menos me digam se tem alguma soluçaõ ou não, para que eu possa abandonar este script, ou continuar uma solução, msa se ninguem me diz nada, fico aqui sem saber, o que é pior,Valeu amigos.