Falcon99
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору День добрый. Поставил данный почтовик. В нашей организации нет своего внешнего домена, настроил в режиме SMTP-Relay. Но столкнулся с тем что надо подменять адрес от кого отправлено письмо в случае отправки письма наружу. Нашел как делать это скриптом, плюс подредактировав, добавляю подпись с указанием своей организации, но почему-то подпись выходит в неправильной кодировке. Подскажите как поступить. Ниже привожу код скрипта с помощью которого это выполняю: Код: Sub OnAcceptMessage(oClient, oMessage) dim oApp Set oApp = CreateObject("hMailServer.Application") Set objRegExp = CreateObject("VBScript.RegExp") Call oApp.Authenticate("Administrator","пароль администратора") if InStr(oClient.Username , "@mail.domain.local") and InStr(oMessage.To , "@mail.domain.local") Then else oMessage.FromAddress = "адрес внешнего ящика" oMessage.From = ReplaceTest(From,"<.*>", "<адрес внешнего ящика>") oMessage.Body = oMessage.Body & vbNewLine & vbNewLine & "Название организации <адрес внешнего ящика>" oMessage.Save oMessage.save Result.value =0 end if End Sub Function ReplaceTest(From, patrn, replStr) Dim regEx Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True 'Make replacement. ReplaceTest = regEx.Replace(From, replStr) End Function |
|