[Resolvido] Habilitar anexo em CDONTS.NewMail

[marcosalmeida 0]

Olá, utilizo este script para enviar e-mails para minha lista de contatos.

Somente texto ele envia sem erro.

Estou tentando habilitar o campo AttachFile e esta aparecendo o error '80004005'

 

Segue parte do codigo onde estou acrescentando

 

- - -

Dim objCDO
		Set objCDO = Server.CreateObject("CDONTS.NewMail")
		objCDO.BodyFormat = 0 
		objCDO.MailFormat = 0 
		objCDO.To = emails
		objCDO.From = remetente
		objCDO.Subject = subject
		objCDO.Body = comm
		objCDO.AttachFile ("e:\home\lestemais\Web\Marcos\Logomarca.jpg")
		objCDO.Send
		rs.movenext

- - - -

Se desabilito a linha objCDO.AttachFile ("") o e-mail é enviado.

Alguem pode me ajudar?

No exemplo assima não preciso necessariamente fazer o ulpload do arquivo. Sempre será enviado o mesmo anexo

 

Abraços

[hargon 64]

Tenta:

objMail.AttachFile "e:\home\lestemais\Web\Marcos\Logomarca.jpg","Logomarca.jpg",1

[marcosalmeida 0]

Apareceu este erro

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: ''

[hargon 64]

A sim.. mas é que eu coloquei um exemplo... altera para o nome do objeto que você está utilizando.

 

objCDO

[marcosalmeida 0]

fiz a troca mas o erro agora é este: error '80004005'

[hargon 64]

Posta a mensagem de erro completa.

[marcosalmeida 0]

Só mostra isso:

error '80004005'

 

/marcos/index.asp, line 44

 

Ma linha 44

objCDO.AttachFile "e:\home\lestemais\Web\Marcos\Logomarca.jpg","Logomarca.jpg",1

Dim objCDO
		Set objCDO = Server.CreateObject("CDONTS.NewMail")
		objCDO.BodyFormat = 0 
		objCDO.MailFormat = 0 
		objCDO.To = emails
		objCDO.From = remetente
		objCDO.Subject = subject
		objCDO.Body = comm
		objCDO.AttachFile "e:\home\lestemais\Web\Marcos\Logomarca.jpg","Logomarca.jpg",1
		objCDO.Send
		rs.movenext

[hargon 64]

Mas não aparece nada escrito? Tipo, "propriedade inválida" "caminho inválido", etc...

[marcosalmeida 0]

Nao. so aparece isso ai

faça a simulaçao pra você ver

http://www.lestemais.com.br/marcos/index.asp

so preencher os campos.

[Vagner Bucioli Scala 0]

Olá! será que não é problema de permissão na pasta?

[marcosalmeida 0]

Já dei permissão de escrita e leitura. Está muito estranho.

Este comando nao grava nada, correto?

[Jow Xavier 0]

manda só assim

 

objCDO.AttachFile "e:\home\lestemais\Web\Marcos\Logomarca.jpg"

[marcosalmeida 0]

Manteve o erro!

[Jow Xavier 0]

Estranho cara eu consigo enviar email com anexo com o mesmo componente de email ... tenta assim ...

 

Set objCDO = Server.CreateObject("CDONTS.NewMail")
		objCDO.From = remetente 
		objCDO.To = emails
		objCDO.BodyFormat = 0 
		objCDO.MailFormat = 0
		objCDO.AttachFile "e:\home\lestemais\Web\Marcos\Logomarca.jpg"
		objCDO.Subject = subject
		objCDO.Body = comm
		objCDO.Send
		Set objCDO = Nothing

[marcosalmeida 0]

Não envia! So retirar a linha objCDO.AttachFile e o e-mail é enviado!

Estou na locaweb. Pode ser o provedor?

[Jow Xavier 0]

Eu tbm estou na locaweb posta o seu código ai ...

[marcosalmeida 0]

