CDOSYS mais funções no EMAIL

[leozeferino 0]

Olá.Faz uma semana que estou tentando criar um sistema para enviar email pelo meu site e já tentei de tudo. Agora é a vez do CDOSYS. Pareceu-me bom. Até agora não deu nenhum problema.Só gostaria de saber se existe uma função nele para anexar arquivo.E tbm gostaria de saber se é possivel ao invés de enviar o e-mail no lugar do "De: email da pessoa", colocar o nome dela do tipo "De: Leonardo"(Algum código nessa linha:objCDOSYSMail.From = "leozeferino@bol.com.br")Quem quiser o código desse sistema é só pedir.Desde já,Obrigado.

[dark0 0]

Brother.. dá uma olhada num tutorial que eu fiz sobre CDOSYS

 

http://www.foo.com.br/viewtopic.php?t=112

 

Veja se tem informações que você precisa.

 

Ficaremos gratos, se você puder disponibilizar o sistema no Laboratorio de scripts..

 

Abraços

[leozeferino 0]

Então kra, na verdade não é o que preciso.É que em todos os sistemas de mandar e-mail é possivel escrever o nome da pessoa ou o seu nome ao enviar o email e na hora de abrir o email aparece o NOME dela e não o EMAIL. É isso que eu queria. Além disso tbm queria saber se é possivel enviar arquivos via esse sistema.Bom, não sei onde é que fica esse Laboratório de Scripts, então segue o código:<% nAssunto = replace( request.form("assunto"), "'", "''" )nCorpo = replace( request.form("corpo"), "'", "''" )nDeemail = replace( request.form("de_email"), "'", "''" )nNome_remetente = replace( request.form("nome_remetente"), "'", "''" )'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com.br" 'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 999 objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente objCDOSYSMail.From = nDeemail'e-mail do destinatário objCDOSYSMail.To = "email" 'assunto da mensagem objCDOSYSMail.Subject = nAssunto 'conteúdo da mensagem objCDOSYSMail.TextBody = nCorpo 'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS" 'objCDOSYSMail.fields.update 'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write "E-mail enviado para destinatario@dominio.com.br ..." %>

[leozeferino 0]

Ops. Acabou de acontecer um erro no sistema.Não sei se sou eu que estou fazendo errado, mas quando coloco um e-mail do remetente de dominio, tipo "nome@dominio.com.br" ele manda direitinho. Mas se mando para um e-mail de servidor "nome@bol.com.br" (hotmail, uol...) ele dá o seguinte erro: "error '8004020f' /leobrasileiro/cadastrese/inserir.asp, line 85 " sendo que essa linha é a de enviar o email: "objCDOSYSMail.Send"Se alguém souber como arrumar isso..Obrigado.

[Miasato 0]

Olá leozeferino,

 

Para que possa anexar arquivo você deve envia-lo ao servidor de hospedagem primeiramente, não há opção de envio direto do formulário.

Para isso você deve enviar o mesmo utilizando um ASPUpload, SAFIleup, DUNDASUpload... depois utilizar a opção objCDOSYSMail.AddAttachment.

 

 

Abs

 

Miasato

[hargon 64]

Muito boa a dica Miasato, só que você ressucitou um tópico de 2005.

 

De qualquer forma obrigado pela contribuição, só fique atento a este detalhe nos próximos posts. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Miasato 0]

Grande Moderador...

Agora que notei a esse detalhe... bom, se alguém pesquisar pelo menos tem mais essa dica... hehehe

 

 

Precisando de ajuda me fale ok? Vamos mantendo contato...

 

 

Abs

 

 

Miasato