Automatische mail met Lotus Notes

[noukietje]

Hallo,

Ik zou willen als er iets wordt veranderd in mijn sheet dat er automatisch een mail wordt verstuurd. Ik heb gevonden dat dit mogelijk is in combinatie met outlook maar kan dit ook met Lotus Notes?

Concreet zou ik willen als iemand in zijn verlofblad "V" invult op een bepaalde datum dat er automatisch een mail wordt verstuurd naar zijn verantwoordelijke ter goedkeuring.

Alvast bedankt voor de info.

Groeten,
Julie

 

[Roncancio]

Op deze site staat code voor verzenden mbv Lotus Notes vanuit Excel.
Automatisch verzenden kan mbv Worksheet_Change.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "Y" Then
'Code

End If
End Sub

Met vriendelijke groet,


Roncancio

 

[noukietje]

Kan er ook nog een stap verder in worden gegaan. Dat bijvoorbeeld de mail vraagt voor een akkoord en de cellen zo definitief worden ingevuld of is dit onmogelijk?

 

[Roncancio]

Indien een Y of y wordt ingevuld, verschijnt een melding met een vraag.
Als de gebruiker op Ja klikt, verschijnt de melding Verzonden.
Hierboven kan je de aangepaste code plaatsen die ik eerder heb verzonden.

Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Target.Value) = "Y" Then
    If MsgBox("Moet het bestand verzonden worden?" & vbNewLine & vbNewLine & "Klik op Ja indien u het bestand wil verzenden." & vbNewLine & "Klik op Nee indien u het bestand niet wil verzenden.", vbYesNo + vbQuestion, "Bestand verzenden.") = vbYes Then
        'code
        MsgBox "Verzonden"
    End If
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[noukietje]

Bedankt!