Отправка сообщения - Компьютерный форум OSzone.net

Надо чтобы открывалось окно где можно ввести email
Потом где можно ввести текст
И дальше надо использовать этот код

Код:

Dim o_Mess, v_Conf

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

Set o_Mess = CreateObject("CDO.Message")

With o_Mess

    .To = "Test@mail.ru" 'куда отправляем

    .From = "Test <Test@gmail.com>" 'имя отправителя + Email

    .Subject = "Test" 'Тема письма

    .TextBody = "a b " ' Здесь сообщение

    .TextBodyPart.Charset = "UTF-8" 'русская кодировка

With .Configuration.Fields

    .Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange

    .Item(v_Conf & "smtpserver") = "smtp.gmail.com" 'Адрес SMTP-сервера

    .Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации

    .Item(v_Conf & "sendusername") = "Test" 'здесь имя пользователя без @

    .Item(v_Conf & "sendpassword") = "Test" 'пароль

    .Item(v_Conf & "smtpserverport") = 465 'порт (альтернативный - 465)

    .Item(v_Conf & "smtpusessl") = True 'использовать ли шифрованное подключение SSL

    .Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения

    .Update

End With

    .send 

End With

Set o_Mess = Nothing

И заместо a и b в вводе сообщения ставились email заместо a и текст заместо b