Sub mail..??

Sub sendmail(strEpost, strKlubbNamn, strPass)
Dim MyBody
Dim MyCDONTSMail

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    MyCDONTSMail.From= "icaaq@icqmail.com"
MyCDONTSMail.To= strEpost
MyCDONTSMail.Subject="testar"
MyBody = vbCrLf & vbCrLf
MyBody = MyBody & "testar lite till " 
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
    
End Sub

skulle inte detta funka........

[redigerat]
strKlubbNamn och strPass har jag avsikligt tagit bort(dem finns med i bodyn annars)
[/redigerat]
[redigrat2]
när jag anropar suben använder jag

Call sendmail(strEpost, strKlubbNamn, strPass)

[/redigerat2]