HiAsm

Форумы Между делом Работаем с Excel (скрипты, макросы, ошибки, т.п.) ← Ctrl1Ctrl →

Ответов: 1133

Рейтинг: 81

#1: 2014-09-21 23:45:33 ЛС | профиль | цитата

Леонид писал(а):

этого точно не получится

Я уже это понял, жаль конечно. В макросе, который Вы помогали делать, фактически нечего логировать. За исключением физического отсутствия запускаемого макроса в файле. Список запускаемых макросов будет дополняться в зависимости от количества клиентов. Для каждого клиента свои действия, а значит свой макрос или набор макросов.
Соответственно как обрабатывать ошибки в еще не существующих макросах?
Хотел визуальные сообщения об ошибках отключить, но описание самих ошибок логировать. Ну и второе, чтобы такие ошибочные макросы не повесили программу, и она отработала до конца

------------ Дoбавленo в 23.45:
И опять без помощи не обойтись, и опять проблема со скриптами. Задолбался уже
Нужно нижеприведенный скрипт вставить в VBJScript

Set objMes = CreateObject("CDO.Message")
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'Почтовый сервер
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'Порт сервера SMTP
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*****@gmail.com" 'Имя пользователя
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****" 'Пароль
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMes.Configuration.Fields.Update

objMes.From = "*****@gmail.com" 'От кого письмо
objMes.To = "*****@qip.ru" ' Кому письмо
objMes.Subject = "Тема" 'Тема письма
objMes.Textbody = "Тело письма" 'Что будет в теле письма
'objMes.AddAttachment "C:\Users\admin\*****" ' File 1
'objMes.AddAttachment "C:\Users\admin\*****" ' File 2
'...
'objMes.AddAttachment "C:\Users\admin\*****" ' File n 'Прикрепляться может один файл, а может 10
objMes.Send

'А здесь проверку типа так
'if Err.Number = 0 then 
'  sys.onError "ОК"
' else
'  sys.onError "Ошибка" & Err.Number & Err.Description
 End If

карма: 2

Форумы Между делом Работаем с Excel (скрипты, макросы, ошибки, т.п.) ← Ctrl1Ctrl →