![]() |
|
#1
|
|||
|
|||
![]()
I have a original template file where im typing in data for send offers on products to customers. I have made a button on this template that runs this code under here.
The code makes av saveascopy file on a path on onedrive, but also opens outlook and attachd this excel file in converted pdf. But the button is shown in the pdf that has been converted and on the excel copy file that has been placed on onedrive. I want to keep the button on the template because im gonna send more offers to other customers. See? ![]() But the button wont go away on the pdf or the copied sheet on onedrive. ----------------------------- Private Sub CommandButton1_Click() ' Create PDF of active sheet and send as attachment. ' Dim strPath As String, strFName As String Dim OutApp As Object, OutMail As Object 'Create PDF of active sheet only strPath = Environ$("temp") & "\" 'Or any other path, but include trailing "\" strFName = ActiveWorkbook.Name strFName = Left(strFName, InStrRev(strFName, ".") - 1) & "_" & ActiveSheet.Range("D7") & ".pdf" ActiveWorkbook.SaveCopyAs Filename:="C:\Users\Marius Filtvedt\OneDrive - Omega Industrier AS\1. OMEGA\Omega Østfold\Tilbud kunder\Tilbud Interiør" & "_" & ActiveSheet.Range("D7") & ".xls" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ strPath & strFName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'Set up outlook Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) 'Create message On Error Resume Next ActiveSheet.Shapes("CommandButton1").Delete With OutMail .to = Range("L13") 'Insert required address here ######## .CC = "" .BCC = "" .Subject = "Interiør solskjerming Tilbud" .Body = "" .Attachments.Add strPath & strFName .Display 'Use only during debugging ############################## '.Send 'Uncomment to send e-mail ############################## End With 'Delete any temp files created Kill strPath & strFName On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Show table list by using chek box command and save document on sharepoint by using command button | Zhibek | Word VBA | 3 | 08-16-2018 06:19 PM |
can't remove page break that isn't visible in nonprinted characters | georgiajmj49 | Word | 8 | 07-19-2018 03:27 AM |
Outlook 'Start Page' Command Button | Wobble | Outlook | 0 | 03-31-2015 04:49 AM |
Help with a Command Button | dkohnken | Word VBA | 5 | 03-18-2015 10:13 PM |
Command Button | knp11 | PowerPoint | 2 | 01-18-2015 01:41 PM |