Подскажите,пожалуйста,как прикрутить использование переменных сред типа %Userprofile% , %TempDir% и пр в VBS вместо постоянного пути в выделенной строке.
Покурив маны,понял что делать надо через ExpandEnvironmentStrings типа:
Set objShell=Createobject("Wscript.Shell")
Wscript.Echo objShell.ExpandEnvironmentStrings("%USERPROFILE%")
а вместе слепить не получается
Dim o_Mess, v_Conf
v_Conf = "
Set o_Mess = CreateObject("CDO.Message")
With o_Mess
.To = "secret.abc@yandex.ru" 'куда отправляем
.From = "Иван Иванов <secret.abc@yandex.ru>" 'имя отправителя + Email
.Subject = "Subj" 'Тема письма
.TextBody = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Documents and Settings\Вася Пупкин\отчет.log")
.AddAttachment "C:\help\1.txt" 'Прикрепить файл
.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") = "secret.abc" 'здесь имя пользователя без @
.Item(v_Conf & "sendpassword") = "password" 'пароль
.Item(v_Conf & "smtpserverport") = 465 'порт (альтернативный - 465)
.Item(v_Conf & "smtpusessl") = False 'использовать ли шифрованое подключение SSL
.Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
.Update
End With
.send
End With
Set o_Mess = Nothing
v_Conf = "
Вы должны зарегистрироваться, чтобы увидеть внешние ссылки
"Set o_Mess = CreateObject("CDO.Message")
With o_Mess
.To = "secret.abc@yandex.ru" 'куда отправляем
.From = "Иван Иванов <secret.abc@yandex.ru>" 'имя отправителя + Email
.Subject = "Subj" 'Тема письма
.TextBody = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Documents and Settings\Вася Пупкин\отчет.log")
.AddAttachment "C:\help\1.txt" 'Прикрепить файл
.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") = "secret.abc" 'здесь имя пользователя без @
.Item(v_Conf & "sendpassword") = "password" 'пароль
.Item(v_Conf & "smtpserverport") = 465 'порт (альтернативный - 465)
.Item(v_Conf & "smtpusessl") = False 'использовать ли шифрованое подключение SSL
.Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
.Update
End With
.send
End With
Set o_Mess = Nothing
Покурив маны,понял что делать надо через ExpandEnvironmentStrings типа:
Set objShell=Createobject("Wscript.Shell")
Wscript.Echo objShell.ExpandEnvironmentStrings("%USERPROFILE%")
а вместе слепить не получается