|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Ошибка в дате |
|
VBS/WSH/JS - [решено] Ошибка в дате
|
Новый участник Сообщения: 11 |
Профиль | Отправить PM | Цитировать
Заранее прошу прощения, если что-то не так написал, т.к. новенький в этом всем)
Подскажите, такая проблема, мне необходимо отправить архивы и отдельные файлы (без архива) по почте, но возникает проблема с датой. Присваиваю 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
|
Профиль | Отправить PM | Цитировать Eirstream, Вы настроили свой почтовый ящик на
Скрытый текст
|
Последний раз редактировалось Iska, 07-03-2021 в 11:43. Причина: Более точное выражение Отправлено: 06:30, 07-03-2021 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 11
|
Профиль | Отправить PM | Цитировать Iska, megaloman спасибо огромное за помощь, все получилось
Цитата megaloman:
А по строке oMSG.send, скорее всего проблема была с компом, или что-то мешало отправить, либо пакетов не было или обновлений. Последний мой код верный, все работает. Цитата Iska:
|
||
Отправлено: 10:04, 07-03-2021 | #12 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|