Du kanske får slänga in on error resume next över kodblocket för att få en utskrift eftersom felet antagligen gör att utskriften av loggen aldrig dyker upp.
Jag har alltså ingen koll alls på hur sådan kod bör se ut...
Det som står i koden är detta:
'JMail component
Case "Jmail"
'Create the e-mail server object
Set objJMail = Server.CreateObject("JMail.SMTPMail")
With objJMail
'Out going SMTP mail server address
.ServerAddress = strIncomingMailServer
'Who the e-mail is from
.Sender = strForumEmailAddress
.SenderName = strWebsiteName
'Who the e-mail is sent to
.AddRecipient strUserEmail
'The subject of the e-mail
.Subject = strSubject
'Set the e-mail body format (BodyHTML=HTML Body=Text)
If blnHTML = True Then
.HTMLBody = strEmailBody
Else
.Body = strEmailBody
End If
'Importance of the e-mail
.Priority = 3
'Send the e-mail
If NOT strIncomingMailServer = "" Then .Execute
End With
'Close the server mail object
Set objJMail = Nothing
1. Den smtp-server-adress som jag fått från webhotellet.
2. Vad ska det stå där "objektet" står?
3. Ehh... har jag? Vad...?
Nej, just det - det har jag inte...
ok, jag ville bara vara säker på att variabeln innehöll en giltig serveradress.
jag visste inte vad du kallat ditt jmail-objekt i koden, det framgick inte i ditt originalinlägg. Du får byta ut det mot objektsnamnet i koden, dvs objJmail.
'JMail component
Case "Jmail"
'Create the e-mail server object
Set objJMail = Server.CreateObject("JMail.SMTPMail")
[b] On Error Resume Next
objJMail.Logging = true[/b]
With objJMail
'Out going SMTP mail server address
.ServerAddress = strIncomingMailServer
'Who the e-mail is from
.Sender = strForumEmailAddress
.SenderName = strWebsiteName
'Who the e-mail is sent to
.AddRecipient strUserEmail
'The subject of the e-mail
.Subject = strSubject
'Set the e-mail body format (BodyHTML=HTML Body=Text)
If blnHTML = True Then
.HTMLBody = strEmailBody
Else
.Body = strEmailBody
End If
'Importance of the e-mail
.Priority = 3
'Send the e-mail
If NOT strIncomingMailServer = "" Then .Execute
End With
[b]Response.write objJMail.Log
Response.End[/b]
'Close the server mail object
Set objJMail = Nothing
The message was undeliverable. All servers failed to receive the message .execute() { Trying server mail:mail.xxx.dk <- 220 mailserv03 ESMTP MailMax 5 Tue, 12 Aug 2003 21:58:02 +0200 -> EHLO csew01 <- 250-mailserv03 Hello [195.249.40.63] Pleased to meet you 250-ETRN 250-SIZE 250-AUTH LOGIN 250-AUTH=LOGIN 250 HELP -> MAIL FROM: <- 250 ... Sender ok -> RCPT TO:zzz@swipnet.se <- 550 relaying mail to zzz@swipnet.se is not allowed -> DATA <- 503 Need RCPT Error: 503 Need RCPT .execute() { Trying server mail:mail.xxx.dk <- 220 mailserv03 ESMTP MailMax 5 Tue, 12 Aug 2003 21:58:02 +0200 -> EHLO csew01 <- 250-mailserv03 Hello [195.249.40.63] Pleased to meet you 250-ETRN 250-SIZE 250-AUTH LOGIN 250-AUTH=LOGIN 250 HELP -> MAIL FROM: <- 250 ... Sender ok -> RCPT TO:zzz@swipnet.se <- 550 relaying mail to zzz@swipnet.se is not allowed -> DATA <- 503 Need RCPT Error: 503 Need RCPT 1 of 1 servers failed }
Det är alltså relaying mail to zzz@swipnet.se is not allowed som är det viktiga i sammanhanget.
Jag kan inte tillräckligt mycket om mailservrar för att säga annat än att servern av en eller annan anledning inte vill skicka till angiven mailadress.
Ja, det har nog inget att göra med just vilka adresser du försöker skicka till, utan det beror förmodligen på att det är externa adresser utanför domänen xxx.dk.
Här får nog någon annan fylla i, då mina kunskaper inte sträcker sig längre.
Mvh
262 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2