Email versenden

Sub email2()
Range("A10:B9").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Ds ist ein Test Mail." & vbCrLf & "Verusch 1"
.Item.To = "mustermann.karl@gmx.at"
.Item.Subject = "Die aktuellen Daten"
.Item.Send
End With
End Sub

Das funktioniert auch einwandfrei.
Meine Frage ist es jetzt möglich das ich ein Email nicht an die fix vergebenen Email Adressse versende sondern das sich mein outlook öffnet und ich dort im posteingang eine adresse an die es schicken möchte auswählen kann?
ich hoffe ich hab mich klar ausgedrück
Danke!!