Como Eu Posso Mandar Uma Imagem

[Deividy]

Estou tentando fazer uma imagem ir junto como um email em cdonts quero diz\er: como se faz alguém pode me ajudar?

[Deividy]

meu que mer... não funciono

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'AttachURL'

/sp/include/indique.asp, line 21

vou entrar em contato com o servidor pra saber o porque que isso não dá o argumento correto.

[mariofdf]

<%
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "deividy@agenteambiental.com.br"
objMail.To = email
ObjMail.Subject = "Site indicado para: '"&nome&"'"
htmlText = htmlText & "Visite esse site!" & chr(13) & chr(10)
htmlText = htmlText & "<br>" & chr(13) & chr(10)
htmlText = htmlText & "<a href=http://www.site.com.br>www.site.com.br</a>" & chr(13) & chr(10)
objMail.BodyFormat = 0 
objMail.MailFormat = 0
ObjMail.AttachFile Server.MapPath("/sp.gif")
objMail.Body = htmlText
objMail.Send
Set objMail = Nothing
%>

qual é a linha 21

[dark0]

ae deividy:

assim aqui funcionou:

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = "deividy@agenteambiental.com.br"

objMail.To = email

ObjMail.Subject = "Site indicado para: '"&nome&"'"

texto = "Visite esse site!"

texto = texto & vbcrlf

texto = texto & "<a href=http://www.site.com.br>www.site.com.br</a>"

objMail.BodyFormat = 0

objMail.MailFormat = 0

ObjMail.AttachFile Server.MapPath("sp.gif")

ObjMail.Body = texto

objMail.Send

Set objMail = Nothing

%>

coloca assim que funciona!

t+

[mariofdf]

é verdade esqueci de tirar a barra.

[mariofdf]

código aprimorado teste ai....

aqui funcionol direitinho.

<%
Set objMail = Server.CreateObject("CDONTS.NewMail")
Dim objMail, htmlText
objMail.From = "deividy@agenteambiental.com.br"
objMail.To = email
ObjMail.Subject = "Site indicado para: '"&nome&"'"
htmlText = htmlText & "Visite esse site!" & chr(13) & chr(10)
htmlText = htmlText & "<br>" & chr(13) & chr(10)
htmlText = htmlText & "<a href=http://www.site.com.br>www.site.com.br</a>" & chr(13) & chr(10)
objMail.BodyFormat = 0 
objMail.MailFormat = 0
ObjMail.AttachFile Server.MapPath("sp.gif")
objMail.Body = htmlText
objMail.Send
Set objMail = Nothing
%>

[mariofdf]

porque o erro

Mario Teste

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'AttachURL'

/sp/include/indique.asp, line 21

no codigo que te passei o comando é AttachFile e não AttachURL como estava antes

[Deividy]

envio masi a mensagem não apareceu direito.

[dark0]

como assim não apareceu direito?

aqui ficou 100% funcional, e sem erro algum!

eita.. com essa eu até aprendi como instalar o cdonts no iis.. hehehe

t+

[Victor]

Você pode fazer uma função no envio de email e tira o "" com o que vai enviar, ai chama com o call, ai coloca os dados da variavel no call

[]'s

Victor

[mariofdf]

Ai colega, eu testei la pelo seu site e chegou certinho para mim...

Ate mais

[dark0]

Ai colega, eu testei la pelo seu site e chegou certinho para mim...

Ate mais

que site?

[mariofdf]

broder você não esta me entendendo

hehhe

Wrong number of arguments or invalid property assignment: 'AttachURL'

/sp/include/indique.asp, line 22

msg.BodyFormat = 0

msg.MailFormat = 0

msg.AttachURL ("http://www.cohesp.com.br/sp/img/gif/sp.gif"'>http://www.cohesp.com.br/sp/img/gif/sp.gif")

msg.Body = texto

msg.Send

me diz o que esta errado?

http://www.cohesp.com.br/sp

ai dark ele havia postado o endereço da figura eu so fui excluindo ate entrar no site, é o esquema de indicação...

[Deividy]

deu certo sim tranquilo obrigado!

pode fechar o tópico