• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Automatische email bij verstrijken tijd

Status
Niet open voor verdere reacties.
H

Hees

Gebruiker
Lid geworden
1 nov 2006
Berichten
6
Beste forumgebruikers,

Ik ben op zoek naar een VBA code om automatisch een email te generen vanuit Excel met Outlook na het verstrijken van een bepaalde tijd.
Zouden jullie mij kunnen helpen. Zie hiervoor bijgevoegd bestand.
Super bedankt!
 

Bijlagen

  • Tijd en outlook.xlsx
    9,7 KB · Weergaven: 55
Hierbij...

Tot stand gekomen door
ThisWorkbook:
Code: 
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:01"), "update"
End Sub
Module:
Code: 
Sub update()
    Sheets(1).Range("B1") = Now
    Application.OnTime Now + TimeValue("00:01:00"), "update"
End Sub
Blad1:
Code: 
Private Sub Worksheet_Change(ByVal target As Range)
    If target.Address = "$B$1" Then
        For Each v In Range("C3:C" & Range("C" & Rows.Count).End(xlUp).Row)
            If TimeValue(Format(target, "hh:mm:ss")) > TimeValue(Format(v, "hh:mm:ss")) Then
                With CreateObject("Outlook.Application").CreateItem(0)
                    .Display 'om je eventuele HTML handtekening te tonen
                    .To = v.Offset(, 1)
                    .Subject = "Tijd verstreken"
                    '.Attachments.Add voor eventuele bijlages
                    .Display 'of Send
                End With
            End If
        Next
    End If
End Sub
 

Bijlagen

  • Tijd%20en%20outlook(1).xlsm
    19,2 KB · Weergaven: 72
Laatst bewerkt:
Bedankt voor je reactie Spaarie. Ik heb in plaats van een automatische email besloten om een messagebox te laten openen in geval dat de tijd verstreken is. Ik krijg nu echter de volgende melding;

Fout 13 tijdens uitvoering: Typen komen niet overeen met elkaar.

Op deze regel

If TimeValue(Format(target, "hh:mm:ss")) > TimeValue(Format(v, "hh:mm:ss"))Then

Wat kan hier de reden van zijn?
 
De regel zelf is correct opgebouwd. Ik vermoed dat het de 'target' of 'v' die de fout veroorzaakt.
Plaats de gehele code eens, dan kan ik ook ff kieken...
 
Zie hieronder de code Spaarie;

ThisWorkbook:

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:01"), "update"
End Sub


Module:

Sub update()
Sheets("Stap 1 Invulformulier").Range("$D$1") = Now
Application.OnTime Now + TimeValue("00:01:00"), "update"
End Sub


Sheet(Stap 1 Invulformulier)

Private Sub Worksheet_Change(ByVal target As Range)
If target.Address = "$D$1" Then
For Each v In Range("W7:W" & Range("W" & Rows.Count).End(xlUp).Row)
If TimeValue(Format(target, "hh:mm:ss")) > TimeValue(Format(v, "hh:mm:ss")) Then
MsgBox ("Let op openstaande melding!")
End If
Next
End If
End Sub
 
Kun je de volgende keer gebruik maken van de code tags? B.v.d.
Probeer dit eens
Code: 
Private Sub Worksheet_Change(ByVal target As Range)
If target.Address = "$D$1" Then
For Each v In Range("W7:W" & Range("W" & Rows.Count).End(xlUp).Row)
If v = "" Then Exit For
On Error Resume Next
If TimeValue(Format(target, "hh:mm:ss")) > TimeValue(Format(v, "hh:mm:ss")) Then MsgBox ("Let op openstaande melding!")
Next
End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan