Mail zonder macro's

[verluc]

Heb via dit forum, volgende macro gevonden die doet wat ik er van verlang.Echter zou ik willen dat de macro's niet worden meegestuurd.
Is dit mogelijk en zo ja wie kan mij een aanvulling op deze macro geven waarvoor mijn gewaardeerde dank bij voorbaat.

Sub Send1Sheet_ActiveWorkbook()
ThisWorkbook.Sheets("Portefeuille (10)").Copy
With ActiveWorkbook
.SendMail Recipients:=";;;@;;;;;;.;;", _
Subject:="Portefeuille(10) " & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Sub

 

[robdgr]

Waarom verplaats je de macro niet naar je openingsbestand?

 

[verluc]

Hello Robdgr,

Begrijp niet goed wat U bedoeling is met het verplaatsen?
Met dank.

 

[snb]

Rob bedoelt: waarom eerst een kopie maken.
Als jouw werkboek meer dan 1 werkblad bevat is een kopie natuurlijk voor de hand liggend.
Je vergat te vertellen met welke Excxelversie je werkt.

Sub mail_snb()
  ThisWorkbook.Sheets("Portefeuille (10)").Copy

  With ActiveWorkbook
    .saveas "G:\OF\nieuw.xlsx", 50
    .SendMail Recipients:=";;;@;;;;;;.;;", "Portefeuille(10) " & Format(Date, "dd/mmm/yy")
    .Close False
  End With
End Sub

 

[verluc]

Bedankt SNB;

Mijn werkboek bevat inderdaad meerdere bladen, vandaar de copie
Na aanpassen van de plaats waar dit moet neergezet worden, blijkt het te werken.
Nogmaals bedankt en zet de vraag als 'opgelost'