Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


smtpMail fungerar inte på alla maskiner

Postades av 2004-04-05 15:20:03 - Anders Biederbeck, i forum vb.net, Tråden har 2 Kommentarer och lästs av 760 personer

Hallå?
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!

/Bix


Svara

Sv: smtpMail fungerar inte på alla maskiner

Postades av 2004-04-06 05:53:14 - Pelle Johansson

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?

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>


Svara

Sv: smtpMail fungerar inte på alla maskiner

Postades av 2004-04-06 08:53:49 - Anders Biederbeck

Tackar för detta, för nu fungerar det...nästan iaf!!
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


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 721
27 958
271 751
5 695
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies