Ir para conteúdo

Arquivado

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

Marcio13

cdosys anexo

Por , em ASP Clássico

Recommended Posts

Marcio13    0

Marcio13
Postado

Olá. Tenho o formulário CDOSYS anexando e enviando via email.

 

gostaria de ver se tem como "mexer" no código e juntar os 2 forms em apenas 1 fomrulario, onde o anexo vem dentro em um outro campo exemplo: nome, seu email, (inserir anexo) , e botao anexar arquivo e mensagem.

 

Veja:

 

<body topmargin="0" leftmargin="0" bgcolor="#C8D9DB">
<%
v_situacao = "disabled" 'variavel que habilita os campos do e-mail
Select Case Request.QueryString("acao") 'Verifica parametro acao para executar determinado script
Case "upload" 'caso a acao seja upload, executa script do SaFileUp
Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")
obj_Upload.Path = Server.MapPath("./upload") 'local onde será gravado o arquivo
obj_Upload.Form("File").Save
Session("arquivo") = obj_Upload.Form("File").ServerName 'recupera o nome do arquivo no servidor
Response.Write "<script>alert('Arquivo Enviado - Total de Bytes Enviados: " & obj_Upload.TotalBytes & "')</script>"
Set obj_Upload = Nothing
v_situacao = "" 'habilita os campos pra enviar o e-mail
v_foco = " onLoad=""document.frm_email.txt_nome_rem.focus();""" 'coloca o cursor no campo do form de e-mail
Case "email"
' Conta de seu domínio utilizada para enviar as mensagens.
sEnviaRecebe = "email@email.com.br"
' Senha da conta utilizada para envio, necessária pela obrigatoriedade de autenticação.
sSenha = "123456"
' Campo do formulário onde o cliente previamente inseriu o email de contato, utilizado para responder ao email recebido.
sResponder = request.form("remetente")
' Campo do formulário onde o cliente insere o título para a mensagem:
sAssunto = request.form("assunto")
' Campo do formulário onde o cliente insere o texto da mensagem:
sMensagem = request.form("mensagem")
' Cria o objeto CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
' Cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields.update
' Atualiza a configuração do CDOSYS para envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon
' Configura o remetente(FROM)
objCDOSYSMail.From = sResponder
' Configura o destinatário(TO)
objCDOSYSMail.To = sEnviaRecebe
' Configura o Reply-To(Responder Para)
objCDOSYSMail.ReplyTo = sResponder
' Configura o assunto(SUBJECT)
objCDOSYSMail.Subject = sAssunto
' Para enviar mensagens no formato HTML, altere o TextBody para HtmlBody
objCDOSYSMail.HtmlBody = sMensagem
' Enviando o email:
objCDOSYSMail.Send
' Caso algum erro ocorra, exibe uma notificação ao usuário:
If return <> 0 then
response.write "Erro: " & return
Else
' Pode-se exibir uma mensagem para o usuário, indicando o sucesso do envio:
response.write "Mensagem enviada com sucesso para: <strong>" & sEnviaRecebe & "</strong>"
End If
' Para assegurar uma boa prática de programação, ao final da execução é necessário destruir os objetos previamente criados:
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Session("Arquivo") = ""
End Select
%>
<form action="?acao=upload" method="post" enctype="multipart/form-data" name="frm_upload" id="frm_upload">
<table width="612" border="0" cellspacing="0" cellpadding="2">
<tr><th width="375" scope="col"><div align="center">
<input name="file" type="file" size="40" value="Anexar Currículo">
</div></th>
<th width="229" scope="col"><input name="Upload" type="submit" id="Upload" value="Enviar Arquivo"></th>
</tr></table>
</form>
<form action="?acao=email" method="post" name="frm_email" id="frm_email">
<table width="716" border="0" cellspacing="0" cellpadding="2">
<tr>
<th colspan="4">Envie seus dados: </th>
</tr>
<tr>
<th width="106" height="27"><div align="left">Nome:</div></th>
<td colspan="2">
<div align="left">
<input name="txt_nome_rem" type="text" id="txt_nome_rem" size="50"<%=v_situacao%>>
</div></td>
<td width="214">
<div align="left">
<input name="txt_nome_para" type="hidden" id="txt_nome_para" size="30"<%=v_situacao%>>
<input name="txt_email_rem" type="hidden" id="txt_email_rem" value="email@email.com.br" size="30"<%=v_situacao%>>
</div></td></tr>
<tr>
<td><strong>Seu E-mail:</strong></td>
<td><input name="emailVisitante" type="text" size="50" maxlength="60" <%=v_situacao%>></td>
<td> </td>
<td> </td>
</tr>
<!--<tr>
<th colspan="2">
</th>
<th width="130"><div align="left">Enviará para :</div></th>
<td>
<div align="left">
<input name="txt_email_para" type="text" readonly="readonly" value="email@email.com.br" id="txt_email_para" size="30"<%=v_situacao%>>
</div></td></tr>//-->
<tr><td>
<!-- <input name="txt_assunto" type="text" id="txt_assunto" size="30"<%=v_situacao%>>//-->
</div></td><th><div align="left">Arquivo:</div></th><td>
<div align="left">
<input name="txt_arquivo" type="text" disabled id="txt_arquivo" value="<%=Session("arquivo")%>" size="30">
</div></td></tr><tr><th colspan="4"><div align="left">Coloque seu nome e email e se quiser deixe sua mensagem:</div></th>
</tr><tr><td colspan="4">
<div align="center">
<textarea name="txt_corpo" cols="75" rows="5" id="txt_corpo"<%=v_situacao%>></textarea>
</div></td></tr><tr><td colspan="4">
<div align="right">
<input name="Enviar" type="submit" id="Enviar" value="Enviar"<%=v_situacao%>>
</div></td></tr></table>
</form>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

só colocar o input do upload junto

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