Zitat:

Nach Start des Programmes soll ein Menu erscheinen, in das man Provider, den Betreff und den eMail-Text eingeben kann.

 Private Sub BtnSend_Click(sender As System.Object, e As System.EventArgs) _
   Handles BtnSend.Click
        Dim Mc As New SmtpClient(TxTServer.Text)
        Mc.Send("Ich@zuhause.com", "mich@arbeit.com", TxtBetreff.Text, _
          TxtBody.Text)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Imports System.Net.Mail
...
 
Dim von As MailAddress = New MailAddress("Ich@Domain.de")
Dim zu As MailAddress = New MailAddress("Ich@Domain.de")
 
Dim mm As MailMessage = New MailMessage()
mm.From = von
mm.To.Add(zu)
mm.Subject = "Das ist ein Test"
mm.Body = "Das ist die Nachricht"
 
Dim server As SmtpClient = New SmtpClient("imap.strato.de")
server.UseDefaultCredentials = False
server.Timeout = 60000
server.Port = 993
server.EnableSsl = True
server.Credentials = New System.Net.NetworkCredential("Ich@Domain.de", "PW")
 
Try
   server.Send(mm)
   MessageBox.Show("gesendet")
 
Catch ex As Exception
   MessageBox.Show(ex.ToString)
End Try

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

server.UseDefaultCredentials = False

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Zitat:

Kann evtl. sonst noch jemand die Funktion meines Scriptes bei einem anderen Provider bestätigen? Würde gerne wissen, ob der Fehler auf meiner Seite liegt?

  Private Sub SendeMail(absender As MailAddress, empfänger As MailAddress, _
    betreff As String, inhalt As String)
    Try
      Dim nachricht As New MailMessage(absender, empfänger)
      nachricht.Subject = betreff
      nachricht.Body = inhalt
      '-----------------------------------------------------------------
      Dim client As New SmtpClient("mail.gmx.net")
      client.Credentials = New NetworkCredential("ich@gmx.de", "*******")
      client.EnableSsl = True
      client.Send(nachricht)
      client.Dispose()
      nachricht.Dispose()
      MsgBox("E-Mail gesendet...")
    Catch ex As Exception
      MsgBox(ex.Message)
    End Try
  End Sub