Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

EMail versenden über DSL geht über UMTS nicht ??????????
Autor: BorisM
Datum: 23.06.07 16:33
Hallo Ich habe ein Programm geschrieben mit dem Ich Mails versende. Das Funktioniert auch alles wunderbar so lange ich über DSL online bin. Ich bin aber viele Unterwegs und muss meine Daten nach jedem Kunden über UMTS versenden. Das geht aber nicht. Wenn ich Versuche über UMTS zu senden bekomme ich die Fehler Meldung. Die Pop3 Anmeldung liegt zu weit in der Vergangenheit. Ich habe es mit meinen T-online und meinen WEB.de Account versucht geht beides nicht. Aber über DSL geht es ohne mich vorher am POP Server anzumelden hat jemand eine Idee. Option Strict Off Option Explicit On Imports System.Net.Mail Imports VB = Microsoft.VisualBasic Module Module_EMail Public Sub Send_Mail() Form_Suchen.Cursor = Cursors.WaitCursor Aufmass.EMail.Text = "EMail wird gesendet" Dim SmtpObj As New System.Net.Mail.SmtpClient Dim MailMessage As New System.Net.Mail.MailMessage() SmtpObj.Host = Module_Variablen.SMTP SmtpObj.Port = 25 MailMessage.From = New System.Net.Mail.MailAddress(Module_Variablen.EMail) If Module_Variablen.Dispo_Mail = True Then '* * * * * * * * Nachricht an Dispo * * * * * * * MailMessage.To.Add(Module_Variablen.Dispo_EMail) MailMessage.Subject = "Info zu Anschluss" & " " & ONKZ & "/" & RufNr MailMessage.Body = "Hallo" & Chr(12) & Chr(12) & "Auftrag:" & " " & ONKZ & "/" & RufNr & Chr(12) & Module_Variablen.Notiz GoTo Send End If If Module_Variablen.SE Or Module_Variablen.SA = True Then '* * * * * * * * * * Störung meldung ohne Karte * * * * * * * * * MsgBox(Module_Variablen.EMail_SE) MailMessage.To.Add(Module_Variablen.EMail_SE) MailMessage.Subject = "Erledigte Störung" & " " & Module_Variablen.ONKZ & "/" & Module_Variablen.RufNr If Module_Variablen.Karte = False Then MailMessage.Body = "Rückmeldung von erledigten Störungen im " GoTo send Else '* * * * * * * * Störung meldung mit Karte * * * * * * * MsgBox("SE mit Karte " & Module_Variablen.Notiz) MailMessage.Body = "Rückmeldung von erledigten Störungen im " _ GoTo Send End If End If If Module_Variablen.Karte = True Then '* * * * * * * * Normale Karte * * * * * * MsgBox("Karte " & Module_Variablen.Notiz) MailMessage.To.Add(Module_Variablen.EMail_Karten) MailMessage.Subject = "Karte" & " " & ONKZ & "/" & RufNr MailMessage.Body = "Rückmeldung von Karten im " & Chr(12) & Chr(12) & GoTo Send End If Send: MailMessage.IsBodyHtml = False SmtpObj.Send(MailMessage) MsgBox("GESENDET") Form_Suchen.Cursor = Cursors.Arrow Aufmass.RadioButton_Karte.Checked = False Module_Variablen.Karte = False Aufmass.EMail.Text = "OK" End Sub End Module

EMail versenden über DSL geht über UMTS nicht ??????????	956	BorisM	23.06.07 16:33
Re: EMail versenden über DSL geht über UMTS nicht ??????????	541	emaNoN	02.07.07 23:05

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen