ich habe eine Userform, die u.a. einen Button enthält, default ist false, wenn der Button auf True gesetzt wird und die Userform das nächste mal aufgerufen wird, wird zwar korrekterweise der Buton mit dem Wert True angezeigt, leider aber auch die Ereignisse die an die Click / Change (spielt keine Rolle welches ereignis ich verwende, Effekt tritt immer auf) Eigenschaft gekoppelt sind, ausgeführt. Das soll aber nicht passieren, die ereignisse sollen nur ausgeführt werden, wenn der User den Button betätigt.
Es handelt sich um diesen Code (speziell das versenden der Mail)
Private Sub ToggleButton44_Click()
' Steuerung Toggle Button 44
If ToggleButton44.Value = True Then
ToggleButton44.Caption = "JA"
ToggleButton44.BackColor = &HFF00& 'grün
Label521.Caption = "Sign - Off erteilt am " & Format(Now, "dd.mm.yy")
Sheets("Report").Range("SO_OFI").Value = "Sign - Off erteilt am " & Format(Now, "dd.mm.yy")
Sheets("Report").Range("SO_OFI").Font.Color = &HFF00&
Sheets("Report").Range("SO_OFI").Font.Bold = True
Else
ToggleButton44.Caption = "NEIN"
ToggleButton44.BackColor = &HFF& 'rot
Label521.Caption = "Sign - Off noch ausstehend"
Sheets("Report").Range("SO_OFI").Value = "Sign - Off noch ausstehend"
Sheets("Report").Range("SO_OFI").Font.Color = &HFF&
Sheets("Report").Range("SO_OFI").Font.Bold = True
End If
End Sub
Dieser Teil des Codes funktioniert einwandfrei. den folgenden Teil habe ich sowohl unter dem Click wie (im folgenden) unter dem Change ereignis ausgeführt. Mit immer dem gleichen Ergebnis, dass die Mail beim éffnen versendet wird, wenn der Wert True ist
Private Sub ToggleButton44_Change()
If ToggleButton44 = True Then
Dim MyMessage As Object
Dim MyOutApp As Object
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "User@server.com"
.Subject = "SignOff " & Date & Time
.Body = "test"
.Send
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
Else
End If
End Sub
Wie erreiche ich, das die Mail nur beim Betaetigen des Buttons durch den User, nicht aber beim Oeffnen der Userform versendet wird?
Merci für Eure Hilfe
Viele Grüsse
Boris