E-Mailing a File as a PDF - Q
 

I read a recent post in creating a PDF document and was wondering a couple
of things. Code below is taken rom Ron De Bruin and e-mails a sheet called
"E-Mail" in XL format. Is it possible to tweak this to send as a PDF format?

I've tried just changing the ".xls" part below to ".pdf", it e-mails out
fine but you can't open up the file. It returns a message "it is not a
supported file or is corrupted"



Sub Mail_Report()
Dim wb As Workbook
Dim strdate As String
Dim MyArr As Variant
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
Sheets("E-Mail").Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
MyArr = Sheets("E-Mail").Range("BA2:BA15")
.SendMail MyArr, Sheets("E-Mail").Range("BA1").Value
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub

E-Mailing a File as a PDF - Q
 

Hi John

Only changing the extension is not working

There are programs that you can use to create PDF files with code and attach it to the mail.
Excel 2007 can do this and the new mail add-in I create for 2007 have this option also.(not public on this moment)

See this page for code for 2007
http://www.rondebruin.nl/pdf.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"John" wrote in message ...
I read a recent post in creating a PDF document and was wondering a couple of things. Code below is taken rom Ron De Bruin and
e-mails a sheet called "E-Mail" in XL format. Is it possible to tweak this to send as a PDF format?

I've tried just changing the ".xls" part below to ".pdf", it e-mails out fine but you can't open up the file. It returns a message
"it is not a supported file or is corrupted"



Sub Mail_Report()
Dim wb As Workbook
Dim strdate As String
Dim MyArr As Variant
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
Sheets("E-Mail").Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
MyArr = Sheets("E-Mail").Range("BA2:BA15")
.SendMail MyArr, Sheets("E-Mail").Range("BA1").Value
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub