Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Ошибка в дате

< Предыдущая 1 2
Ответить
Настройки темы
VBS/WSH/JS - [решено] Ошибка в дате

Новый участник


Сообщения: 11
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения
Автор: Eirstream
Дата: 03-03-2021
Описание: Добавлен код
Заранее прошу прощения, если что-то не так написал, т.к. новенький в этом всем)
Подскажите, такая проблема, мне необходимо отправить архивы и отдельные файлы (без архива) по почте, но возникает проблема с датой.
Присваиваю daydate так, чтобы дата моего файла была на один день меньше, все остальное не менялось.
Указываю пусть к файлу с параметром daydate.
Когда дата файла была, например, 22032021_название файла, то проблем с отправкой не было, сейчас когда дата 02032021_название файла, то возникает ошибка (не найден путь к файлу), предполагаю, что это из-за 0 в начале.
Подскажите, что можно делать, чтобы отправляло с любой датой, которая стоит в названии файла.
Проблемы с 4 и 40 строкой. По всему остальному нет проблем, прописано нормально.
Иероглифы, это русский, комментарии, роли не играет
Код: Выделить весь код
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject ("Scripting.FileSystemObject")

daydate=left(date,2)-1&left(right(Date,7),2)&right(Date,4)  '4 строка

'DT=now
'DateVal=day(DT) & _
'Right("0" & Month(DT),2) & _
'Right("0" & Year(DT),2)

'd=datepart("d",data) & datepart("m",data) & datepart("yyyy",data)

Dim oMSG
Dim oConfig
Dim CFields
Dim strBody

Set oMSG = CreateObject("CDO.Message")


Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "post.***.ru" 
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 0'True
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "***********" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "**********" 'pass
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update

oMSG.To = "**********" 'email adress
oMSG.From = "**********"  'emailadreas
oMSG.Subject = "сводка за "+daydate+"" ' òåìà ïèñüìà
oMSG.BodyPart.Charset = "windows-1251" ' êîäèðîâàêà ïèñüìà
oMSG.AddAttachment "C:\Users\Desktop\мой день\"daydate"_сводка.rtf"  ' 40 строка

strBody = "сводка за "+daydate+"." & " C уважением"

oMSG.HTMLBody = strBody 'òåëî ïèñüìà
oMSG.send 'îòïðàâëÿåì
'îáíóëÿåì ïåðåìåííûå
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing


MsgBox "Àðõèâû îòïðàâëåíû ïî ýë. ïî÷òå" & "-" & Now(), vbOkonly + vbinformation,"Èíôîðìàöèÿ"

Отправлено: 14:01, 03-03-2021

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать

Eirstream, Вы настроили свой почтовый ящик на приём сообщений доступ от неавторизованных клиентов?
Скрытый текст

Последний раз редактировалось Iska, 07-03-2021 в 11:43. Причина: Более точное выражение

Это сообщение посчитали полезным следующие участники:

Отправлено: 06:30, 07-03-2021 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 11
Благодарности: 0

Профиль | Отправить PM | Цитировать

Iska, megaloman спасибо огромное за помощь, все получилось
Цитата megaloman:
Eirstream, попробуйте
Код:
daydate = Replace(DateAdd("d", -1, Date), ".", "")
MsgBox Date & vbCrLf & daydate & vbCrLf & "C:\Users\Desktop\мой день\" + daydate +"_сводка.rtf" »
Это код помог, благодарю!

А по строке oMSG.send, скорее всего проблема была с компом, или что-то мешало отправить, либо пакетов не было или обновлений. Последний мой код верный, все работает.
Цитата Iska:
Eirstream, Вы настроили свой почтовый ящик на приём сообщений от неавторизованных клиентов? »
Да, настроил. Все работает. Еще раз спасибо. [РЕШЕНО]

Отправлено: 10:04, 07-03-2021 | #12

< Предыдущая 1 2


Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Ошибка в дате

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - Отбор по дате Cyril Скриптовые языки администрирования Windows 9 09-01-2020 12:01
CMD/BAT - Архивирование по дате alex1985khv Скриптовые языки администрирования Windows 7 06-05-2016 03:28
CMD/BAT - [решено] Удаление по дате greenOwl Скриптовые языки администрирования Windows 12 05-07-2013 16:39
CMD/BAT - Удаление файлов по дате interminable Скриптовые языки администрирования Windows 1 07-06-2012 15:48
MSFT SQL Server - Выборка по дате Pulvertum Программирование и базы данных 7 03-11-2009 00:58


« Предыдущая тема | Следующая тема »


 
Переход