VBA foutje versturen mail alleen maandag

[lsp1972]

Hoi,

ik gebruik de volgende code in VBA om een bepaald Excel blad te versturen.

If Weekday(Now, vbMonday) Then
        Application.OnTime TimeValue("09:30:00"), "SendWorkSheet"
    End If

Dit zou dus alleen op maandag moeten op dat tijdstip.. Nu wordt ook vandaag de mail verstuurd.

De actie voor het versturen van de mail staat onder Module 3 en de bovenstaande code in "thisworkbook"

Wat zou er mis kunnen gaan?

 

[edmoor]

Daarmee geef je alleen aan wat als eerste dag van de week moet worden gebruikt.
Maak er eens dit van:

If Weekday(Now) = 2 Then

Of:

If Format(Now(), "dddd") = "maandag" Then

 

[lsp1972]

Maak er eens dit van:

If Weekday(Now) = 2 Then

Of:

If Format(Now(), "dddd") = "maandag" Then

Thnx.. zal het even proberen en laat het volgende week horen :d

 

[snb]

Vervang jouw code door:

Private Sub Workbook_open()
  if datepart("w",date)=2 then SendWorkSheet
End Sub

En beter nog: zet die code van sendworksheet gewoon in de gebeurtenis Workbook_open.

 

[edmoor]

Dan wordt de mail wel verstuurd telkens al je het document op een maandag opent.
Dus 5x openen op een maandag is dan 5x mail versturen.

 

[snb]

Dan kun je het bestand beter open laten staan.