Save in VBA and send with Outlook

[KlausW]

Hi Excel helpers
Is it possible to make this VBA code so that it only stores the tabs I have written in the code. And under a name in cell B, in PDF format.
Is it also possible to make the code so that after saving it will send, using Outlook, to an email address in cell H1.
All help will be appreciated
Klaus W

Sub Rektangelafrundedehjørner1_Klik()

 'Create and assign variables
Dim saveLocation As String
saveLocation = "C:\Users\k-wit\Documents\Rejseafregning\myPDFFile.pdf"
sheetArray = Array("Rejsebeskrivelse", "Koerselsrapport ", "Færgekort", "Billeter")
'Save active workbook as PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub

 

[Logit]

Ok ... if you are still receiving an error message due to that line of code, you can delete that line of code. It should not have
a negative effect on the rest of the macro.

 

[KlausW]

Ok ... if you are still receiving an error message due to that line of code, you can delete that line of code. It should not have
a negative effect on the rest of the macro.

Good morning from Denmark, what happens when the other part of the macro does not run is that I can not send. But I can only send it manually from outlook. Best regards Klaus W

 

[KlausW]

Change it to : Sheet1.Select

See if that works.

Thank U very much its work KW

 

[Logit]

Glad it works. Best wishes.
Cheers !