Hallå? Det är säkert så att port 25 är stängd eller du får inte köra utan relay vilket är ett säkerhetstema. Jag skall se om jag kan leta reda på hur man via asp.net får till de två rader som behövs för att fixa smtp-servern så den inte klagar. Kanske någon annan har den koden liggandes? Tackar för detta, för nu fungerar det...nästan iaf!!smtpMail fungerar inte på alla maskiner
Jag har problem med att skicka ett mail från en VB.Net applikation. Det fungerar bra från de flesta klienter, men vissa får samma fel.
"The message could not be sent to the smtp server.
The transport error code was 0x80040217.
the server response was not available"
Detta är ett utdrag ur ett mycket längre felmess...
Jag använder följande kod:
<code>
Imports System.Web.Mail
Public Function sendEMail() As Boolean
Dim from As String
Dim tomail As String = _toMail
Dim subject As String = "blabla"
Dim body As String = "bla bla"
Dim mailserver As String = vår.exchange2003.int
Dim mymail As MailMessage = New System.Web.Mail.MailMessage
Dim errorMessage As String
mymail.To = _toMail
mymail.From = _fromMail
mymail.Subject = subject
mymail.Body = body
Try
SmtpMail.SmtpServer = mailserver
SmtpMail.Send(mymail)
Return True
Catch e As System.Web.HttpException
errorMessage = "Felkod" & vbNewLine & e.Message & vbNewLine & e.ToString
MsgBox(errorMessage, MsgBoxStyle.Critical, "Fel vid mailutskick!")
Return False
End Try
End Function
</code>
jag har även testat denna funktion som jag hämtat från microsoft, men jag får samma fel på samma klienter:
<code>
Public Function sendCDOmail() As Boolean
Dim oMsg As CDO.Message = New CDO.Message
Dim iConfg As CDO.Configuration
Dim oFields As ADODB.Fields
Dim oField As ADODB.Field
Dim mailserver As String = åter igen vår korrekta exchangeserver
Dim from As String
Dim tomail As String = _toMail
Dim subject As String = "blabla"
Dim body As String = "bla bla"
iConfg = oMsg.Configuration
oFields = iConfg.Fields
oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
oField.Value = 2 ' CDO.CdoConfiguration.cdoSMTPServer
oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
oField.Value = mailserver ' TODO:
oFields.Update()
oMsg.Configuration = iConfg
oMsg.TextBody = body
oMsg.Subject = subject
oMsg.From = _fromMail ' TODO:
oMsg.To = _toMail ' TODO:
oMsg.Send()
oMsg = Nothing
iConfg = Nothing
oFields = Nothing
oField = Nothing
End Function
</code>
Jag misstänker att det är något som saknas på de klienter som misslyckas, men jag kommer inte på vad det skulle vara...
Samtliga av dessa kör w2k pro och jag inkluderar interop.CDO.DLL i min setupfil
Finns inte heller något om detta på microsoft, vad jag kan hitta iaf.
Nån som har en idé??
Tackar!
/BixSv: smtpMail fungerar inte på alla maskiner
0x80040217 - VFW_E_CANNOT_CONNECT - No combination of intermediate filters could be found to make the connection.
Testa denna kod och se om det inte fungerar. Se till att ange användarnamn och lösenord där det står xxx till det konto du tänker skicka mailet från.
<code>
Imports System.Web.Mail
Namespace YourNameSpace
Public Class Epost
Public Enum MailAuthenticationType
None = 0
Basic = 1
NTLM = 2
End Enum
Public Shared Function Send(ByVal fromuser As String, ByVal touser As String, ByVal subject As String, ByVal message As String)
Dim svr As SmtpMail
Dim msg As New MailMessage
msg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = MailAuthenticationType.Basic
msg.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx"
msg.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
msg.From = fromuser
msg.To = touser
msg.Subject = subject
msg.Body = message
svr.SmtpServer = "dinserver.se"
svr.Send(msg)
End Function
End Class
End NameSpace
</code>
<code>
YourNameSpace.Email.Send "pelle@pellesoft.se","pelle@pellesoft.se","test","Här kommer ett mail som skickas via din smtp-server trots att port 25 inte tillåter detta samt har relay påslagen."
</code>Sv: smtpMail fungerar inte på alla maskiner
Vad som nu har hänt är att det fungerar på de datorer som det inte fungerade på förut, men det fungerar däremot INTE längre på de där det fungerade förut...
Var du med på den??
Detta är ok för min del för det är bara en dator som ska köra detta program, och där fungerar det ju nu. Men om man tänker lite längre än vad jag gör just nu, så kommer jag att få problem med detta längre fram...
Jag fattar inte riktigt vad det var för fel? Är det port 25 på klienten som är stängd? å vad är det här med relay?
Var hittade du tolkningen av felmeddelandet?
...många frågor blir det...:-)
Nåväl, jag sitter nöjd för tillfället...
Tackar
/Bix