Отправка письма
Подскажите скрипт на JS или VBS для отправки txt файла который лежит в папке Mail без ввода пароля от почты и не отправки самого txt, а его содержимого
|
Не самого txt, а его содержимого!
|
APiM, имя, имя у файла какое?
|
Пробуйте:
Код:
Option Explicit
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"
Dim strSourceFile
Dim strContent
strSourceFile = "c:\Mail\mail.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strSourceFile) Then
With .OpenTextFile(strSourceFile)
strContent = .ReadAll()
.Close
End With
With WScript.CreateObject("CDO.Message")
.From = "account@mail.ru"
.To = "account@yandex.ru"
.Subject = "Content of file [" & strSourceFile & "]"
.TextBody = strContent
.TextBodyPart.Charset = "windows-1251"
With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 25
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "account@mail.ru"
.Item(strConstPartOfSchema & "sendpassword") = "password"
.Update
End With
.Send
End With
Else
WScript.Echo "Source file [" & strSourceFile & "] not found."
WScript.Quit 1
End If
End With
WScript.Quit 0
P.S. Вложением — надёжнее: заведомо нет проблем с кодировкой. |
Спасибо, а можно ещё сделать чтобы не надо было пароль вводить?
|
А это:
Код:
.Item(strConstPartOfSchema & "sendpassword") = "password"
что тогда?! |
Можно как то сделать чтобы не нужно было вводить пароль от почты, просто скрипт будет использоваться не только мной, поэтому кто нибудь сможет посмотреть пароль
|
Цитата:
Цитата APiM
Можно как то сделать чтобы не нужно было вводить пароль от почты »
|
Нет, нельзя. Любые варианты «как-то» позволят получить этот пароль «не только Вам».
А что мешает завести для «не только Вы» свою учётную запись электронной почты, и пользовать её? |
Время: 10:32.
© OSzone.net 2001-
