adjuster
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
adjuster
Цитата: Подскажите, плиз, может уже есть скрипт, чтоб менять не только отправителя, но и создателя письма??
Чтоб при ответе на письмо, письмо не отправлялось на ящик в локалке, а оправлялся на ящик, через который было отправлено это письмо. |
Вот сам отвечаю, вдруг кому пригодится:
Цитата: Sub OnAcceptMessage(oClient, oMessage)
Dim oApp
Dim QWE
Dim DM
Dim Man
Dim Des
Set FileSystemObject = CreateObject("scripting.filesystemobject")
Set oApp = CreateObject("hMailServer.Application")
Call oApp.Authenticate("Administrator", "passwrd") ' пароль админский.
Man = "manager@mail.local" ' мои два ящика, которые особенные
Des = "manager2@mail.local"
if (oMessage.FromAddress = Man) or (oMessage.FromAddress = Des) Then
DM = "123" ' используем промежуточную переменную чтоб понятнее было
Else
DM = "321"
End if
If Right(oMessage.To, 11) = "mail.local>" Then ' здесь исключаем письма на локальный домен
Else
QWE = "123" ' вторая промежуточная переменная
End if
If (QWE = "123") and (DM = "123") Then
oMessage.From = "ManagerS@mail.ru" ' на хостинге всего 2 ящика - это первый ящик
End If
If (QWE = "123") and (DM = "321") Then
oMessage.From = "DirectorS@mail.ru" ' это второй внешний ящик
End If
oMessage.save
Result.Value = 0
End Sub |
|
Всего записей: 1369 | Зарегистр. 31-10-2006 | Отправлено: 14:48 09-04-2010 | Исправлено: adjuster, 15:40 09-04-2010 |
|
