emails maar 1 keer versturen

[Lachie]

Hoi,
Ik heb wat geschreven in excel met een userform om e-mails te verzenden.
Dit gebeurd door het indrukken van een commandoknop .
Het probleem dat ik heb is dat de file gebruikt word door meerdere collega's en de emails mogen maar één keer per dag verstuurt worden .
Hoe kan ik de knop na verzenden disablen tot de volgende dag?
Alvast heel erg bedankt voor jullie reactie.

 

[Wigi]

In de code van de commandbutton zal je op het einde de datum van vandaag moeten wegschrijven in een of andere cel. Zo:

Sheets("naamvandesheet").Range("adresvandecel").Value = Date

Vervolgens test je ook aan het begin van de code of die datum (die je uitleest) gelijk is aan de datum van vandaag (Date dus). Indien gelijk: Exit Sub. Indien ongelijk, ga verder met rest van de code.

Ik denk dat dit wel goed doenbaar is als je al een hele userform + mailcode in elkaar kan steken :thumb:

Wigi

 

[Lachie]

he wigi , thx so much 8)
Daar had ik nou net niet aangedacht .
Ik heb nog niet veel met datums moeten werken .
Toch es tijd dat ik daar werk van maak

 

[Wigi]

Dat is een goed idee

Voor nu mag je de vraag nog op opgelost zetten aub.

 

[snb]

De customdocumentproperties lijken mij hiervoor bij uitstek geschikt.

Maak er een met

    ActiveWorkbook.CustomDocumentProperties.Add "email", False, msoPropertyTypeDate, Date

Zet in de emailverzendknop:

Private Sub knop_email_Click
   ActiveWorkbook.CustomDocumentProperties("email") = Date
End Sub

Zet in de Userform

Private Sub Userform_Initialize()
  knop_email.visible=not ActiveWorkbook.CustomDocumentProperties("email") =date
End Sub

 

[Lachie]

Wauw ,hehehehe
Dat ga ik ook eens proberen
Bedankt.

P.S. Hoe zet ik de vraag op opgelost?