Цитата Vector101:
|
эта буква "о" получается »
|
Нет, дело не в букве. Не может выполнить отправку сообщения. У меня такая ошибка возникает при попытке установить номер порта из Вашего сообщения
465. У меня номер порта
25, проверьте у себя в настройках почты номер порта, а также правильность заполнения всех полей настроек почты и особенно параметра
strSmtpServer на соответствие настройкам Вашей почты.
Цитата Vector101:
|
получается нужно было кое где поставить пробелы и табуляцию »
|
Нет. У Вас там много ошибок.
Цитата Vector101:
|
strFilePath = "с:\text.txt" »
|
Буква диска кириллицей
Цитата Vector101:
|
Else MsgBox "разница: " & lngDifference, ,"послать письмо" »
|
Цитата Vector101:
|
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = emailFrom objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******" »
|
Слипшиеся строки
Лишние концевые пробелы во всех строках
Переменная
emailFrom вовсе не определена.
