Vb e-mail sending problem

[EliteJesus123]

Dim emailmessage As MailMessage = New MailMessage
emailmessage.From = New MailAddress(TextBox1.Text)
emailmessage.To.Add(TextBox2.Text)
emailmessage.Subject = (TextBox3.Text)
emailmessage.Body = (TextBox4.Text)
emailmessage.Priority = MailPriority.Normal
For i = 0 To (Me.Anhang.Items.Count - 1)
emailmessage.Attachments.Add(New Attachment(Me.Anhang.Items(i)))
Next

Dim smtp As New SmtpClient("smtp.mail.yahoo.de")
Dim basicauthentificationinfo As New System.Net.NetworkCredential(TextBox5.Text, TextBox6.Text)

smtp.Credentials = basicauthentificationinfo

Try
smtp.Send(emailmessage)
Catch ex As Exception
MsgBox("Fehler beim Senden!", MsgBoxStyle.Critical, "Fehler!")

Hier ein teil meines scripts...meine frage wie sende ich von verschiedenen e-mail anbietern also z.b. noch smtp.web.de

[WhiteCollar]

wie meisnte das?? willste die selber mail von 2 verscheiden anbietern aufeinmal schicken?

[EliteJesus123]

nein....ich will das wenn ich z.b. web.de hab udn das programmm einem kumpel gebe der aber yahoo nurtzt der das auch nutzen kann^^

[WhiteCollar]

du kannst einen neuen e-mail account ertsellen von web z.b. und dann die daten festlegen von dem acc und die Textboxen weglassen z.b.

Dim emailmessage As MailMessage = New MailMessage
emailmessage.From = New MailAddress()
emailmessage.To.Add(TextBox2.Text)
emailmessage.Subject = (TextBox3.Text)
emailmessage.Body = (TextBox4.Text)
emailmessage.Priority = MailPriority.Normal
For i = 0 To (Me.Anhang.Items.Count - 1)
emailmessage.Attachments.Add(New Attachment(Me.Anhang.Items(i)))



oda du packst ne checkbox irgenwo da hin .. und dann machste nen If checkbox1.check then SmtpClient("smtp.mail.yahoo.de") = SmtpClient("smtp.web.de")


oda so...

Mfg

[EliteJesus123]

checkbox hatte ich auch in erwägung gezogen... aber das beste wäre wo der user nix checken muss^^
dann hätte ich auch gleich noch eine frage^^

wie kann ich den text aus einem loginbildschirm in meiner form anzeigen lassen ?^^

[WhiteCollar]

Ehm aus was für nem Loginbildschirm und dann noch ne option du kannst auch
nen if setzen und dann iregentwas mit if Texbox1.text (ka wie der code ist aba ) enthält web.de then SmtpClient("smtp.mail.yahoo.de") = SmtpClient("smtp.web.de")

und so aknnste das dann mit allen machen
oda denke du packst den ganzen code in nen Timer wenn du dann 5 timer machst udn dann in jeden timer ein versschiedenen smtp server machst und dann in dein button reinpackst if Texbox1.text enthält web oda so das der dann den timer wo der websmpt drine ist startet... dann kansnte alle smtp server benutzen..

[EliteJesus123]

jop und wie kann ich nun einen text aus der loginform in emine form 1 übergeben?^^

[WhiteCollar]

ehm ich weiß nur wie des in php geht xD ich brauch 10 min für die lösung in vb aba ich fahre jetzt leider weg wenn du es bis morgen nicht gepackt ahst helf ich dir^^
glaube des geht aba auch mit Dim bla as string
und das dann in der form1 abrufen ,... naja bin jetzt weg bb hofe konnte helfen^^

[EliteJesus123]

danke..hab es hin bekommen^^

[WhiteCollar]

np^^ kannste mal sagen was du jetzt genommen hast^^?

[Kraizy​]

Warum so kompliziert mit 5 Timern etc?
Pack einfach eine ComboBox auf deine Form mit der Eigenschaft DropDownStyle = DropDownList
Danach fügst du die verschiedenen Anbieter in die ComboBox (Yahoo, Web.de, etc...).
Erstellst dir eine String-Variable namens Anbieter und frägst dann einfach ab was in der ComboBox ausgewählt wurde:

PHP Code:

Dim Anbieter As String = Nothing

Select Case ComboBox1.Text
   Case "Yahoo" //Wenn in der ComboBox Yahoo ausgewählt wurde
      Anbieter = "smtp.mail.yahoo.de"
   Case "Web.de" //Wenn Web.de ausgewählt wurde
      Anbieter = "smtp.web.de"
   Case "1und1" //Wenn 1und1
      Anbieter = "smtp.1und1.de"
End Select

Dim smtp As New SmtpClient(Anbieter) 


[WhiteCollar]

Ah ja nicht dran gedacht des ist natürlich auch ne variante!! ^^

[EliteJesus123]

nochmal danke^^

[Kraizy​]

An deiner Stelle würde ich dein Programm mit diesem Code nicht veröffentlichen:

...
Dim basicauthentificationinfo As New System.Net.NetworkCredential(TextBox5.Text, TextBox6.Text)
...

In nicht einmal 30sec hat man dein Email-Passwort raus..

[EliteJesus123]

@Fisticuff


ich weiß, wie soll ich das sonst machen?