Hey!
Ik heb een programmatje gemaakt waarmee mensen e-mails kunnen verzenden via SMTP. Dit lukt prima, maar ik wil graag dat mensen hun eigen SMTP server kunnen instellen. Dus heb ik het volgende gedaan:
In dit geval worden de SMTP Server gegevens dus uitgelezen uit een smtp.txt bestand (het smtp.txt bestand wordt aangemaakt wanneer de gebruiker die ingeeft in een appart "Optie" schermpje). En als ik de SMTP Server van te voren opgeef (dus "Server = ReadLine" verander in "Server = "eensmtpserver.smtp.lol") en ook het "From" e-mail adres van te voren opgeef (dus "MailFrom = TBFrom.Text" verander in "MailFrom = "eenmail@adres.nl") werkt het vreemd genoeg wel
Kan iemand mij helpen?
M.v.g,
steefaman
Ik heb een programmatje gemaakt waarmee mensen e-mails kunnen verzenden via SMTP. Dit lukt prima, maar ik wil graag dat mensen hun eigen SMTP server kunnen instellen. Dus heb ik het volgende gedaan:
Code:
Dim Read As New System.IO.StreamReader("smtp.txt")
Dim ReadLine As String
ReadLine = Read.ReadToEnd()
Console.WriteLine(ReadLine)
Dim Server As String
Dim MailFrom As String
Dim MailTo As String
Dim Subject As String
Dim Message As String
Server = ReadLine
MailFrom = TBFrom.Text
MailTo = TBTo.Text
Subject = TBSubject.Text
Message = TBMessage.Text
SmtpMail.SmtpServer = Server
Try
SmtpMail.Send(MailFrom, MailTo, Subject, Message)
Catch ex As Exception
MsgBox("De e-mail kon niet worden verzonden.", MsgBoxStyle.Critical)
End Try
In dit geval worden de SMTP Server gegevens dus uitgelezen uit een smtp.txt bestand (het smtp.txt bestand wordt aangemaakt wanneer de gebruiker die ingeeft in een appart "Optie" schermpje). En als ik de SMTP Server van te voren opgeef (dus "Server = ReadLine" verander in "Server = "eensmtpserver.smtp.lol") en ook het "From" e-mail adres van te voren opgeef (dus "MailFrom = TBFrom.Text" verander in "MailFrom = "eenmail@adres.nl") werkt het vreemd genoeg wel
Kan iemand mij helpen?
M.v.g,
steefaman