Имя: Пароль:
1C
1С v8
Ошибка в скрипте отправки почты с gmail
0 rotting
 
18.07.11
00:25
Есть такой скрипт
1 rotting
 
18.07.11
00:28
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Новый документ для печати"
objMessage.From = """1С"" "
objMessage.To = "ххххххх"
objMessage.TextBody = "Откройте вложенный в письмо файл и распечайте у себя на принтере"
Set objArgs = WScript.Arguments
fname = objArgs(0)
Set fso = CreateObject("Scripting.FileSystemObject")
objMessage.AddAttachment "" & fname & ""
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "хххххх"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "хххххх"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send


Раньше работал нормально, но 4 дня назад начал глючить, пишет ошибку

at least one of the From or Sender fields is required, and neither was found

кто может что-то подсказать? Буду очень признателен.
2 rotting
 
18.07.11
00:29
и адрес отправителя и получателя одинаков, может в этом проблема...
3 rotting
 
18.07.11
10:10
ап.
4 Defender aka LINN
 
18.07.11
10:12
Ну попробуй Sender указать, он же его упоминает.
5 rotting
 
18.07.11
10:31
(4) А как его указать, пишу вот так:
objMessage.Sender =  """1С"" <ххххххххххххх>"

где хххххххххххххх - адрес своей почты, так пишет что не может к серверу подключится(((
6 Defender aka LINN
 
18.07.11
10:33
(5) Дык, это... From = "1С", Sender="адрес@почты", вестимо.
7 rotting
 
18.07.11
11:25
(6) Сначала так и попробовал, тоже самое пишет
Основная теорема систематики: Новые системы плодят новые проблемы.