1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.

Нужен java-скрипт

Тема в разделе "WEB-ресурсы", создана пользователем dj_dantist, 03.02.09.

  1. dj_dantist

    dj_dantist Активный участник

    4.591
    0
    При нажатии посетителем кнопочки на сайте должна посылаться и-мэйл на мой адрес. Причём без вызова почтового клиента, тихо. Есть ли такой в природе?
     
  2. svalx

    svalx Участник

    244
    0
    Ниже код скрипта на VB, который использует библиотеку cdosys.dll, входящую в WINXP. Можете переписать его в JS. У меня работает на WSH, будет ли работать в браузере - не знаю...


    '==========================================================================
    'Отправляет сообщение по email
    Sub SendPost(strSubject, strBody, toGO)
    Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
    Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
    Const cdoAnonymous = 0 'Do not authenticate
    Const cdoBasic = 1 'basic (clear-text) authentication
    Const cdoNTLM = 2 'NTLM
    Dim MSAddr, iMsg, iConf, Flds
    On Error Resume Next
    'Для отправки почты используется Microsoft CDO for Windows Library,
    'Microsoft Exchange (SYSTEM32\cdosys.dll)
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields

    MSAddr = "http://schemas.microsoft.com/cdo/configuration/"
    Flds.Item(MSAddr + "sendusing") = cdoSendUsingPort 'Connection Method
    Flds.Item(MSAddr + "smtpserver") = SMTPServer 'SMTP Server name
    Flds.Item(MSAddr + "smtpserverport") = 25 'SMTP Server port
    Flds.Item(MSAddr + "smtpconnectiontimeout") = 60 'SMTP connection time-out in seconds
    Flds.Item(MSAddr + "smtpauthenticate") = cdoBasic 'SMTP Auth method
    Flds.Item(MSAddr + "sendusername") = SMTPLogin 'SMTP Login
    Flds.Item(MSAddr + "sendpassword") = SMTPPass 'SMTP Password
    Flds.Update
    With iMsg
    .Configuration = iConf
    .To = EmailTo
    If toGO Then 'Если toGO=1, отправляем письмо
    .CC = EmailToGO
    End If
    .From = EmailFrom
    .Subject = strSubject
    .TextBody = strBody
    '.AddAttachment
    .Send
    End With
    If Err.Number=0 Then
    Write_Log("Отправлено сообщение на адрес " & EmailTo)
    Else
    Write_Log("Ошибка при отправке сообщения!")
    End If
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
    'Возможность отправки сообщения по сети
    'Net send запрещен к использованию!!!
    'WSH_.Run "Net send admins_comp " & vNumErr & ": " & strMsg, 2, False
    End Sub
    '==========================================================================
     
  3. Hermes

    Hermes Активный участник

    11.670
    1
    Офигенно универсальное решение. IE под XP. Про остальные браузеры и ОС можно забыть?

    dj_dantist, javascript должен отправить сообщение на сервер, а уже сервер отправляет почту. 15 минут работы и письма будут отправляться вне зависимости от того, кокой у юзера браузер и какая ОС. Но, конечно, javascript должен быть в браузере включем.
     
  4. Aleks..

    Aleks.. Участник

    113
    0
    Имхо, без ПХП и sendmail'a не обойтись.
     
  5. Hermes

    Hermes Активный участник

    11.670
    1
    Ну ПХП или нет - дело десятое. Но письма сервер рассылать должен.
     
  6. dj_dantist

    dj_dantist Активный участник

    4.591
    0


    Желательно обойтись java-скриптами, без PHP...
     
  7. Hermes

    Hermes Активный участник

    11.670
    1
    Вот тут посмотрите.

    А почему PHP не хотите задействовать? Ajax запрос к серверу и делайте там что хотите. Пользователь ничего не заметит.
     
  8. dj_dantist

    dj_dantist Активный участник

    4.591
    0


    Просто планируется разместить сайт на бесплатном хостинге (пока), а сервера для бесплатных не поддерживают РНР (насколько мне известно...)