VB Loginfenster

[_ᴋush#]

Hallo Leute,

gibt es eine Möglichkeit, ein Programm zu machen, welches so ein Loginfenster ist und bei "Einloggen" o.ä die eingegebenen Daten an deine E-Mail sendet?

Und nein, ich will damit keinen veraschen. Nur Testweise.

[snow]

Ja, die Möglichkeit gibt es.

#moved

[_ᴋush#]

Ja, ein Vorschlag wäre gut, damit ich ansatzweise etwas machen kann in Visual basic.

[tolio]

welchen ansatz hast du denn und wo ist das problem?

[_ᴋush#]

ja ich bräuchte am besten was vorgefertigtes also ich hab da noch nicht so viel ahnung

[KingClem™]

Sprich du willst code?


Hier MSDN:

[_ᴋush#]

Danke erstmal, nur wie läuft das ab, ich will quasi, wenn ich auf den Button "einloggen" drück, das die eingegebenen daten bei login und pw an meine email gesendet wird.

[tolio]

so wie ich das sehe gibt es 2,5 möglichkeiten:
1. eine suchmaschine nach wahl anstrengen um lösungen für teilprobleme zu finden. (email senden, formular anzeigen, ...) und diese umsetzen
a) es funktioniert
b) es funktionert nicht -> problem details in einem forum posten und auf hilfe hoffen
2. jemanden für eine fertige lösung bezahlen, zb hier:

[stotterer09]

Ich habe außerdem mal ne email sende klasse programmiert, leider in c# aber wofür gibts converter:

    class EmailSender
    {
        List<String> SMTPClients;
        int SMTPClientCount;    
        SmtpClient SMTPC;
        NetworkCredential NCredential;


        public EmailSender(String smtpServer,String EmailSendAdress, String EmailSendPassword, int Port, Boolean isCrypted)
        {
            SMTPClients = new List<String>();
            SMTPClientCount = 0;
            NCredential = new NetworkCredential();
            NCredential.UserName = EmailSendAdress;
            NCredential.Password = EmailSendPassword;

            SMTPC = new SmtpClient(smtpServer);
            SMTPC.Port = Port;
            SMTPC.EnableSsl = isCrypted;
            SMTPC.Credentials = NCredential; 
        }
        public void addClient(String SMTPClient)
        {
            SMTPClients.Add(SMTPClient);
            SMTPClientCount++;
        }
        public void sendMailToClients(String Subject ,String Mail)
        {
  
            for (int i = 0; i < SMTPClientCount; i++)
            {
                
                MailMessage m = new MailMessage();
                m.From = new MailAddress(NCredential.UserName);
                m.Subject = Subject;
                m.Body = Mail;
                m.To.Add(SMTPClients[i]);
                SMTPC.Send(m);

            }
        

        }
        public void sendMailToClient(String Client,String Subject ,String Mail)
        {
                    MailMessage m = new MailMessage();
                    m.From = new MailAddress(NCredential.UserName);
                    m.Subject = Subject;
                    m.Body = Mail;
                    m.To.Add(Client);
                    SMTPC.Send(m);

          
        }
    }

Die kann sogar emails zu mehreren Clients versenden

Hoffe ich habe dir geholfen

Ps: ich würde dir das ganze in vb.net porgrammieren für ein bissl egold versteht sich

[_ᴋush#]

Was würdest ca. verlangen für Loginfenster mit senden an eine email?

[anonymous-29742]

Mit SMTP gibts genug Tutorials auf Youtube, und das blickt sogar der kleinste coder.

MFG Lucas

[Else]

Originally Posted by _ᴋush#

Was würdest ca. verlangen für Loginfenster mit senden an eine email?

Mehr als 260 e*gold.

[_ᴋush#]

Originally Posted by Else

Mehr als 260 e*gold.

Weiß nicht, wie das bei deinen Preisen ist, aber er verlangt um einiges weniger ^^

[Andi]

Methode 1:

 Spoiler

Imports System.Net.Mail

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = " "
myCredentials.Password = "Passwort des Absenders"
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtp.web.de" ‘bei web.de
mySmtpsvr.Port = 25
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
Try
  Msg.From = New MailAddress("")
  Msg.To.Add("entchen@empfänger.de")
  Msg.Subject = "Betreff"
  Msg.Body = "Inhalt"
  mySmtpsvr.Send(Msg)
  MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
  MsgBox (Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try

Methode 2:

 Spoiler

Imports System.Net
Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim text As String
        text = TextBox1.Text
        Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
        myClient.Credentials = New Net.NetworkCredential("Meine Email", "Meine Email Pw")
        myClient.Send("Meine Email", "ZielEmail", "Hallo", text)
    End Sub
End Class

[_ᴋush#]

Originally Posted by .Winston ♥

Methode 1:

 Spoiler

Imports System.Net.Mail

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = " "
myCredentials.Password = "Passwort des Absenders"
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtp.web.de" ‘bei web.de
mySmtpsvr.Port = 25
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
Try
  Msg.From = New MailAddress("")
  Msg.To.Add("entchen@empfänger.de")
  Msg.Subject = "Betreff"
  Msg.Body = "Inhalt"
  mySmtpsvr.Send(Msg)
  MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
  MsgBox (Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try

Methode 2:

 Spoiler

Imports System.Net
Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim text As String
        text = TextBox1.Text
        Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
        myClient.Credentials = New Net.NetworkCredential("Meine Email", "Meine Email Pw")
        myClient.Send("Meine Email", "ZielEmail", "Hallo", text)
    End Sub
End Class

Vielen Dank! Werde ich mir anschauen!