Email über Outlook, Konto ändern

Sub EmailVerschickenKINDERSKIKURS()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
Dim fs As Object
Dim fverz As Object
Dim fdatei As Object
Dim fdateien As Object
i = Zeilennummer
Set outObj = CreateObject("outlook.application")
Set Mail = outObj.createitem(0)
Set fs = CreateObject("scripting.filesystemobject")
If ActiveSheet.Cells(i, 17) = "ja" Then
With Mail
.Subject = "Anmeldung Abt. ........"
.Body = "Hallo Freund des Schneesports!  " & vbLf & _
"" & vbLf & _
.To = Workbooks("......").Worksheets("........").Cells(i - 1, 7).Value
End With
Mail.display
Defaul.ProfileName
Else: Workbooks("anmeldungskikurs").Worksheets("anmeldungskikurs").Cells(i - 1, 23).Value =  _
"nein"
End If
End Sub

Danke für alle Infos.
Gruß
Nico