שליחת מייל מאקסס

[ארי]

שלום וברכה.
יש לי קוד VBA לשליחת מיילים שעבד מצוין הרבה זמן.
הקוד הוא:

Public Function Send()
Dim cdoConfig
Dim msgOne

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
    .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
    .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"
    .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"
    .item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Update
End With

Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = "The name <SendTo@gmail.com>"
msgOne.From = "Your Name <YourEmail@gmail.com>"
msgOne.Subject = "Subject"
msgOne.TextBody = "TextBody"
msgOne.Attachment = "Your file path name"
msgOne.Send
End Function

עכשיו כנראה בגלל השינוי במדיניות אבטחה של גוגל הוא לא עובד.
יש למישהו קוד חילופי שעדיין עובד (או אפי' רק רעיון לקוד)?
תודה רבה!

[מלא]

@ארי
צריך להפוך את הכניסה לחשבון גוגל לאימות דו שלבי
ואז להוסיף סיסמה לאפליקציה
וזה עובד חלק

היה על זה אשכול בפורום

[ארי]

@מלא תודה!
עובד חלק.