Email Programma

Status
Niet open voor verdere reacties.
mooi! Zou alleen een knop maken zodat die van bijv. gemail alles vanzelf insteld! (scheelt typen voor de gebruiker :p )
 
klopt heb het al toegepast voor hotmail : smtp.live.com moet je proberen

dankjewel :)
 
Laatst bewerkt door een moderator:
ja weet je er een code voor
 
Laatst bewerkt door een moderator:
thomas2001 zei:
ja weet je er een code voor
Klik om te vergroten...

Welke programmeertaal gebruik je?

Het komt iig op dit neer:

  1. Pak de string uit de e-mail textbox
  2. Split hem op het @ teken en pak het rechtse gedeelte (na de @)
  3. Kijk wat er na het @ staat ( het beste kan je dit doen met string contains, dan heb je VEEL minder resultaten nodig)
  4. Bepaal welke client erbijhoort (kan in .net met een dictionary of hashtable)
  5. Vul de waarde in de textboxen in.


ALS je geen waarde kunt vinden, maak dan een "standaard" aan:

dat zou dan inhouden imap.STRINGVANACHTERDE@ & SMPT.STRINGVANACHTERDE@

Als ik dus invul 123@hallllllohalllloo.nl
die kan uiteraard niet gevonden worden, dus wordt het:

imap.hallllllohalllloo.nl
smtp.hallllllohalllloo.nl
 
Dankjewel Rick
ik ben nog niet zo heel goed in visual basic :eek:
kan je misschien een kleine code schrijven voor mij??:eek:
 
Laatst bewerkt door een moderator:
Over je programma

Geef je textboxen en comboboxen betere namen (nu zijn ze combobox1 form1.textbox4 etc.etc.)
Controlleer of het wachtwoord wel juist is bij het inloggen.
Ik mis BCC opties
Voeg wat kleurenopties toe



De code:

Het is dat ik niet veel te doen heb zo net voor het eten haha :p\

Omdat je aangeeft niet zo goed te zijn houd ik de code vrij simpel

[CPP] 'maak een string van de textbox
Dim email As String = textboxemail.Text

' Split string op @
Dim words As String() = email.Split(New Char() {"@"c})

' als er meer dan 1 @ in zit
If words.Length > 2 Then
MsgBox("er mag maar 1 @ in je e-mail zitten.")
Else
'als er maar 1 @ in zit

'split string op . (punt)
Dim contains As String() = words(1).Split(New Char() {"."c})

'pak het eerste gedeelte (tussen @ en eerste .)
Select Case contains(0)

'als het eerste hotmail is (dus @hotmail.com)
Case "hotmail"
'zet servervak op smtp.hotmail.com
server.Text = "smtp.hotmail.com"


'als het eerste gmail is (dus @gmail.com)
Case "gmail"
'zet servervak op smtp.gmail.com
server.Text = "smtp.gmail.com"


' als er geen "case" hierboven is die overeenkomt
Case Else
''servervakje = smtp. wat de gebruiker na de @ had
server.Text = "smtp." & words(1)
End Select

End If[/CPP]

hier kan je het project downloaden: http://www.mediafire.com/?1eyikkclz834vtf
 
Je hoeft niet iemand te qouten als je direct na die persoon reageert, en zelfs al qoute je iemand, probeer dan de code weg te laten, dan krijg je een kleiner bericht :p

Je zal meer moeten sturen als de .sln, kijk eens naar hoe ik het stuurde, en stuur het dan ook op die manier :)
Dan zal ik het voor je toepassen
 
Ik heb een eigen SMTP server op poort 25, die prima werkt. Maar, bij dit programma krijg ik een melding dat die niet verbonden is met internet.

Groet,
 
Nu heb ik geen mogelijkheid om SMTP server te kiezen. Dàt vind ik jammer. Misschien een "Geavanceerd"-pagina maken voor o.a. SSL/TLS, poort en SMTP server?

Groet,
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan