Emailing с классический ASP

Question

Цель:

Почтовые клиенты из admin@companywebsite.com

Издание:

Во-первых, позвольте мне сказать, что я являюсь разработчиком .Net, но меня попросили, чтобы посмотреть на ниже, чтобы поддерживать мои клиенты на существующем сайте, у них возникают проблемы, поскольку новый не будет работать в течение 6 месяцев.

Сервер, на котором он сидел, находится на другом домене сервера, то есть на сайте outsourcedcompany.companywebsite.com, и когда мы отправляем по электронной почте электронные письма, мы отправимся на info@companywebsite.com и т. Д., Но не будем называть info@gmail.com.

Как я могу помочь себе:

я смогу настроить admin@companywebsite.com на сервере, чтобы отправить электронную почту к клиенту, если нам нужно, и это помогает

Код:

'This section provides the configuration information for the remote SMTP server. 

    'Custom Code @211-73254650 
' ------------------------- 
Dim FireUPRN 
Dim FRADate 
Dim SurveyCompany 
Dim Assessor 
Dim TaskType 
Dim Task 
Dim ActionType 
Dim Priority 
Dim RecommendationDate 
Dim TaskAllocatedDate 
Dim TaskAllocatedTo 
Dim TargetDate 
Dim TaskStatus 
Dim TaskComments 
Dim Photo 
Dim AssigneeEmailAddress 
Dim Bodytxt 

FireUPRN = Request.Form("FireUPRN") 
FRADate = Request.Form("FRADate") 
SurveyCompany = Request.Form("SurveyCompany") 
Assessor = Request.Form("Assessor") 
TaskType = Request.Form("TaskType") 
Task = Request.Form("Task") 
ActionType = Request.Form("ActionType") 
Priority = Request.Form("Priority") 
RecommendationDate = Request.Form("RecommendationDate") 
TaskAllocatedDate = Request.Form("TaskAllocatedDate") 
TaskAllocatedTo = Request.Form("TaskAllocatedTo") 
TargetDate = Request.Form("TargetDate") 
TaskStatus = Request.Form("TaskStatus") 
TaskComments = Request.Form("TaskComments") 
Photo = Request.Form("Photo") 

AssigneeEmailAddress = Request.Form("AssigneeEmailAddress") 

Dim ObjSendMail 
Set ObjSendMail = CreateObject("CDO.Message") 

'This section provides the configuration information for the remote SMTP server. 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.COMPANY-NAME.com" 
'changed 25 to 465 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
'Use SSL for the connection (True or False) 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False  
'Timeout 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
'If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "webmaster@COMPANY-NAME.com" 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "villa1982"  

ObjSendMail.Configuration.Fields.Update 
'End remote SMTP server configuration section== 

ObjSendMail.To = Request.Form("AssigneeEmailAddress") 
ObjSendMail.Subject = "Assigned Fire Risk Assessment Task, which must be carried out within the stated timescale." 
ObjSendMail.From = "webmaster@COMPANY-NAME.com" 
'ObjSendMail.CC = "someone@someone.net" 
'ObjSendMail.AddAttachment "c:\myweb\somefile.jpg" 

Bodytxt = "You have been assigned a FRA Task, the details are the following: " & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "UPRN: " &FireUPRN & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "FRA Date: " &FRADate & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Survey Company: " &SurveyCompany & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Assessor: " &Assessor & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Task Type: " &TaskType & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Task: " &Task & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Action Type: " &ActionType & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Priority: " &Priority & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Recommendation Date: " &RecommendationDate & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Task Allocated Date: " &TaskAllocatedDate & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Task Allocated To: " &TaskAllocatedTo & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Target Date: " &TargetDate & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Task Status: " &TaskStatus & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Task Comments: " &TaskComments & VbCrLf & VbCrLf 
Bodytxt = Bodytxt & "Photo: " &Photo & VbCrLf & VbCrLf 

ObjSendMail.TextBody = Bodytxt ' body text 
ObjSendMail.Send  'send command 
Set ObjSendMail = Nothing 'reset mail 

' ------------------------- 
'End Custom Code 

Answer 1

Из вашего описания это звучит так, как будто вы делаете ошибочный вывод о том, что если вы можете отправить некоторым получателям, а не другим, то что-то не так с кодом отправки электронной почты. Подумайте об этом таким образом ... приведенный выше код создает сообщение электронной почты, которое он будет предоставлять указанному SMTP-серверу для доставки. Этот SMTP-сервер является тем, который вы указываете во втором поле конфигурации вашего кода (configuration/smtpserver).

Реальная проблема, с которой вы, скорее всего, сталкиваетесь, скорее связана с маршрутизацией и доставкой почты. Если вы указываете адреса для другого домена, чем тот, на который настроен ваш почтовый сервер для пересылки почты SMTP, он либо отклоняется на вашем почтовом сервере, либо на одном из следующих SMTP-серверов, который пытается отправить сообщение либо между ними или на фактическом целевом SMTP-сервере для входящих почтовых ящиков. Попробуйте использовать простой SMTP-клиент, используя те же настройки SMTP-сервера выше, и вы увидите те же результаты.