Vb e-mail sending problem

Page 1 of 2 1 2
04/01/2011 14:33 EliteJesus123#1
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
04/01/2011 14:37 WhiteCollar#2
wie meisnte das?? willste die selber mail von 2 verscheiden anbietern aufeinmal schicken?
04/01/2011 14:47 EliteJesus123#3
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^^
04/01/2011 15:10 WhiteCollar#4
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([Only registered and activated users can see links. Click Here To Register...])
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
04/01/2011 15:15 EliteJesus123#5
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 ?^^
04/01/2011 15:20 WhiteCollar#6
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..
04/01/2011 15:25 EliteJesus123#7
jop und wie kann ich nun einen text aus der loginform in emine form 1 übergeben?^^
04/01/2011 15:29 WhiteCollar#8
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^^
04/01/2011 15:37 EliteJesus123#9
danke..hab es hin bekommen^^
04/02/2011 11:02 WhiteCollar#10
np^^ kannste mal sagen was du jetzt genommen hast^^?
04/02/2011 12:06 Kraizy​#11
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) 
04/02/2011 12:35 WhiteCollar#12
Ah ja nicht dran gedacht des ist natürlich auch ne variante!! ^^
04/05/2011 15:37 EliteJesus123#13
nochmal danke^^
04/05/2011 16:03 Kraizy​#14
An deiner Stelle würde ich dein Programm mit diesem Code nicht veröffentlichen:
Quote:
...
Dim basicauthentificationinfo As New System.Net.NetworkCredential(TextBox5.Text, TextBox6.Text)
...
In nicht einmal 30sec hat man dein Email-Passwort raus..
04/06/2011 20:45 EliteJesus123#15
@Fisticuff


ich weiß, wie soll ich das sonst machen?
Page 1 of 2 1 2