Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I need to import my Excel Mailing list into mailing label format. | Excel Discussion (Misc queries) | |||
I need to import my Excel Mailing list into mailing label format. | Excel Discussion (Misc queries) | |||
Sri NEED HELP - AUTO MAILING THE FILE WHILE CLOSING | Excel Programming | |||
mailing whole excel file as an attachment. | Excel Discussion (Misc queries) | |||
e-mailing a file from vba | Excel Programming |