mail sturen op basis van cel

[drubbus]

Ik heb een lijst met medewerkers die om de 2 weken een afwijkende dienst hebben
Deze is apart van het reguliere rooster

Deze collega's moeten onderling kunnen ruilen

Wat ik wil is dat er in kolom E een andere naam kan worden ingevuld en dat er dan een mail uitgestuurd wordt naar 3 personen om deze op de hoogte te houden
Dat zijn de naam in kolom A en E en F als kolom E veranderd




Dank drubbusBekijk bijlage vb.xlsx

 

[drubbus]

ik heb de volgende code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objOL As Object
Dim objMail As Object
On Error Resume Next
Set objOL = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Err.Clear
Set objOL = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set objMail = objOL.CreateItem(0)
With objMail
.To = "cel1@berijf.nl;cel2@bedrijf.nl; cel3 @bedrijf.nl"
.Subject = "LET OP: Calamiteitenrooster " & Target.Value & " gewijzigd"
.Body = "Het Calamiteitenrooster " & " is gewijzigd " & " | deze wijziging is op " & Format(Now, " dd/mm/yy") & " om " & Format(Now, "hh:mm:ss") & " gemaakt." & vbNewLine & " " & vbNewLine & "Vriendelijke groet" & vbNewLine & "Calamiteiten tool"



.display '.Send
End With
Set objOL = Nothing
Set objMail = Nothing
End Sub[/B]

dus deze is opgelost



Graag de emailadressen uit een ander tabblad(2) ophalen zodat er de mogelijkheid ontstaat medewerkers toe tevoegen of verwijderen

nu is dat : .To = "cel1@berijf.nl;cel2@bedrijf.nl; cel3 @bedrijf.nl"

Iemand een sugestie?

 

[drubbus]

toch maar handmatig de mailadressen er in gegooid
tooltje moet namelijk vanavond de lucht in
Maar antwoorden blijven welkom