Цитата megaloman:
Eirstream, Вы поняли правильно: уберите свою строку, вставьте мою.
Я не вчитываюсь в Ваш код - ставилась задача получить дату вчерашнего дня в формате ддммгггг. Msgbox подтверждает успешность моего подхода?
»
|
Вам спасибо огромное, код я пока до конца не понимаю, смотрел по интернету. Если есть Аналогичный, но правильный вариант отправки, то я не против. И всегда рад советам и опыту людей, которые знают больше чем я, подсказывают и помогают. Вам благодарность.
Ставилась задача получить дату вчерашнего дня в формате ддммгггг, - все верно.
Я сначала, кое что не проверил, потом все подправил и вот, что в итоге.
Ваш Msgbox пишет (ваш текст в сообщении не менял):
Файл находится D:\Downloads
Имя файла: 04032021_Сводка.rtf
Сегодня 05032021 (05.03.2021)
Сейчас мой код:
Код:
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject ("Scripting.FileSystemObject")
daydate = Replace(DateAdd("d", -1, Date), ".", "")
MsgBox Date & vbCrLf & daydate & vbCrLf & "C:\Users\Desktop\мой день\" + daydate + "_сводка.rtf"
Dim oMSG
Dim oConfig
Dim CFields
Dim strBody
'создаем объект Message это наше письмо
Set oMSG = CreateObject("CDO.Message")
'создаем объект Configuration это настройки соединения
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") = "smtp.yandex.ru" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "МОЯ ПОЧТА@yandex.ru" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ПАРОЛЬ" 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update
oMSG.To = "МОЙ АДРЕС@yandex.ru"'адреса получателей
oMSG.From = "МОЙ АДРЕС@yandex.ru" 'адрес отправителя
oMSG.Subject = "Сводка за "+daydate+"" ' тема письма
oMSG.AddAttachment "D:\Downloads\"+daydate+"_Сводка.rtf" 'путь к вложенному файлу
oMSG.BodyPart.Charset = "windows-1251" ' кодировка письма
'формируем HTML текст который будет телом письма
strBody = "Сводка за "+daydate+"." & " C уважением ПАМ ПАМ"
oMSG.HTMLBody = strBody 'тело письма
oMSG.send 'отправляем 'СЕЙЧАС ПРОБЛЕМА В ЭТОЙ СТРОКЕ!!!!!!!!!!!!
'обнуляем переменные
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing
MsgBox "Архивы и файлы отправлены по эл. почте " & " - " & Now(), vbOkonly + vbinformation,"Информация"
По идеи Ваш код работает, теперь проблема в чем-то другом, буду смотреть
СЕЙЧАС ПРОБЛЕМА В 39-ой СТРОКЕ - oMSG.send 'отправляем .
Выдает такую ошибку
