ik heb onderstaande code in elkaar gedraaid.
Selection.AutoFilter Field:=1, Criteria1:="Afdeling 1"
Sheets("Afdeling").Select
Sheets("Afdeling").Copy
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close
End Sub
Hier wordt in een excel werkblad een selectie gemaakt, deze selectie wordt vervolgens geselecteerd en naar een nieuw werkblad gekopieerd. Hierna wordt Outlook opgestart, en wordt het werkblad als attachment opgenomen in het mailtje.
Wat nu mijn vraag is: Normaal is het mogelijk om bij een SendMail ook de recipients en het subject op te geven. Dit lukt me nu niet. Normaal kan dit via SendMail Recipients:="blaat@bla.com" Subject:="Excelblaaat"
Wat me ook niet lukt is om Outlook en m'n temp. excelwerkblad af te sluiten. Iemand een ideetje?
Selection.AutoFilter Field:=1, Criteria1:="Afdeling 1"
Sheets("Afdeling").Select
Sheets("Afdeling").Copy
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close
End Sub
Hier wordt in een excel werkblad een selectie gemaakt, deze selectie wordt vervolgens geselecteerd en naar een nieuw werkblad gekopieerd. Hierna wordt Outlook opgestart, en wordt het werkblad als attachment opgenomen in het mailtje.
Wat nu mijn vraag is: Normaal is het mogelijk om bij een SendMail ook de recipients en het subject op te geven. Dit lukt me nu niet. Normaal kan dit via SendMail Recipients:="blaat@bla.com" Subject:="Excelblaaat"
Wat me ook niet lukt is om Outlook en m'n temp. excelwerkblad af te sluiten. Iemand een ideetje?