<%
dim dsn
dsn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\home\lestemais\Web\Marcos\divulga.mdb;"
%>

<%
response.buffer = true
Server.ScriptTimeout = 100000000

dim useraction,subject,comm,emails,conn,rs,sql,remetente
dim totalMails


Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT emails from emails"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount

useraction=request("action")
select case useraction
case "send"
	Set Conn = Server.CreateObject("ADODB.Connection")
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Conn.Open dsn
	SQL = "SELECT emails from emails order by id"
	rs.open sql,conn
	do while not rs.eof
		emails=rs("emails")
		remetente = request.form("remetente")
		subject = request.form("subject")
		comm = request.form("comm")
		

		Dim objCDO
		Set objCDO = Server.CreateObject("CDONTS.NewMail")
			objCDO.From = remetente 
		objCDO.To = emails
		objCDO.BodyFormat = 0 
		objCDO.MailFormat = 0
		objCDO.AttachFile "e:\home\lestemais\Web\Marcos\Logomarca.jpg"
		objCDO.Subject = subject
		objCDO.Body = comm
		objCDO.Send
		rs.movenext
			
		
	loop
	set objCDO = nothing
	rs.close
	set rs = nothing
	conn.close
	set conn = nothing
	response.write "<script>alert('Enviado com sucesso!');"
	response.write "location.href='index.asp'</script>"
	response.end
end select
rs.close
	set rs = nothing
	conn.close
	set conn = nothing
%>
<HTML>
<HEAD>
<script>
function openwin()
{
	NewWindow =window.open("hebrew.htm","hebrew","width=500,height=200")
}
function submitit(){
var email=document.subform.email.value;
if (email==""){
alert("Please type your Email")
document.subform.email.focus()
return false
	}
if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){ alert("No valid e-mail address!");
		document.subform.email.focus()
		return false
		}
}

</script>
<style>
BODY
{	BACKGROUND-COLOR: white;font-size:14px;font-family:Arial,Verdana;}
a{color:blue;text-decoration:none;}
a:hover{color:red;text-decoration:underline;}
td{font-size:12px;font-family:Arial,Verdana;}
.inputSubmit{font-size:7pt;color:white;background-color: black;BORDER-BOTTOM: 1px solid;BORDER-LEFT: 1px solid;BORDER-RIGHT: 1px solid;BORDER-TOP: 1px solid;z-index:10;}
.inputBut{font-family:Arial,Verdana;font-size:10pt;background-color: white;BORDER-BOTTOM: 1px solid;BORDER-LEFT: 1px solid;
BORDER-RIGHT: 1px solid;BORDER-TOP: 1px solid;z-index:10;}

</style>
<TITLE>Enviar</TITLE>

</HEAD>
<BODY BGCOLOR=#FFFFFF>
<form action="index.asp?action=send" method="post">
  <div align="center"><strong>	Remetente / Email </strong>:<br>
	<input class="inputBut" type="text" name="remetente" size=60 maxlength=300>
	<strong><br>
	<br>
	Assunto</strong>:<br> 
  <input class="inputBut" type="text" name="subject" size=60 maxlength=300>
  <br>
  <br>
  <strong>Mensagem</strong>:
  <br>
  <textarea name="comm" cols=70 rows=20 wrap="VIRTUAL" class="inputBut"></textarea>
  <br>
  <input type=submit class="inputSubmit" name=submit value="Send">
  </div>
</form>
<p align="center">Total : <%=totalMails%></p>

</BODY>
</HTML>

 

Sem o anexo ele envia para minha lista completa. cerca de 17mil sem problema algum

[Jow Xavier 0]

o seu código tá correto ... verifica com a locaweb ... deve ser a quantidade de mail, talvez seja por isso

[hargon 64]

Testei aqui, sempre exibe a mensagem que foi enviado com sucesso.

[marcosalmeida 0]

Estranho! no banco de dados tem apenas dois contatos!

Irei verificar no provedor e retorno.