Excel 2K7 - send workbook as PDF

[lamexuk]

Greetings All,

Sincerest apologies if this has been addressed previously but I am attempting to send my workbook as a PDF via Outlook using a command button.

My VBA is not very developed.
To the extent where I have simply recorded the steps manually and attempted to tweak the following code:

' START OF CODE
'
Sheets(Array("Summary", "Not Shipped", "Shipments by Contract No", _
"Shipments by ETA", "Rowse Inventory")).Select
Sheets("Summary").Activate
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\svr-fp01\rowsetmp\Contract Summary.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub

What is happening though, is that, whereas it creates a .pdf file in the directory (\\svr-fp01\rowsetmp\ , it does not attach the .pdf but rather attaches the workbook, which is not what I want.

If anyone could shed any light it would be greatly appreciated.

Many thanks in advance for your help!

[arthurbr]

Hi and welcome to the board

First add code tags around your code as described in the forum rules

Then look at this site