[Resolvido] Envio de e-mail

Jow Xavier · Junho 10, 2008

Tenho esse script de envio de e-mail pq não consigo enviar ??? alguém pode me ajudar

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
			Mailer.FromName		= Vnome_empresa
			Mailer.RemoteHost	= "mail-fwd"
			Mailer.FromAddress	= Vemail_cli
			Mailer.AddRecipient "Visão Pedestais - Pedido On-Line", "vendas@visaopedestais.com.br"
			Mailer.ContentType 	= "text/html"
			Mailer.Subject = Mailer.EncodeHeader(".:: Visão Pedestais : Pedido On-Line : " & Vnome_empresa & " ::.")			
			Mailer.BodyText	= Msg
			'If not Mailer.SendMail then
				'Mensagem = "Favor verificar seu e-mail"
			'Else
				Mensagem = "Sua mensagem foi enviada com sucesso.\nEntraremos em contato o mais breve possível.\nObrigado!"
			End If
		Set Mailer = nothing
		response.write "<script language=""JavaScript"">alert(""" & Mensagem & """); window.location = ""cadastro.asp"";</script>"

hargon · Junho 10, 2008

Qual a mensagem de erro?

Vinicius Ianni · Junho 11, 2008

O servidor tem suporte a esse componente ?

Jow Xavier · Junho 11, 2008

Qual a mensagem de erro?

Não tem mensagem de erro apenas, ñ executa o script !!!

O servidor tem suporte a esse componente ?

você diz esse componente Set Mailer ???

hargon · Junho 11, 2008

O componente é SMTPsvg.Mailer.

Sem mensagem de erro fica complicado. Pode está indo para a caixa de spam, entre várias outras coisas.

Verifique se existe o comando On Error Next Resume no código. Se existir, remova e poste e o resultado.

Jow Xavier · Junho 11, 2008

Então hargon, ñ dá mensagem alguma de erro apenas ñ envia e ñ tem o comando On Error Next Resume no código. Mas eu vi q no meu prvedor ñ tem suporte a esse componente, meu servidor é Loca Web ...

Jow Xavier · Junho 11, 2008

Verifiquei na LocaWeb e o componente de e-mail q tem suporte é o SoftArtisans.SMTPMail ... Então é só eu alterar essa linha

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

por essa

Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")

???

hargon · Junho 11, 2008

A Locaweb da suporte a CDOSYS.

Dependendo do componente não é só alterar esse linha aí. Você tem que verificar os parâmetros necessários.

Jow Xavier · Junho 11, 2008

Então acontece q eu peguei um site q já tem um script de e-mail, este site estava em outro servidor, agora estou migrando para locaweb, mas a locaweb ñ tem suporte para ao componente, por isso tenho q alterar o script ... você sabe qual o componente q eu poderia estar usando sem alterar muito meu script q está assim:

<%
acao = request.QueryString("acao")
produto = trim(request.Form("produto"))
Vacao = request.QueryString("acao")
Vnome_empresa = request.Form("nome_empresa")
Vnome_responsavel = request.Form("nome_responsavel")
Vendereco_cli = request.Form("endereco_cli")
Vnumero_cli = request.Form("numero_cli")
Vcep_cli = request.Form("cep_cli")
Vcidade_cli = request.Form("cidade_cli")
Vestado_cli = request.Form("estado_cli")
Vcnpj_cli = request.Form("cnpj_cli")
Vinscricao_cli = request.Form("inscricao_cli")
Vtel_cli = request.Form("tel_cli")
Vfax_cli = request.Form("fax_cli")
Vemail_cli = request.Form("email_cli")
Vdata_fatu_cli = request.Form("data_fatu_cli")

Dim ArrProduto(94)
Dim ArrCodigo(94)

ArrProduto(1) = "Girafa com pés dobráveis (para 1 mic)"
ArrProduto(2) = "Girafa com pés dobráveis preto (para 1mic)"
ArrProduto(3) = "Girafa com pés dobráveis"
ArrProduto(4) = "Girafa com pés dobráveis preto"
ArrProduto(5) = "Girafa telescópico, com pés dobráveis"
ArrProduto(6) = "Girafa telescópico, com pés dobráveis preto"
ArrProduto(7) = "Girafa com pé de ferro" 
ArrProduto(8) = "Girafa com pé de ferro preto"
ArrProduto(9) = "Girafa telescópico, com pé de ferro"
ArrProduto(10) = "Girafa telescópico, com pé de ferro preto"
ArrProduto(11) = "Mini Girafa com pés dobráveis"
ArrProduto(12) = "Mini Girafa com pés de ferro"

ArrProduto(13) = "Studios com pés dobráveis"
ArrProduto(14) = "Studios com pés dobráveis preto"
ArrProduto(15) = "Studios com pés ferro"
ArrProduto(16) = "Studios com pés ferro preto"
ArrProduto(17) = "Mini studio com pés dobráveis" 
ArrProduto(18) = "Mini studio com pé de ferro"

ArrProduto(19) = "Com tubo fixo"
ArrProduto(20) = "Com tubo telescópico pq"
ArrProduto(21) = "Com tubo telescopico gb"
ArrProduto(22) = "Girafinha"
ArrProduto(23) = "Com tubo flexível pq"
ArrProduto(24) = "Com tubo flexível md"
ArrProduto(25) = "Com tubo flexível gb"
ArrProduto(26) = "Com tubo flexível gg"
ArrProduto(27) = "Com tubo flexível pq Black"
ArrProduto(28) = "Com tubo flexível md Black"
ArrProduto(29) = "Com tubo flexível gb Black"
ArrProduto(30) = "Com tubo flexível gg Black"
ArrProduto(31) = "Pedestal girafa para prato de bateria"
ArrProduto(32) = "Pedestal reto para prato de bateria"
ArrProduto(33) = "Banquinho para bateria (espuma 8cm)"
ArrProduto(34) = "Pedestal p/ bongo"

ArrProduto(35) = "Suporte para teclado formato X "
ArrProduto(36) = "Clamp de bateria para Prato"
ArrProduto(37) = "Clamp de bateria para microfone"
ArrProduto(38) = "Pedestal para partitura maestro"
ArrProduto(39) = "Pedestal para partitura músico"
ArrProduto(40) = "Pedestal para partitura musico"

ArrProduto(41) = "Pedestal para Home Theater pé ferro"
ArrProduto(42) = "Pedestal para Home Theater pé ferro cinza"
ArrProduto(43) = "Pedestal Para Home Theater pé ferro"
ArrProduto(44) = "Pedestal para Home Theater pé ferro cinza"
ArrProduto(45) = "Pedestal para Home Theater pé Metálico"
ArrProduto(46) = "Pedestal para Home Theater pé Metálico cinza"
ArrProduto(47) = "Pedestal para Home Theater pé Metálico"
ArrProduto(48) = "Pedestal Para Home Theater pé Metálico cinza"

ArrProduto(49) = "Haste de extenção macho/femea"
ArrProduto(50) = "Haste de extenção macho/macho"

ArrProduto(51) = "Pedestal para caixa acústica"
ArrProduto(52) = "Pedestal para caixa acústica preto"
ArrProduto(53) = "Pedestal mini para caixa acústica" 
ArrProduto(54) = "Pedestal mini para caixa acústica preto"
ArrProduto(55) = "Pedestal para caixa acústica aluminio"

ArrProduto(56) = "Pedestal de Banner com pe de ferro"
ArrProduto(57) = "Pedestal de Banner com pe dobravel"
ArrProduto(58) = "Suporte de Projetor para Teto"

ArrProduto(59) = "Cachimbo para microfone sem fio"
ArrProduto(60) = "Cachimbo para microfone com fio"
ArrProduto(61) = "Capas para Violao-Corino"
ArrProduto(62) = "Capas para Violao Folk-Corino"
ArrProduto(63) = "Capas para Guitarra-Corino"
ArrProduto(64) = "Capas para Comtra Baixo-Corino"
ArrProduto(65) = "Capas para Cavaquinho-Corino"
ArrProduto(66) = "Capas para Violao Gota-Náilon Luxo"
ArrProduto(67) = "Capas para Violao Folk Gota-Náilon Luxo"
ArrProduto(68) = "Capas para Guitarra Gota-Náilon Luxo"
ArrProduto(69) = "Capas para Contra Baixo Gota-Náilon Luxo"
ArrProduto(70) = "Capas para Cavaquinho Gota-Náilon Luxo"

ArrProduto(71) = "Violao em ACO INOX com bolinha"
ArrProduto(72) = "Violao em NAILON 100% Poliamida com bolinha"
ArrProduto(73) = "Cavaquinnho em ACO INOX com bolinha"
ArrProduto(74) = "Guitarra 009-042"

ArrProduto(75) = "Baqueta 2B natural em ponta de madeira"
ArrProduto(76) = "Baqueta 5A natural em ponta de madeira"
ArrProduto(77) = "Baqueta 5B natural em ponta de madeira"
ArrProduto(78) = "Baqueta 7A natural em ponta de madeira"
ArrProduto(79) = "Baqueta 2B natural em ponta de nailon"
ArrProduto(80) = "Baqueta 7A natural em ponta de nailon"
ArrProduto(81) = "Baqueta 5A natural em ponta de nailon"
ArrProduto(82) = "Baqueta 5B natural em ponta de nailon"
ArrProduto(83) = "Baqueta 2B natural em ponta de madeira cabo emborrachado"
ArrProduto(84) = "Baqueta 5A natural em ponta de madeira cabo emborrachado"
ArrProduto(85) = "Baqueta 5B natural em ponta de madeira cabo emborrachado"
ArrProduto(86) = "Baqueta 7A natural em ponta de madeira cabo emborrachado"
ArrProduto(87) = "Baqueta 2B natural em ponta de nailon cabo emborrachado"
ArrProduto(88) = "Baqueta 5A natural em ponta de nailon cabo emborrachado"
ArrProduto(89) = "Baqueta 5B natural em ponta de nailon cabo emborrachado"
ArrProduto(90) = "Baqueta 7A natural em ponta de nailon cabo emborrachado"
ArrProduto(91) = "Baqueta Jazz"
ArrProduto(92) = "Baqueta Rods natural"
ArrProduto(93) = "Baqueta Timpani Dupla"
ArrProduto(94) = "Baqueta Timpani Simples"

	
ArrCodigo(1)  = "PE-2"	 
ArrCodigo(2)  = "PE-2 preto"   
ArrCodigo(3)  = "PE-3"	 
ArrCodigo(4)  = "PE-3 preto"	
ArrCodigo(5)  = "PE-3T"   
ArrCodigo(6)  = "PE-3T preto"	
ArrCodigo(7)  = "PE-3F"   
ArrCodigo(8)  = "PE-3F preto"	
ArrCodigo(9)  = "PE-3FT"	  
ArrCodigo(10)  = "PE-3FT preto"	
ArrCodigo(11)  = "PE-3M"	
ArrCodigo(12)  = "PE-3MF"
   
ArrCodigo(13)  = "PE-1"   
ArrCodigo(14)  = "PE-1 preto"   
ArrCodigo(15)  = "PE-1F"   
ArrCodigo(16)  = "PE-1F preto"	
ArrCodigo(17)  = "PE-1M"
ArrCodigo(18)  = "PE-1MF" 
  
ArrCodigo(19)  = "PS1"  
ArrCodigo(20)  = "PS2"  
ArrCodigo(21)  = "PS3"   
ArrCodigo(22)  = "PS3-G"	
ArrCodigo(23)  = "PS1-F"  
ArrCodigo(24)  = "PS2-F"   
ArrCodigo(25)  = "PS4-F"   
ArrCodigo(26)  = "PS5-F"   
ArrCodigo(27)  = "PS1-F BK"	
ArrCodigo(28)  = "PS2-F BK"   
ArrCodigo(29)  = "PS4-F BK"	
ArrCodigo(30)  = "PS5-F BK" 
   
ArrCodigo(31)  = "PPBG"   
ArrCodigo(32)  = "PPBR"	
ArrCodigo(33)  = "BBAT-1"   
ArrCodigo(34)  = "P1-BGO"	
ArrCodigo(35)  = "SPT-1"   
ArrCodigo(36)  = "CLP-01"	
ArrCodigo(37)  = "CLM-02" 
	
ArrCodigo(38)  = "PPM"	
ArrCodigo(39)  = "PPS"  
ArrCodigo(40)  = "PPS-BK" 
 
ArrCodigo(41)  = "PHT2-F"  
ArrCodigo(42)  = "PHT3-F"  
ArrCodigo(43)  = "PHT4-F"  
ArrCodigo(44)  = "PHT5-F"  
ArrCodigo(45)  = "PHT-6F"  
ArrCodigo(46)  = "PHT-7F"  
ArrCodigo(47)  = "PHT-8F"  
ArrCodigo(48)  = "PHT-9F"  

ArrCodigo(49)  = "HMF"   
ArrCodigo(50)  = "HMM" 
	   
ArrCodigo(51)  = "PCA-CR"  
ArrCodigo(52)  = "PCA-BK"  
ArrCodigo(53)  = "PCA-M"
ArrCodigo(54)  = "PCA-M preto"   
ArrCodigo(55)  = "PCA-AL"	 
ArrCodigo(56)  = "PBAN-F"  
ArrCodigo(57)  = "PBAN"
	
ArrCodigo(58)  = "ST-01"  
ArrCodigo(59)  = "SP-2 rosca metalica"   
ArrCodigo(60)  = "SP-2n rosca metalica"  
ArrCodigo(61)  = "VC01-C"   
ArrCodigo(62)  = "VC02-C"  
ArrCodigo(63)  = "VC04-C"  
ArrCodigo(64)  = "VC05-C"  
ArrCodigo(65)  = "VC06-C"  
ArrCodigo(66)  = "VC20-NL"  
ArrCodigo(67)  = "VC21-NL"  
ArrCodigo(68)  = "VC22-NL"  
ArrCodigo(69)  = "VC23-NL"  
ArrCodigo(70)  = "VC24-NL"  
ArrCodigo(71)  = "VE-100"   
ArrCodigo(72)  = "VE-101"   
ArrCodigo(73)  = "VE-102"  
ArrCodigo(74)  = "VE-109"
  
ArrCodigo(75)  = "BV4000"  
ArrCodigo(76)  = "BV4001"  
ArrCodigo(77)  = "BV4002"  
ArrCodigo(78)  = "BV4003" 
ArrCodigo(79)  = "BV4029"  
ArrCodigo(80)  = "BV4028"  
ArrCodigo(81)  = "BV4061"  
ArrCodigo(82)  = "BV4062"  
ArrCodigo(83)  = "BV4093"  
ArrCodigo(84)  = "BV4094"  
ArrCodigo(85)  = "BV4095"  
ArrCodigo(86)  = "BV4096"   
ArrCodigo(87)  = "BV4097"   
ArrCodigo(88)  = "BV4098"  
ArrCodigo(89)  = "BV4099"  
ArrCodigo(90)  = "BV4100"  
ArrCodigo(91)  = "BV4153"	
ArrCodigo(92)  = "BV4109"  
ArrCodigo(93)  = "BV4111"  
ArrCodigo(94)  = "BV4112"  

	arrprod = split(produto,",")

if acao = "enviar" Then

Msg = "<style type=""text/css"">" & vbcr
Msg = Msg & "</style>" & vbcr
Msg = Msg & "<table width=""600"" border=""1"" cellspacing=""2"" cellpadding=""2"" bordercolor=""#666666"" align=""center"">" & vbcr

Msg = Msg & "<tr align=""center"" bgcolor=""#CCCCCC"">" & vbcr
Msg = Msg & "<td colspan=""4""><b><font size=""2"">Pedido On-Line Visão Pedestais</font></b><br>" & vbcr
Msg = Msg & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr bgcolor=""#CCCCCC"">" & vbcr
Msg = Msg & "<td width=""120""><b>Empresa</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vnome_empresa & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr>" & vbcr
Msg = Msg & "<td width=""120""><b>Responsavel</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vnome_responsavel & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr bgcolor=""#CCCCCC"">" & vbcr
Msg = Msg & "<td width=""120""><b>Endereco</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vendereco_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr>" & vbcr
Msg = Msg & "<td width=""120""><b>Cep</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vcep_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr bgcolor=""#CCCCCC"">" & vbcr
Msg = Msg & "<td width=""120""><b>Cidade</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vcidade_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr>" & vbcr
Msg = Msg & "<td width=""120""><b>Estado</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vestado_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr bgcolor=""#CCCCCC"">" & vbcr
Msg = Msg & "<td width=""120""><b>Cnpj</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vcnpj_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr>" & vbcr
Msg = Msg & "<td width=""120""><b>Inscrição</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vinscricao_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr>" & vbcr
Msg = Msg & "<td width=""120"" bgcolor=""#CCCCCC""><b>Tel</b></td>" & vbcr
Msg = Msg & "<td bgcolor=""#CCCCCC"" colspan=""3"">" & Vtel_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr>" & vbcr
Msg = Msg & "<td width=""120""><b>Fax</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vfax_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr>" & vbcr
Msg = Msg & "<td width=""120"" bgcolor=""#CCCCCC""><b>E-mail</b></td>" & vbcr
Msg = Msg & "<td bgcolor=""#CCCCCC"" colspan=""3"">" & Vemail_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr>" & vbcr
Msg = Msg & "<td width=""120"" ><b>Data de Faturamento</b></td>" & vbcr
Msg = Msg & "<td colspan=""3"">" & Vdata_fatu_cli & "</td>" & vbcr
Msg = Msg & "</tr>" & vbcr

Msg = Msg & "<tr bgcolor=""#CCCCCC"">" & vbcr
Msg = Msg & "<td width=""120"" colspan=""4"" align=""center"">Solicitação De Pedido</td>" & vbcr
Msg = Msg & "</tr>" & vbcr
	
	for i=0 to ubound(arrprod)
	qtd = request.Form("qtd"&trim(arrprod(i)))
	''tipo = request.Form("tipo"&trim(arrprod(i)))
	
	Msg = Msg & "<tr><td>"&ArrProduto(arrprod(i))&"</td><td>"&ArrCodigo(arrprod(i))&"</td><td>"&qtd&"</td>"
	next

	Msg = Msg & "</table>"
	'****************************************************** Envia e-mail*******************************************************
	
			Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
			Mailer.FromName		= Vnome_empresa
			Mailer.RemoteHost	= "mail-fwd"
			Mailer.FromAddress	= Vemail_cli
			Mailer.AddRecipient "Visão Pedestais - Pedido On-Line", "interativa@thatto.com.br"
			Mailer.ContentType 	= "text/html"
			Mailer.Subject = Mailer.EncodeHeader(".:: Visão Pedestais : Pedido On-Line : " & Vnome_empresa & " ::.")			
			Mailer.BodyText	= Msg
			If not Mailer.SendMail then
				'Mensagem = "Favor verificar seu e-mail"
			'Else
				Mensagem = "Sua mensagem foi enviada com sucesso.\nEntraremos em contato o mais breve possível.\nObrigado!"
			End If
		Set Mailer = nothing
		response.write "<script language=""JavaScript"">alert(""" & Mensagem & """); window.location = ""cadastro.asp"";</script>"		
	
		
end if

%>

Jow Xavier · Junho 11, 2008

Cara consegui resovelver, como o componente CDONTS ... só ñ estou conseguindo fazer a formatação do email, será q você pode me ajudar ??

hargon · Junho 11, 2008

CDONTS ou CDOSYS?

Jow Xavier · Junho 11, 2008

resovi com o CDONTS só ñ consugo formatar a mensagem !!!

Opa consegui resover para enviar HTML eu preciso usar isso no email :

Mailer.BodyFormat = 0  
Mailer.MailFormat = 0

Valeu problema resolvido ....

hargon · Junho 11, 2008

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Arquivado

[Resolvido] Envio de e-mail

Recommended Posts

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante