Hvorfor virker dette ikke ?

Spørgsmål omkring CDO:

Dim objSession
    Dim    objInbox
    Dim objMail
    Dim colMessageInbox
    Dim colMessageOutbox
    Dim name
    Dim mailAdd

    name        = "adsf"
    mailAdd        = "asfd@asdf.DK"

    Set objSession    = CreateObject("CDONTS.Session")
        objSession.LogonSMTP name, mailAdd

    Set objInbox    =    objSession.Inbox
    Set objOutbox    =    objSession.Outbox
   
    Set colMessageInbox        =    objInbox.Messages
    Set colMessageOutbox    =    objOutbox.Messages

    Response.Write (objInbox.name & " antal " & colMessageInbox.count & "<BR>" )
    Response.Write (objOutbox.name & " antal " & colMessageOutbox.count & "<BR>" )

Den udskriver at der kun er 0 mails i den folder men dette PASSER ikke :)