Email com anexo

arldin · Maio 22, 2010

Boa tarde amigos gostaria de saber se tem como eu incluir anexo neste scripts

Eles funciona bem

este e o primeiro

enviar3.asp

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")


'Variaveis
Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

meuservidorsmtp = "mail.arldinartfest.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "arldin@arldinartfest.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "XXXXXXXX" ' senha da conta de e-mail
emailorigem = "arldin@arldinartfest.com.br" ' e-mail que indica de onde partiu a mensagem
emaildestino = "arldin@arldinartfest.com.br" ' e-mail que vai receber as mensagens do formulario

'Fim da definição manual de parâmetros.

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "utf-8"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Fale Conosco"
cdoMessage.ReplyTo = Request("responder")

strBody = "<strong><p><center><font color=blue>FALE CONOSCO</font></center></p></strong>" & vbCrLf & vbCrLf & _

"<strong><p><font color=blue>NOME:</font></strong>  "& Request("op") & vbCrLf & _
"<strong><p><font color=blue>SEU E-MAIL: </font></strong> "& Request("responder") & vbCrLf & _
"<strong><p><font color=blue>SUA MENSAGEM </font></strong></p> "& Request("mensagem")

strBody = strBody & "."
cdoMessage.HTMLBody = strBody
cdoMessage.send


Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.redirect "http://www.arldinartfest.com.br/envio.htm"
%>

Este e o formulario.asp

<HTML>

<HEAD>
<TITLE></TITLE>
<META NAME="GENERATOR" CONTENT="Sothink HTML Editor">
</HEAD>

<BODY>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD vAlign=top width="30%"><FONT color=#ff0000 size=5>Fale 
            Conosco</FONT><BR><BR>
            <FORM id=formEmail name=formEmail action=enviar3.asp method=post>
            <P><FONT color=#ff0000> <LEGEND align="Center"></FONT><FONT 
            size=1><FONT color=#0000ff><INPUT style="WIDTH: 168px; HEIGHT: 22px" 
            readOnly type=hidden size=21 value=arldin@arldinartfest.com.br 
            name=destino></FONT></FONT><FONT size=1><FONT color=#0000ff><FONT 
            size=2><FONT color=#0000ff>Nome do Remetente<BR></FONT></FONT><INPUT 
            id="op" style="WIDTH: 215px; HEIGHT: 22px" size=24 name=op> 
            </FONT><FONT size=1><FONT color=#0000ff><FONT color=#0000ff 
            size=2></FONT></FONT></FONT><FONT size=1><FONT 
            color=#0000ff><BR><FONT color=#0000ff size=2>E-mail de 
            Resposta  </FONT><BR><INPUT id=responder 
            style="WIDTH: 215px; HEIGHT: 22px" size=26 name=responder> 
            </FONT><FONT color=#0000ff size=1></FONT><FONT color=#0000ff><FONT 
            color=#0000ff><FONT color=#0000ff></FONT></FONT></FONT><BR><FONT 
            color=#0000ff>Sua mensagem  </FONT><FONT size=2><FONT 
            color=#0000ff size=3></FONT><BR></FONT><TEXTAREA id=mensagem style="WIDTH: 265px; HEIGHT: 108px" name=mensagem cols=25></TEXTAREA><FONT 
            size=2>  <BR></FONT><INPUT id=botao type=submit value=Envia name=botao></SPAN> 
            </FONT></FONT></P></TD>
          </TR></TBODY></TABLE></FORM></TD></TR></TBODY></TABLE>



</BODY>
</HTML>

Desde já agradeço a todos

bareta · Maio 24, 2010

basicamente adicione uma rotina de upload de arquivos e no sistema de envios de e-mail utilize o

ObjCDOSYSMail.AddAttachment Server.MapPath("upload/" & varAnexo)

Entrar

Email com anexo

Pergunta

arldin

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades