Private Sub mnuLookforMails_Click() 'Nach Mails gucken
'On Error Resume Next
 
Dim oIni As IniBaustein.CIniDatei
Set oIni = New IniBaustein.CIniDatei
 
IniPfad = App.Path & " \ Settings.ini"
 
Shell = oIni.WertLesen("Programme", "Mail")
End Sub

Private Sub cmdSpeichern_Click()
 
Dim oIni As IniBaustein.CIniDatei
Set oIni = New IniBaustein.CIniDatei
With oIni
.IniPfad = App.Path & " \ Settings.ini"
 
.WertSchreiben "Programme", "Mail", txtMail.Text
 
End With
End Sub