Tenho um sistema rodando em asp na rede interna da empresa... preciso enviar email para fora e estou utilizando o CDONTS, mas preciso enviar alguns arquivos anexados a esse email. alguém sabe como anexar...
<%
Dim objMail
Dim Assinatura
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "raphael@xxx.com.br"
objMail.To = "raphael@xxx.com.br"
'O problema está aqui não sei que caminho devo colocar...
objMail.AttachFile "http://erpfox.netstructure.solutions/cotacoes/COT3614.pdf"
'com esse caminho está dando este erro, que caminho devo colocar???
'erro '80004005'
'Erro não especificado
'/net/gera_email.asp, line 11
objMail.Subject = "Cotação - " & Session("Cad_Id_Cotacao_Mercadoria") & " - " & Request.QueryString("razao")
objMail.Body = "Conforme conversado, segue cotação em anexo." & vbCrLf
objMail.Send
Set objMail = Nothing
%>
Pergunta
raphanasc
Ola,
Tenho um sistema rodando em asp na rede interna da empresa... preciso enviar email para fora e estou utilizando o CDONTS, mas preciso enviar alguns arquivos anexados a esse email. alguém sabe como anexar...
<% Dim objMail Dim Assinatura Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "raphael@xxx.com.br" objMail.To = "raphael@xxx.com.br" 'O problema está aqui não sei que caminho devo colocar... objMail.AttachFile "http://erpfox.netstructure.solutions/cotacoes/COT3614.pdf" 'com esse caminho está dando este erro, que caminho devo colocar??? 'erro '80004005' 'Erro não especificado '/net/gera_email.asp, line 11 objMail.Subject = "Cotação - " & Session("Cad_Id_Cotacao_Mercadoria") & " - " & Request.QueryString("razao") objMail.Body = "Conforme conversado, segue cotação em anexo." & vbCrLf objMail.Send Set objMail = Nothing %>Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.