Войти

Показать полную графическую версию : Отправка сообщения


idenchik1488@vk
06-07-2017, 15:19
Надо чтобы открывалось окно где можно ввести 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

Iska
06-07-2017, 15:31
How Can I Prompt a User for Input? – Hey, Scripting Guy! Blog (https://blogs.technet.microsoft.com/heyscriptingguy/2004/08/31/how-can-i-prompt-a-user-for-input/)




© OSzone.net 2001-2012