Entladen einer Form

Sub c_h_fax()


Load FaxForm

End Sub

'last edited on 30-4-07 15:47  
Public Function kontakt() As Object


'Variablen für Outlook  
Dim app As Outlook.Application
Dim objactive As Outlook.Inspector
Dim obj_contact As Object

' Es wird eine neue Instanz von Outlook erzeugt  
Set app = New Outlook.Application
Set objactive = app.ActiveInspector


    ' Falls es kein aktives Fenster gibt, wird der Vorgang abgebrochen  
  
  If objactive Is Nothing Then

        MsgBox "Es konnte kein aktives Kontaktfenster gefunden werden. Bitte oeffnen Sie einen Kontakt " & _  
        "und führen Sie die Aktion erneut aus.", vbInformation  
        
        

    ' Falls es ein aktives Fenster gibt, wird dessen Typ in obj_contact gespeichert.  
    
    Else

        Set obj_contact = objactive.CurrentItem
        

        
        ' Verschiedene Kontaktdaten werden ausgelesen, falls das aktuelle Fenster  
        ' ein Kontakt ist; falls nicht wird eine Meldung ausgegeben  
        
        If obj_contact.Class = olContact Then

        
            Set kontakt = obj_contact
              
                              
           
            
    Else
        
        MsgBox "Dies ist kein Kontakt(ContactItem) sondern ein " & TypeName(obj_contact) & ". Bitte oeffnen Sie einen Kontakt.", _  
        vbInformation
            

    End If

End If



End Function

Dim Daten_fax As Object


Private Sub c_fax_Click()

'Cotec-fax  

Call func_word(2, Daten_fax)

Unload FaxForm

End Sub



Private Sub h_fax_Click()

'Habersang-fax  

Call func_word(4, Daten_fax)

Unload FaxForm
End Sub

Private Sub abort_Click()

Unload Faxform

End Sub


Private Sub faxbox_Change()

'Faxnummer  

End Sub


Private Sub txt_betreff_Change()
'Betreff  

End Sub

Public Sub UserForm_initialize()


Set Daten_fax = kontakt()


FaxForm.txt_betreff.Value = "Kein Betreff"  

        FaxForm.faxbox.Value = Daten_fax.BusinessFaxNumber

        FaxForm.Show



End Sub