Не работает отправка почты по примеру из FAQ - Visual Basic .NET

Формулировка задачи:

Пробую отправить таким образом письмо, а в итоге выводит Exception

Dim o_Mess As Object = CreateObject("CDO.Message")
 
        Try
            Const v_Conf As String = "http://schemas.inicrosoft.com/cdo/configuration/"
            o_Mess.BodyPart.CharSet = "Windows-1251" 'Кодировка письма
 
            With o_Mess
                .To = "[email]АДРЕС_ПОЧТЫ[/email]"  'Кому отправляем, например: "[email]removed@mail.ru[/email]"
                .From = "[email]АДРЕС_ПОЧТЫ[/email]" 'Отправитель, например: "[email]removed@mail.ru[/email]"
                .Subject = "Проверка почты" 'Тема письма As String
 
                .TextBody = "ну если все работает - тогда всё получилось!!!!" 'Текст письма As String
 
                .AddAttachment("D:\1.png") 'Вложение1, например: "C:\Attachment1.zip"
                .AddAttachment("D:\2.png") 'Вложение2, например: "C:\Attachment2.jpg"
                .AddAttachment("D:\3.png") 'Вложение3, например: "C:\Attachment3.doc"
 
                With .Configuration.Fields
                    .Item(v_Conf & "sendusing") = 2 'ЗДЕСЬ ОШИБКА????????
                    .Item(v_Conf & "smtpserver") = "smtp.gmail.com" 'Сервер SMTP, например: "smtp.mail.ru"
                    .Item(v_Conf & "smtpauthenticate") = 1
                    .Item(v_Conf & "sendusername") = "[email]АДРЕС_ПОЧТЫ[/email]"   'UserName отправителя, например: "[email]removed@mail.ru[/email]"
                    .Item(v_Conf & "sendpassword") = "ПАРОЛЬ_ПОЧТЫ" 'Password отправителя, например: "0123456789"
                    .Item(v_Conf & "smtpserverport") = 25 'Порт, как в настройках сервера почты
                    .Item(v_Conf & "smtpusessl") = False 'Использовать или нет SSL-Шифрование
                    .Item(v_Conf & "smtpconnectiontimeout") = 60 'Таймаут соединения
                    .Update() 'Обновить коллекцию
                End With
                .Send() 'Отправить письмо
            End With
 
            o_Mess = Nothing
            GC.Collect()
            MsgBox("Письмо отправлено успешно")

        Catch ex As Exception
            MsgBox(ex.Message.ToString)
            o_Mess = Nothing
            GC.Collect()
        End Try

Решение задачи: «Не работает отправка почты по примеру из FAQ»

textual
                            Листинг программы 
                        

                            Function SendEmail()
Dim msg As Object
Dim config As String
Set msg = CreateObject("CDO.Message")
msg.BodyPart.Charset = "windows-1251"
config = "http://schemas.microsoft.com/cdo/configuration/"
    With msg
    .To = "email -Адрес получателя"
    .From = "email - Адрес отправителя"
    .Subject = "Тема письма"
    .TextBody = "Текст письма"
    .AddAttachment ("Файл - Вложение1")
    '.AddAttachment ("Файл - Вложение2")
    With .Configuration.Fields
    .Item(config & "sendusing") = 2
    .Item(config & "smtpserver") = "smtp.gmail.com" 'yandex.ru, mail.ru
    .Item(config & "smtpauthenticate") = 1
    .Item(config & "smtpserverport") = 25
    .Item(config & "sendusername") = "email - Адрес отправителя"
    .Item(config & "sendpassword") = "Пароль от email - почтового ящика"
    .Item(config & "smtpusessl") = True '(yandex.ru, mail.ru =False)
    .Item(config & "smtpconnectiontimeout") = 60
    .Update
    End With
    .send
    End With
Set msg = Nothing
End Function
 
Отправка письма нескольким адресатам.
------------------------------------------------------------------------
    .To = "email -Адрес получателя1, Адрес получателя2, email -Адрес получателя3"
                        