Vraag : maak tot het einde!

Ik wil macro/een manuscript hebben die een geluid zullen spelen van een lus voorzagen wanneer de post en wil spel steeds weer wordt ontvangen tot ik e-mail las.  Ik zou ook een knoop op de toolbar willen hebben die het van een lus voorzien tegenhoudt.  BlueDevilFan kwam met dit voor me op de proppen, maar ik hoe te om tot het weet het einde het… geen ideeën te maken?

Private verklaart“ alias „de Lib van de Functie sndPlaySound „winmm.dll sndPlaySoundA“ _
(ByVal lpszSoundName als Koord, ByVal uFlags als lang) als Long

Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_NODEFAULT = &H2
Const SND_SYNC = &H0
Const SND_NOSTOP = &H10
Const SND_MEMORY = Geval
„begin " Sub PlaySoundLoop van LCase van het &H4

het Uitgezochte (strCommand)/> sndPlaySound strSound, SND_LOOP + SND_ASYNC
Geval „einde "
sndPlaySound vbNull, SND_ASYNC
Eind Select
End Sub

'Duplicate deze subroutine voor elke ontvanger u een geluid wilt spelen voor.  Ben zeker om de naam te veranderen. '(Punt als Outlook.MailItem)
'Verandering PlayWarningA/>Sub
PlaySoundLoop „begin“, „C:\Windows\Media\Ding.wav "/> (Punt als Outlook.MailItem)
de 'Verandering PlayWarningB/>Sub
End
PlaySoundLoop „begin“, „C:\Windows\Media\SomeFile .wav "
End Sub

Sub StopWarning ()
PlaySoundLoop „einde "
End Sub

Antwoord : maak tot het einde!

Acronis zegt dat het aan ongelijke hardware kan herstellen - zie dit Acronis artikel http://kb.acronis.com/content/1566