Hallo liebe Spezialisten,

ich stoße an meine Grenzen.
Ich lese aus einem Tabellenblatt, welches im Verlauf immer aktualisierte Daten enthält, die neusten Daten in eine Userform ein und kann diese mit folgendem Code automatisiert versenden (via> .To = "beispiel@beispiel.com"):

Private Sub CommandButton1_Click()
Dim obNachricht As Object
Dim obMail As Object
Set obMail = CreateObject("Outlook.Application")
Set obNachricht = obMail.CreateItem(0)
With obNachricht

.To = "beispiel@beispiel.com"
.Subject = "Neue Krankmeldung"
.Body = "Hallo, es hat jemand eine neue Krankmeldung gesendet." & vbLf & _
"Wer:" & " " & ComboBox1 & vbLf & "von:" & " " & TextBox1.Value & vbLf & "bis:" & " " & TextBox2.Value & vbLf & "Art:" & " " & _
TextBox3.Value & vbLf & "ärztl. Festgestellt :" & " " & TextBox4.Value & vbLf & "Einrichtung :" & " " & TextBox5.Value & _
vbLf & "wer meldet :" & " " & TextBox6.Value & vbLf & "Bemerkung :" & " " & TextBox7.Value

.send
End With

Set obNachricht = Nothing
Set obMail = Nothing
End Sub

Nun möchte ich dies nicht mehr automatisch machen, sondern vor dem versenden den Adressat der Mail angeben. Ich finde die Lösung dazu nicht. Vielleicht könnt Ihr mir helfen?

Vielen Dank für Eure Unterstützung!
Grüße Holger