Ir para conteúdo

POWERED BY:

Arquivado

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

Bruno Veanet

Enviar Anexo no email com asp

Por , em ASP Clássico

Recommended Posts

Bruno Veanet    0

Bruno Veanet
Postado

Olá Gente,

 

Preciso que alguem me mostre como fazer pra enviar anexo por email. O Problema é que eu sei muito basico o ASP, pois uso o PHP, mas surgiu um cliente q precisa disso em asp...

 

Procurei na internet e só entendi que ele nao tem uma classe específica pra enviar email e talz, e que pra anexa um arquivo e manda você precisa fazer um upload dele, anexar,enviar o email,e deletar o arquivo...

 

Só q os tutoriais q eu vi nao explicavam nd com nd... eu gostaria de algum material legal sobre esse assunto.

 

Se alguem souber algo , linka ou posta pra ieu aqui ^_^

 

 

 

Att,

 

Bruno

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bruno Veanet    0

Bruno Veanet
Postado

Galera eu dei uma lida consegui achar algo legal só que na hora de envia o email ele ta dando um erro, alguem pode me dizer oq significa isso?

 

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/empresax/pagina_upload.asp, line 63

 

800401f3

 

 

e a pagina onde contém o código é

 

'criamos o obejto do cdonts -> essa é a linha 63 que esta dando erro
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

'recebe o valor do recordset com o email cadastrado
EnviarMail.To = "bruno@veanet.com"

'recebe o email de quem envia da variavel Vemail
EnviarMail.From = "veanet@veanet.com.br"

'Assunto do email'
EnviarMail.Subject = "Teste Anexo"


if anexo = "sim" and nome_arquivo <> "" then
' Testa se o campo anexo do form possui valor ..para enviar o anexo. Senao, envia somente o email sem anexo
EnviarMail.Attachfile nome_arquivo
end if


'corpo do email armazenado na variavel
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Titulo do E-mail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p align=""center""><span style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"" color=""#FF0000"">Corpo do E-mail</span><BR><BR>"
HTML = HTML & "<p align=""center""><span style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Sua mensagem foi enviada com sucesso!</span> </p><BR><BR><BR>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

'propriedade recebe a variavel do corpo do email
EnviarMail.Body = HTML
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0

EnviarMail.Send

'fecha o objeto CDONTS'
Set EnviarMail = Nothing



response.write "Arquivo enviado com sucesso"
response.end

 

se puderem me ajudar ficarei grato

 

Att,

 

Bruno

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

este erro [e pq você n'ao tem o CDONTS registrado, você precisa da DLL, caso nao tenha me manda

um email k te forne;o, depois para registrar faz assim?

 

 

1. Baixe o arquivo cdonts.dll e salve no diretório c:\windows\system32.

2. No menu iniciar do windows, clique em executar.

3. Em executar Digite a seguinte linha de comando:

regsvr32.exe c:\windows\system32\cdonts.dll

4. Dê enter e execute os seus códigos ASP no seu Localhost usando seus scripts com o CDONTS

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito