|
Makro automatisch alle 10 Minuten starten
|
| Autor |
Nachricht |
Erwin1
Gast
Verfasst am: 17. Sep 2007, 10:01 Rufname:
|
|
| Version: Office 2007 |
|
Hallo!
Möchte ein Makro automatisch alle 10 Minuten starten, so wie es in Excel mit Application.OnTime möglich ist.
Danke für Eure Hilfe.
|
|
Michael Bauer
MVP Outlook
Verfasst am: 18. Sep 2007, 06:56 Rufname:
Wohnort: Vollersode
|
| |
| Version: Office 2007 |
|
Solange Outlook läuft, geht das mit einem Timer
_________________ Michael Bauer
. Get Things Done
|
|
Gast
Verfasst am: 18. Sep 2007, 13:45 Rufname:
|
|
| Version: Office 2007 |
|
Danke für deinen Tip
|
|
mk.kanzler
Im Profil kannst Du frei den Rang ändern
Verfasst am: 19. Sep 2007, 12:27 Rufname:
|
|
| Version: Office 2007 |
|
Hi,
hab das auch probiert. allerdings steigt der parser in folgendem codeabschnitt (option explicit) aus und gibt die fehlermeldung:
"Nach End Sub, End Function oder End Property können nur Kommentare stehen."
Was mache ich falsch?
| Code: | Private Sub Application_Quit()
DisableTimer
End Sub
' <Modul: modTimer.bas>
Option Explicit
Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
Const WM_TIMER = &H113
Private hEvent As Long
Private m_oCallback As Object
|
Vielen Dank
Mario
|
|
Andreas.Fischer
Outlook - Moderator

Verfasst am: 19. Sep 2007, 13:12 Rufname:
Wohnort: Berlin
|
|
| Version: Office 2007 |
|
Hallo,
Hast du den Code modtimer.bas auch richtig übernommen oder fehlt da eventuell was? Kontrolliere bitte nochmal nach.
_________________ Gruß Andreas
Das besondere Erleben.
|
|
mk.kanzler
Im Profil kannst Du frei den Rang ändern
Verfasst am: 19. Sep 2007, 13:49 Rufname:
|
|
| Version: Office 2007 |
|
hi,
hier ist der komplette code, den ich 1:1 kopiert habe.
| Code: | Private Sub Application_Startup()
EnableTimer 60000, Me
End Sub
Public Sub Timer()
' Called from the timer
End Sub
Private Sub Application_Quit()
DisableTimer
End Sub
' <Modul: modTimer.bas>
Option Explicit
Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
Const WM_TIMER = &H113
Private hEvent As Long
Private m_oCallback As Object
Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long _
)
If uMsg = WM_TIMER Then
m_oCallback.Timer
End If
End Sub
Public Function EnableTimer(ByVal msInterval As Long, oCallback As Object) As Boolean
If hEvent <> 0 Then
Exit Function
End If
hEvent = SetTimer(0&, 0&, msInterval, AddressOf TimerProc)
Set m_oCallback = oCallback
EnableTimer = CBool(hEvent)
End Function
Public Function DisableTimer()
If hEvent = 0 Then
Exit Function
End If
KillTimer 0&, hEvent
hEvent = 0
End Function
' <modTimer.bas> |
|
|
mk.kanzler
Im Profil kannst Du frei den Rang ändern
Verfasst am: 19. Sep 2007, 13:53 Rufname:
|
| |
| Version: Office 2007 |
|
ok, sorry, hab den fehler gefunden.
es war nur die falsche anordnung. hatte vergessen die einzelnen funktionen in ein modul zu kopieren.
jetzt klappts.
vielen dank
|
|
Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum nicht posten Du kannst Dateien in diesem Forum herunterladen
|
| |

|
|
| Verwandte Themen |
| Forum / Themen |
Antworten |
Autor |
Aufrufe |
Letzter Beitrag |
 |
Outlook VBA und Formulare: EMails je nach Betreff per Makro verschieben |
2 |
kmo300 |
345 |
06. Apr 2010, 12:20 kmo300  |
 |
Outlook VBA und Formulare: In Formular automatisch Signatur einfügen lassen |
7 |
joker2k |
584 |
06. Jan 2010, 10:46 Andreas.Fischer  |
 |
Outlook VBA und Formulare: Makro -> Teilnehmer nicht benachrichtigen |
0 |
Officeler99 |
118 |
04. Jan 2010, 12:59 Officeler99  |
 |
Outlook Kalender: Kalenderdatei in Outlook automatisch updaten |
0 |
Cheese2707 |
126 |
16. Okt 2009, 12:35 Cheese2707  |
 |
Outlook VBA und Formulare: Drag and Drop Makro auslösen |
1 |
Nuyshen |
525 |
19. Jun 2009, 11:38 Michael Bauer  |
 |
Outlook VBA und Formulare: Über ein Makro Regeln regelmäßig "manuell" aktivie |
0 |
SDonth |
437 |
08. Jun 2009, 20:10 SDonth  |
 |
Outlook Kalender: Zweiten Kalender automatisch mitpflegen (Unternehmenskal) |
1 |
amanecer |
477 |
06. Mai 2009, 11:49 amanecer  |
 |
Outlook Mail: Mail kommen nicht automatisch |
20 |
Andreasd |
4319 |
24. März 2009, 13:27 Zufall !!  |
 |
Outlook VBA und Formulare: Makro als vordefinirte Aktion verwenden |
0 |
no_idea |
218 |
31. Jan 2009, 11:59 no_idea  |
 |
Outlook VBA und Formulare: Aus Outlook Excelmakro starten/übergeben |
1 |
Saft |
219 |
09. Jan 2009, 13:03 Michael Bauer  |
 |
Outlook Kalender: Fenster Termin automatisch öffnen (ohne VBA) |
2 |
lisazentrum |
321 |
05. Mai 2008, 09:53 lisazentrum  |
 |
Outlook VBA und Formulare: Outlook 2003 Kalender Makro |
0 |
DennisSt |
835 |
28. Sep 2007, 12:45 DennisSt  |
| |
|