sheet verjaardag opnemen in mailmodule

[drubbus]

Ik heb een bestand hiergevonden,. die een mail genereerd als er iemand jarig is
werkt fantastisch als zelfstandig blad

Nu heb ik dit blad ( verjaardag ) in het rooster geplaatst.
Echter nu neemt hij de celwaarde over van een ander blad

kortom in de module mailcode moet ook het sheet aangegeven worden maar ik heb geen idee

Wie helpt mij verder

Bekijk bijlage verjaardag.xlsm

mijn dank is groot

 

[edmoor]

Wijzig het stukje waar staat: strbody = eens in dit:

With Sheets("Verjaardag")
    strbody = "Hallo backoffice, " & vbNewLine & vbNewLine & _
          "De volgende medewerker is jarig:   " & .Cells(FormulaCell.Row, "B").Value & _
          " " & vbNewLine & _
          vbNewLine & vbNewLine & "op datum " & .Cells(FormulaCell.Row, "A").Value & _
          vbNewLine & vbNewLine & "Graag bloemen bestellen voor " & .Cells(FormulaCell.Row, "B").Value & _
          vbNewLine & vbNewLine & "Als er geen naam in deze mail staat kun je de bijlage openen" & _
          vbNewLine & vbNewLine & "Mail gegenereerd vanuit het Rooster 2016."
End With

 

[Cobbe]

Zie eens of dit voldoet.

 

[drubbus]

top heren ,
beide werken

Heel blij mee