Hallo,
ich habe ein VB.Net konsolenanwendung die via einen gmail-account eine Mail verschickt.
Auf meiner Entwicklungsumgebung ( Windows 10 ) funktioniert das einwandfrei. Installiere ich die Software auf einem Windows Server 2012 R2 sieht alles normal aus, keine Fehlermeldung, kein Eintrag im Eventlog aber das Mail wird nicht versandt.
Ich habe zum Test mal die Firewall ausgeschaltet, hat aber nichts gebracht. Hat jemand eine Ahnung was das sein kann?
Der Code sieht so aus:
Imports System.IO
Imports System.Net.Mail
Imports System.Net
Sub Main()
Try
Dim loMessage As MailMessage = Nothing
Dim loClient As SmtpClient = Nothing
loClient = New SmtpClient()
loClient.Timeout = 50000
loClient.Host = "smtp.gmail.com"
loClient.Port = 587
loClient.EnableSsl = True
loClient.Credentials = New System.Net.NetworkCredential("test@gmail.com", "xxxxxxxxxx")
loMessage = New MailMessage()
loMessage.IsBodyHtml = True
loMessage.From = New MailAddress("xxxxxx@gmail.com")
loMessage.To.Add(New MailAddress("xxxxxx@bluewin.ch"))
loMessage.Subject = "Betreff"
loMessage.Body = "Test Ihre Daten..."
loClient.Send(loMessage)
Catch ex As Exception
'MsgBox(ex.ToString)
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("c:\tmp\err.txt", True)
file.WriteLine(ex.ToString)
file.Close()
End Try
End Sub
ich habe ein VB.Net konsolenanwendung die via einen gmail-account eine Mail verschickt.
Auf meiner Entwicklungsumgebung ( Windows 10 ) funktioniert das einwandfrei. Installiere ich die Software auf einem Windows Server 2012 R2 sieht alles normal aus, keine Fehlermeldung, kein Eintrag im Eventlog aber das Mail wird nicht versandt.
Ich habe zum Test mal die Firewall ausgeschaltet, hat aber nichts gebracht. Hat jemand eine Ahnung was das sein kann?
Der Code sieht so aus:
Imports System.IO
Imports System.Net.Mail
Imports System.Net
Sub Main()
Try
Dim loMessage As MailMessage = Nothing
Dim loClient As SmtpClient = Nothing
loClient = New SmtpClient()
loClient.Timeout = 50000
loClient.Host = "smtp.gmail.com"
loClient.Port = 587
loClient.EnableSsl = True
loClient.Credentials = New System.Net.NetworkCredential("test@gmail.com", "xxxxxxxxxx")
loMessage = New MailMessage()
loMessage.IsBodyHtml = True
loMessage.From = New MailAddress("xxxxxx@gmail.com")
loMessage.To.Add(New MailAddress("xxxxxx@bluewin.ch"))
loMessage.Subject = "Betreff"
loMessage.Body = "Test Ihre Daten..."
loClient.Send(loMessage)
Catch ex As Exception
'MsgBox(ex.ToString)
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("c:\tmp\err.txt", True)
file.WriteLine(ex.ToString)
file.Close()
End Try
End Sub