[VBA] Wysyłanie maila przez SMTP z CDO - problem z autoryzacją w Excelu

    intSendMode = 2 ' use port to launch send, not a local dir or Exchange svr.
    intSMTPAuth = 2 ' use basic authentication
    boolUseSSL = True ' true
    
    Dim iMsg As Object
    Dim iConf As Object
    Dim Flds As Variant
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    iConf.Load -1 ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\"
        .Item("http://schemas.microsoft.Com/cdo/configuration/sendusing") = intSendMode
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.poczta.onet.pl"
        .Item("http://schemas.microsoft.Com/cdo/configuration/smtpauthenticate") = intSMTPAuth
        .Item("http://schemas.microsoft.Com/cdo/configuration/sendusername") = "testing3349@onet.pl"
        .Item("http://schemas.microsoft.Com/cdo/configuration/sendpassword") = "testing3349"
        
        .Item("http://schemas.microsoft.Com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.Com/cdo/configuration/smtpusessl") = boolUseSSL
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Update
    End With
    
    strbody = "Sample message " & Time
    
    With iMsg
    Set .Configuration = iConf
    .From = "testing3349@onet.pl"
    .To = "testing3349@onet.pl"
    '.CC = ""
    '.BCC = ""
    ' Note: The reply address is not working if you use this Gmail example
    ' It will use your Gmail address automatic. But you can add this line
    ' to change the reply address .ReplyTo = "Reply@something.Com"
    '.From = "<nikogo>"
    .Subject = "subject"
    .TextBody = strbody
    .Send
    End With