Hallo alle zusammen,
Umgebung Client: VB2008, WindowsXP
Umgebung Host: Windows Server 2003/Exchange-Server
Ich möchte ein Überwachungsprogramm schreiben, welches regelmäßig (z.B. 1 x täglich) ein Protokoll versendet. Da dieses Programm unabhängig von der Einschaltung eines Clients laufen soll, wird es auf dem Applikationsserver installiert. Ein E-Mail-Client wird dort nicht exisieren. Deshalb soll aus dem Programm ein Versand über SMTP erfolgen. Folgenden Code habe ich zum Test erstellt;
Nach myClient.Send(myMail) springt das Programm in die SMTP-Exception. Die Fehleraussage ist nicht gerade weiterführend ->'Fehler beim senden von Mail'.
Leider komme ich nicht so recht weiter, wo der eigentliche Fehler liegt. Hat jemand eine Idee?
mfg dbfreak
Umgebung Client: VB2008, WindowsXP
Umgebung Host: Windows Server 2003/Exchange-Server
Ich möchte ein Überwachungsprogramm schreiben, welches regelmäßig (z.B. 1 x täglich) ein Protokoll versendet. Da dieses Programm unabhängig von der Einschaltung eines Clients laufen soll, wird es auf dem Applikationsserver installiert. Ein E-Mail-Client wird dort nicht exisieren. Deshalb soll aus dem Programm ein Versand über SMTP erfolgen. Folgenden Code habe ich zum Test erstellt;
Code:
Sub Main() mail_send() End Sub Sub mail_send() Try Dim myMail As New System.Net.Mail.MailMessage 'Dim cred As New CredentialCache myMail.Body = "Musterinhalt" myMail.From = New System.Net.Mail.MailAddress("[email protected]", "Admin") myMail.Subject = "Musterbetreff" myMail.Body = "nichts weiter - nur Test" myMail.To.Add(New System.Net.Mail.MailAddress("[email protected]")) Dim myClient As New System.Net.Mail.SmtpClient() myClient.Credentials = New NetworkCredential("systemuser", "systempw") myClient.UseDefaultCredentials = False myClient.Port = 25 myClient.Host = "192.1xx.1xx.1" myClient.EnableSsl = True myClient.Send(myMail) MsgBox("mail versendet") Catch exsmtp As System.Net.Mail.SmtpException MsgBox(exsmtp.Message & "" & exsmtp.StatusCode) Catch ex As Exception MsgBox(Err.Number & " " & Err.Description & " " & ex.StackTrace.ToString) End Try End Sub
Leider komme ich nicht so recht weiter, wo der eigentliche Fehler liegt. Hat jemand eine Idee?
mfg dbfreak
Comment