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

Ниже код скрипта на 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
'==========================================================================

 

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

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

 

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

 

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

 

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

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