BOM ESTA AI O CÓDIGO, MAIS NIGUEM CONSEGUE ME AJUDAR! já ESTOU PENSANDO QUE não EXISTE MANEIRA DE ENVIAR UM E-MAIL DE UM SITE COM ANEXO...
DETALHE, NO FORMULARIO É USADO INPUT TIPO FILE, PARA PEGAR O CAMINHO DO ARQUIVO.
<html><head>
<title>Envia Email</title></head>
<body>
<%
On Error Resume Next
If err.number>0 then
response.write "Mensagem não Enviada"
response.write "Erro Inesperado Encontrado" & "<br>"
response.write "Erro Número.....:"&err.number&"<br>"
response.write "Descrição.......:"&err.description&"<br>"
response.write "Help Context....:"&err.helpcontext&"<br>"
response.write "Help Path.......:"&err.helppatch&"<br>"
response.write "Native Error....:"&err.nativeerror&"<brP>"
response.write "Origem..........:"&err.source&"<br>"
response.write "Estado SQL......:"&err.sqlstate&"<br"
Else
dim objEmail
dim wLista
dim wPara
dim wCc
dim wCco
dim wAssunto
dim wMensagem
dim wAnexar
dim wImportancia
wPara=Request.form("txtPara")
wCc=Request.form("txtCc")
wCco=Request.form("txtCco")
wAssunto=Request.form("txtAssunto")
wMensagem=Request.form("txtMensagem")
wAnexar=Request.form("cmdAnexar")
if wPara="" then
Response.write "Impossível enviar e-mail sem destinatário"
Else
Set objEmail=Server.createObject("CDONTS.NEWMAIL")
objEmail.From="contato@agitosnoturnos.com"
objEmail.To=wPara
objEmail.Bcc=wCco
objEmail.Subject=wAssunto
objEmail.Body=wMensagem
objEmail.AttachFile=wAnexar
objEmail.Importance=2
objEmail.Send "edson@edson.com.br", wPara, wAssunto, wMensagem, cdoHight
response.write "Email enviado com Sucesso!"
End if
End if
%>
</body>
</html>
Pergunta
EDSONET
BOM ESTA AI O CÓDIGO, MAIS NIGUEM CONSEGUE ME AJUDAR! já ESTOU PENSANDO QUE não EXISTE MANEIRA DE ENVIAR UM E-MAIL DE UM SITE COM ANEXO...
DETALHE, NO FORMULARIO É USADO INPUT TIPO FILE, PARA PEGAR O CAMINHO DO ARQUIVO.
<html><head> <title>Envia Email</title></head> <body> <% On Error Resume Next If err.number>0 then response.write "Mensagem não Enviada" response.write "Erro Inesperado Encontrado" & "<br>" response.write "Erro Número.....:"&err.number&"<br>" response.write "Descrição.......:"&err.description&"<br>" response.write "Help Context....:"&err.helpcontext&"<br>" response.write "Help Path.......:"&err.helppatch&"<br>" response.write "Native Error....:"&err.nativeerror&"<brP>" response.write "Origem..........:"&err.source&"<br>" response.write "Estado SQL......:"&err.sqlstate&"<br" Else dim objEmail dim wLista dim wPara dim wCc dim wCco dim wAssunto dim wMensagem dim wAnexar dim wImportancia wPara=Request.form("txtPara") wCc=Request.form("txtCc") wCco=Request.form("txtCco") wAssunto=Request.form("txtAssunto") wMensagem=Request.form("txtMensagem") wAnexar=Request.form("cmdAnexar") if wPara="" then Response.write "Impossível enviar e-mail sem destinatário" Else Set objEmail=Server.createObject("CDONTS.NEWMAIL") objEmail.From="contato@agitosnoturnos.com" objEmail.To=wPara objEmail.Bcc=wCco objEmail.Subject=wAssunto objEmail.Body=wMensagem objEmail.AttachFile=wAnexar objEmail.Importance=2 objEmail.Send "edson@edson.com.br", wPara, wAssunto, wMensagem, cdoHight response.write "Email enviado com Sucesso!" End if End if %> </body> </html>BOM VAMOS VER SE alguém TEM UMA IDEIA!
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.