1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

подскажите с отправкой почты

Тема в разделе "Помощь по всем вопросам.", создана пользователем dezertir, 6 дек 2017.

  1. TopicStarter Overlay
    dezertir

    dezertir

    Регистрация:
    2 дек 2017
    Сообщения:
    19
    Симпатии:
    2
    подскажите код для отправки письма на емейл по средствам vbs или на крайний случай bat
    пробовал vbs вот таке:
    Код:
    Dim o_Mess, v_Conf
    v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
    Set o_Mess = CreateObject("CDO.Message")
    With o_Mess
       .To = "support@apple.com" 'куда отправляем
        .From = "Alex <xxx@yandex.ru>" 'имя отправителя + Email
        .Subject = "Subj" 'Тема письма
        .TextBody = "BodyMail" 'Сообщение
        .AddAttachment "C:\RemoveDrive.exe" 'Прикрепить файл
        .TextBodyPart.Charset = "windows-1251" 'русская кодировка
    With .Configuration.Fields
        .Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
        .Item(v_Conf & "smtpserver") = "smtp.yandex.ru" 'Адрес SMTP-сервера
        .Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
        .Item(v_Conf & "sendusername") = "xxx" 'здесь имя пользователя без @
        .Item(v_Conf & "sendpassword") = "pass" 'пароль
        .Item(v_Conf & "smtpserverport") = 25 'порт (альтернативный - 465)
        .Item(v_Conf & "smtpusessl") = False 'использовать ли шифрованое подключение SSL
        .Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
        .Update
    End With
        .send
    End With
    Set o_Mess = Nothing
    
    но выдает ошибку "Транспорту не удалось подключиться к серверу"
    я так понимаю нужно юзать защищенное соединение. помогите с написанием кода
     
    Метки:
  2. ResH

    ResH Команда форума

    Регистрация:
    26 июл 2012
    Сообщения:
    1.882
    Симпатии:
    2.332
  3. TopicStarter Overlay
    dezertir

    dezertir

    Регистрация:
    2 дек 2017
    Сообщения:
    19
    Симпатии:
    2
    дядя гугл это конечно хорошо, но у меня такая бойда выскакивает при запуске:
    Usage: D:\send.vbs email subject text, просто как уведомление не ошибка
    Для зашифрованного соеденения разве не нужны библиотеки ?
    долбаная xp ни один скриншотер не могу поставить, ну да хрен с ним
     
  4. TopicStarter Overlay
    dezertir

    dezertir

    Регистрация:
    2 дек 2017
    Сообщения:
    19
    Симпатии:
    2
    а не все норм, нужно было ручки выровнять :D
     
  5. Black_hat_cat

    Black_hat_cat

    Регистрация:
    10 дек 2017
    Сообщения:
    2
    Симпатии:
    0
    Та же проблемка, как исправил? Скинь плз получившийся код. Снимок.JPG
     
  6. TopicStarter Overlay
    dezertir

    dezertir

    Регистрация:
    2 дек 2017
    Сообщения:
    19
    Симпатии:
    2
    создаешь батник
    Код:
    cscript.exe sendemail.vbs "мыло получателя" "тема" "содержание"
    
    в vbs скрипте меняешь только следующие значения

    [​IMG]

    ну и увсе! запускаешь батник и письмо отправляется
    если хочешь скрытый запустк батника делай еще один вбсник вот так
    Код:
    Dim oShell
    Set oShell = WScript.CreateObject ("WSCript.shell")
    oShell.run "send.bat", 0
    Set oShell = Nothing
    
     
  7. Yeehaa

    Yeehaa

    Регистрация:
    8 авг 2017
    Сообщения:
    16
    Симпатии:
    2
    [​IMG]
    Какие скрипты? вы клавиатуру изучите
    Войти или зарегистрироваться, чтобы увидеть ссылку.
     
  8. TopicStarter Overlay
    dezertir

    dezertir

    Регистрация:
    2 дек 2017
    Сообщения:
    19
    Симпатии:
    2
    сразу видно сверхразум, с чего ты взял что я не знал про существовании принтскрин? может это просто корявое говно которым в 18к году не стоит пользоваться, отдавая предпочтение нормальному софту по захвату экрана и загрузкой скрина на хостинг в 1 клик ?
    К чему ты это вообще выдал ? если тебе 16 лет, все ясно
     
  9. Black_hat_cat

    Black_hat_cat

    Регистрация:
    10 дек 2017
    Сообщения:
    2
    Симпатии:
    0
    Выдавало Ошибку 0x80040217 (почтовик не даваёт доступ для отправки)
    Чтобы исправить, нужно разрешить на почтовом ящике в настройках.
    Теперь всё работает! <3
     

    Вложения:

  10. ResH

    ResH Команда форума

    Регистрация:
    26 июл 2012
    Сообщения:
    1.882
    Симпатии:
    2.332
    Да, сли шлете через гмаил нужно включать доступ к непроверенным приложениям
     

Поделиться этой страницей

Загрузка...