Объявление

Свернуть
Пока нет объявлений.

Добавить адресата VBS

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • Добавить адресата VBS

    Подскажите, пожалуйста, как добавить адресата в этот скрипт? Необходимо добавить фиксированный адрес почты помимо того, который выбирается скриптом.
    If instr( ActiveRequest.UserFields("Subject").Value, "^YES#") = 0 Then
    If Not ActiveRequest.UserFields("ReferencedTicket").isNul l Then
    Set objInc = ActiveRequest.UserFields("ReferencedTicket").TValu e
    If Trim(objInc.RequestFolder.Alias) = "fldIncReq" Then
    If Not objInc.UserFields("Responsible").isNull Then
    Set tmpResp = objInc.UserFields("Responsible").TValue
    Set objEmail = ActiveRequest.AsEmail()
    Set objReEmail = objEmail.Forward()

    objReEmail.PlainTextBody = vbCrLf & "В ваше обращение поступило новое письмо." & objReEmail.PlainTextBody

    'default
    objReEmail.OutgoingEmailAccount = "rusagrotrans"
    Set tAccount = objInc.UserFields("Account").TValue
    If Trim(tAccount.UserFields("Code").Value) = "lptrans" Then
    objReEmail.OutgoingEmailAccount = "lptrans"
    End If

    Set objEmailAddresses = ActiveSession.CreateEmailAddresses()
    objEmailAddresses.Add tmpResp.UserFields("Email").Value, tmpResp.UserFields("Name").Value, 1
    objReEmail.AddRecipients objEmailAddresses

    objReEmail.AddReferenceToLoggedEmailInfo objInc.UniqueID, objInc.UserFields("RelatedEmails").Definition.Uniq ueId
    objReEmail.Send
    End If
    End If
    End If
    End If
Обработка...
X