VBA-Beispiel 003
mail schreiben
mail schreiben

CD-Laufwerk öffnen/schließen

Durch das erste Makro wird das CD-ROM Laufwerk geöffnet,
mit dem zweiten wieder geschlossen.
Option Explicit

Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

Sub CD_oeffnen()
   Call mciExecute("Set CDaudio door open")
End Sub

Sub CD_schliessen()
   Call mciExecute("Set CDaudio door closed")
End Sub

Download:   vba003.zip