Naam gesplitste sheet in subject outlook laten zien

[Majelles]

Hallo,

Met jullie hulp heb ik een excelbestand weer werkend gekregen :thumb:
ik heb nog 2 wensen maar ik weet niet of die realistisch zijn.
Willen jullie (nog een keer ;-) meekijken?

Hier een link naar het bestand, hij is te groot om hier neer te zetten:


Wens 1: de naam van de gespliste sheet toevoegen in het subject van de e-mail, bijv "ziekenlijst Alkmaar" (naam sheet is Alkmaar)

Wens 2: Send en Receive in outlook op offline zetten (niet uit) zodat ik eerst de e-mails kan checken alvorens ze uit te sturen.

Heel erg bedankt voor jullie moeite!!!!!!!!!!!!

 

[Warme bakkertje]

Wijzig

Mail_Selection Sheets(oCell.Value).Range(oCell.Offset(, 2).Value), oCell.Offset(, 1).Value

naar

Mail_Selection Sheets(oCell.Value).Range(oCell.Offset(, 2).Value), oCell.Offset(, 1).Value, oCell.Value

Sub Mail_Selection(Source As Range, sTo As String)

naar

Sub Mail_Selection(Source As Range, sTo As String, sbjct As String)

.Subject = "ziekenlijst "

naar

.Subject = "ziekenlijst " & sbjct

Krijg je met Display ipv Send niet hetzelfde resultaat om je mails te checken ?

 

[Majelles]

Warm bakkertje, bedankt voor je reactie.
Ik ga het uitproberen!

 

[Majelles]

Warm bakkertje, ik heb het geprobeerd en het werkt!
Super bedankt!!!!!!!!:thumb: