[Resolvido] gerar pdf e enviar por email

[xanburzum 169]

gerar pdf e enviar o arquivo via email usando cdonts

 

 

 

 

<!--METADATA TYPE="TypeLib" UUID="{414FEE4B-2879-4090-957E-423567FFCFC6}"-->
<%
' Início - Mostrar Contrato : Gerar PDF '
	Dim Pdf, Doc, Page
	Set Pdf = Server.CreateObject("Persits.Pdf")
	Set Doc = Pdf.CreateDocument

		Doc.ImportFromUrl "http://www.google.com.br/", "landscape=true"
		Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy)

		For Each Page In Doc.Pages
			Page.Canvas.DrawText "Pág."&Page.Index&"/"&Doc.Pages.Count&"", "x=15, y=20", Doc.Fonts("Arial")
		Next
 		
	nm_Arquivo = Doc.Save( Server.MapPath("relatorio.pdf"), False )
	
	'Doc.SaveHttp("attachment; filename=Relatorio.pdf")

'*****************************************************
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

	'e-mail do remetente
	 objCDOSYSMail.From = "Email <email@email.com.br>"
	'e-mail do destinatário
	 objCDOSYSMail.To = "Email <email@email.com.br>"
	' objCDOSYSMail.BCC = "Giovani Gmail <giovanicaf@gmail.com>, Giovani SECULT <giovani@secult.ce.gov.br>"
	'assunto da mensagem
	 objCDOSYSMail.Subject = "Teste de envio de e-mail"
	'objCDOSYSMail.TextBody = strBody
	'para envio da mensagem no formato html altere o TextBody para HtmlBody
	 objCDOSYSMail.HtmlBody = "Verifique o anexo"
	 objCDOSYSMail.AddAttachment(Server.MapPath(nm_Arquivo))
	 On Error Resume Next
	'envia o e-mail
	 objCDOSYSMail.Send
	 
	 if Err <> 0 Then
	  Response.Write "Ouve um erro ao enviar o e-mail: " & Err.Description
	  Response.end
	 else
	  Response.Write "<script language='javascript'>"
	  Response.Write " alert('Email enviado com sucesso!');"
	  Response.Write "</script>"
	 end If
	 
	'destrói os objetos
	Set objCDOSYSMail = Nothing
	Set objCDOSYSCon = Nothing


	' Deletando o arquivo depois de enviar
	
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	
	If Fso.FileExists(Server.MapPath(nm_Arquivo)) Then
		Set arquivo = FSO.GetFile(Server.MapPath(nm_Arquivo))
		arquivo.delete
	end if

%>