' im Modul
 
Option Explicit
' zunächst die benötigten API-Deklarationen
Private Declare Function RegOpenKey Lib "advapi32.dll" _
  Alias "RegOpenKeyA" ( _
  ByVal hKey As Long, _
  ByVal lpSubKey As String, _
  phkResult As Long) As Long
 
Private Declare Function RegEnumKey Lib "advapi32.dll" _
  Alias "RegEnumKeyA" ( _
  ByVal hKey As Long, _
  ByVal dwIndex As Long, _
  ByVal lpName As String, _
  ByVal cbName As Long) As Long
 
Private Declare Function RegCloseKey Lib "advapi32.dll" ( _
  ByVal hKey As Long) As Long
 
Private Const HKEY_LOCAL_MACHINE = &H80000002
 
Public bNoOutlook As Boolean

Public Sub Main()[
  ' Prüfen, ob Outlook installiert ist
  Dim sKey As String * 255
  Dim lRegKey As Long
  Dim iKey As Integer
 
  bNoOutlook = True
  RegOpenKey HKEY_LOCAL_MACHINE,   "Software\Clients\Mail", lRegKey
  Do While RegEnumKey(lRegKey, iKey, sKey, 255) = 0
    If InStr(sKey, "Outlook") > 0 Then bNoOutlook = False: Exit Do
    iKey = iKey + 1
  Loop
  RegCloseKey lRegKey
 
  If Not bNoOutlook Then
    ' Nur, falls Outlook installiert ist
    Set myOLApp = CreateObject("Outlook.Application") 
    Set myolNameSpace = myOLApp.GetNamespace("MAPI") 
    Set myolmailitem = myOLApp.CreateItem(olMailItem) 
    Set adocn2 = CreateObject("cdisycn.clsdisycn") 
    myolmailitem.AutoForwarded = True 
    myolNameSpace.Logon   
  End If
End Sub

' Im Programm (Form)
Private Sub Command1_Click() 
  If Not bNoOutlook Then
    ...
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de