Merhaba Arkadaşlar,
Uzun süredir CDO ile Vba üzerinden gmail kullanarak mail gönderebiliyorduk. Google bey amca daha az güvenli uygulamaların erişimini kapattığı için artık mail gönderimi yapamıyorum. Çözüm için araştırdım fakat somut bir çözüm bulamadım. Yardımcı olabilir misiniz acaba?? 

Function SendMail()

    On Error Resume Next

    Dim iMsg, iConf, Flds, schema, rapor

    Set iMsg = CreateObject("CDO.Message")

    Set iConf = CreateObject("CDO.Configuration")

    Set Flds = iConf.Fields

    schema = "http://schemas.microsoft.com/cdo/configuration/"

    Flds.Item(schema & "sendusing") = 2

    Flds.Item(schema & "smtpserver") = xxxx

    Flds.Item(schema & "smtpserverport") = xxxx

    Flds.Item(schema & "smtpauthenticate") = xxxx

    Flds.Item(schema & "sendusername") = "xxxxxx"

    Flds.Item(schema & "sendpassword") = "xxxxxxxx"

    Flds.Item(schema & "smtpusessl") = xxxx

    Flds.Update



    With iMsg

        .To = xxxx

        .From = xxxx

        .Subject = xxxx

        .HTMLBody = xxxx

        .Sender = "System"

        '.Organization = xxxx

        '.ReplyTo = xxxx



        Set .Configuration = iConf

        .Send



    End With



    Set iMsg = Nothing

    Set iConf = Nothing

    Set Flds = Nothing

End Function