code om een werkblad te mailen

[Christophe1]

Goede morgen allemaal

Na wat zoekwerk op deze site kwam ik hier terecht. Ik had hier wel wat hulp aan.
Nu heb ik daar een vraagje over:
Ik heb de code om een werkblad te mailen wat gepuzzeld met de tips en ik kom het volgende uit:

Sub OPSLAAN_Click()

With ActiveWorkbook
.Sheets("Historiek Commissies").Copy

 With ActiveWorkbook
.SendMail "christophe@xxx.be"
.Subject = "overzicht"
 .Close False
        End With
    End With

End Sub

Dat werkt, ik kan mailen maar het lukt mij niet om een onderwerp te geven aan de mail, ik krijg gewoon de naam van de map die aangemaakt is: "Map4.xls" bijvoorbeeld.
Is er iemand die ziet waar ik fout zit a.u.b.?
Alvast bedankt voor de tip.
Groetjes
Christophe

 

[edmoor]

Doe het eens zo:

Sub OPSLAAN_Click()
    ThisWorkbook.Sheets("Historiek Commissies").Copy
    With ActiveWorkbook
        .SendMail "christophe@xxx.be", "Onderwerp"
        .Close False
    End With
End Sub

 

[Christophe1]

Bedankt voor de snelle reactie.
Jammer genoeg werkt het ook niet, ik krijg wel de mail met de bijlage maar geen onderwerp.
Hiermee ook niet meer de naam van de map.

 

[edmoor]

Het werkt hier anders prima.

 

[Christophe1]

Zou eventueel een instelling kunnen zijn op mijn pc of op de server?
Als ik als onderwerp "Historiek" zet krijg ik als onderwerp in de mail een vierkantje...

 

[edmoor]

Geen idee, ik krijg het hier niet stuk:

 

[Christophe1]

Zal niet aan de macro liggen dan, waarschijnlijk aan de versie van Outlook, Excel, Server, ... weet ik veel.
In ieder geval bedankt, dankzij deze site ben ik in ieder geval goed geholpen.

 

[edmoor]

Plaats anders je document eens waarin dat gebeurt.

 

[Christophe1]

Ik heb een foto toegevoegd van wat ik nu krijg als onderwerp...

 

[edmoor]

Ook met dat document gaat het hier gewoon goed.
Geen idee waarom dat bij jou mis gaat.
De code is in ieder geval goed.

 

[huijb]

@ Christophe1 Het is niet toegestaan en zeker niet netjes om jouw probleem in iemand anders zijn vraag te plaatsen, daarom je vraag een eigen plek gegeven.