sende data fra vb til e-mail

[Martin-Vb]

Jeg skal lage et litte tekst spill som krever en liten registrering.

Så jeg lurrer på hvordan jeg kan sende dataen fra formen til e-mail.

[Manfred]

vb6 eller vb.net?

 

vb.net: System.Net.Mail...

[Martin-Vb]

vb.net er greit kan du skrive en hell linje.

Jeg skal send data fra to textboxer.

Endret 20. juni 2007 av Martin-Vb

[j000rn]

vb.net er greit kan du skrive en hell linje skal ha to textbox.

8903978[/snapback]

 

Skulle det være en forståelig settning?

 

[Martin-Vb]

kan du skrive en hell linje.

det er dataen fra to textboxer som skal sendes.

 

forstålig nå?

[Manfred]

Du kan få et eksempel i C#:

System.Net.Mail.SmtpClient smtp = new System.Net.Mail.SmtpClient("smtp.minmail.no");
System.Net.Mail.MailMessage mail = new System.Net.Mail.MailMessage();

mail.BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-1");
mail.SubjectEncoding = System.Text.Encoding.GetEncoding("iso-8859-1");
mail.From = new System.Net.Mail.MailAddress("[email protected]", "Mitt Navn");
mail.To.Add(new System.Net.Mail.MailAddress("[email protected]", "Mottakers Navn"));
mail.Subject = "En liten mail fra meg!";
mail.IsBodyHtml = true;
mail.Body = "Her er en mail<br><br>mvh<br>Meg";

smtp.Send(mail);

[Martin-Vb]

funker ikke vet ikke helt hva som er feil men det er noe med den nederste linja

[backup]

Her et eksempel i vb. Merk at jeg henter navnet på smtp Serveren fra brukerens register. Dermed kan programmets exe-kode distribueres til andre uten at man trenger å vite deres aktuelle smtp Server.

 

Dim mail As New MailMessage(), smtpServer As String

smtpServer = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet " _

& "Account Manager\Accounts\00000001", "SMTP Server", Nothing)

mail.From = New MailAddress("[email protected]")

mail.To.Add("[email protected]")

mail.Subject = "email"

mail.Body = "Hei på deg!"

Dim smtp As New SmtpClient(smtpServer)

smtp.Send(mail)

[Manfred]

Den vil jo kun fungere dersom du bruker Outlook / Outlook Express da...

 

Jeg har ikke en gang nøkkelen 00000001 under Accounts. Absolutt ikke en idiotsikker metode.

 

Hva med å si HVA feilmeldingen sier da?

[aadnk]

Hva med å si HVA feilmeldingen sier da?

8905906[/snapback]

Han limte vel C#-koden direkte inn i VB. NET, tenker jeg.

 

Løsningen er å konvertere den til VB .NET, evt. bruke backups løsning.

[Martin-Vb]

nei jeg limte den inn i c#

[backup]

Nedenfor følger en forbedret versjon på basis av Manfred sitt poeng med at nøkkelen 00000001 ikke gjelder generelt.

 

Dim mail As New MailMessage(), smtpServer As String, x As String, y As String

x = "HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager"

y = My.Computer.Registry.GetValue(x, "Default Mail Account", Nothing)

x = "HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\" & y

smtpServer = My.Computer.Registry.GetValue(x, "SMTP Server", Nothing)

mail.From = New MailAddress("[email protected]")

mail.To.Add("[email protected]")

mail.Subject = "email"

mail.Body = "Hei på deg!"

Dim smtp As New SmtpClient(smtpServer)

smtp.Send(mail)

 

 

For ordens skyld: har bare testet dette med OE som default mail-program. Om det også funker med OL som default mail-program, det vet jeg ikke, fordi jeg ikke har OL installert.