[Pytanie] Email wysyłanie

[czesia]

Witam pisze program i utknąłem przy zrobieniu wysyłania wiadomości na email a dokładniej chce aby ktoś wpisał np Test do TextBox po kliknięciu button wyśle Test na mój Email jak to zrobić? za pomoc wielkie thx !

[Gość]

Klasa MailMessage i SmtpClient.

[Pearl0PL]

Możesz to zrobić np. poprzez zrobieniu odpowiedniego skryptu w php i wstawieniu na serwer, a pozniej przy wykorzystaniu $_GET możesz wpisać treść, odbiorce, tytuł w vb.net i odpowiednio do wysłać.

 

NP:

 

Dim Klient As New Net.WebClient
Dim PHP As String = Klient.DownloadString("http://twojadomena.pl/nazwa_twojego_skryptu.php?tresc=TUTAJ_PRZYPISUJESZ_TRESC_Z_TEXTBOXA&odbiorca=TUTAJ_ODBIORCE&tytul=I_TYTUL")

[StuSto]

@top łap kod:

Imports System
Imports System.Net.Mail
Imports System.Threading
Imports System.Text

Public Class form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mail As New MailMessage()
        Dim smtpserver As New SmtpClient
        smtpserver.Credentials = New Net.NetworkCredential("[email protected]", "hasło")
        smtpserver.Port = 587
        smtpserver.Host = "smtp.gmail.com"
        smtpserver.EnableSsl = True
        smtpserver.EnableSsl = True
        mail.To.Add("[email protected]")
        mail.From = New MailAddress("[email protected]")
        mail.Subject = " Jakiś temat "
        mail.Body = " Jakiś text " + textbox1.text
        smtpserver.Send(mail)
    End Sub

[czesia]

up w co to wkleić ?

[StuSto]

to jest ogolny src

To dajesz na poczatku wszystkiego

Imports System
Imports System.Net.Mail
Imports System.Threading
Imports System.Text

A to pod przyciskiem wyslij:

        Dim mail As New MailMessage()
        Dim smtpserver As New SmtpClient
        smtpserver.Credentials = New Net.NetworkCredential("[email protected]", "hasło")
        smtpserver.Port = 587
        smtpserver.Host = "smtp.gmail.com"
        smtpserver.EnableSsl = True
        smtpserver.EnableSsl = True
        mail.To.Add("[email protected]")
        mail.From = New MailAddress("[email protected]")
        mail.Subject = " Jakiś temat "
        mail.Body = " Jakiś text " + textbox1.text
        smtpserver.Send(mail)

Za co ty sie bierzesz jak dostajesz gotowca i nie umiesz go wkleic licze chociaz na like

[smooth killer]

Nie wiem po co ci tyle importów, wystarczy ci:

Imports System.Net.Mail

I ogólnie twój kod jest zagmatfany np:

smtpserver.EnableSsl = True
smtpserver.EnableSsl = True

podwójne przypisanie wartości booleanowi nic nie da

 

Nad Public Class Form1 dajesz ten kod:

Imports System.Net.Mail

Potem w zdarzeniu OnClick buttona ten kod:

Dim mail As New MailMessage() 
Dim SmtpServer As New SmtpClient("smtp.gmail.com") 'Ustawiamy server SMTP na server GMAILA       
mail.From = New MailAddress("[email protected]") 'Adres z ktorego wysylamy (nie musi byc prawdziwy, testowalem to na gmailu i nigdzie tego adresu nie wyswietla, tylko ten ponizej w Credentials
mail.[To].Add("[email protected]") 'Adres na ktory wysylamy wiadomosc
 mail.Subject = "Gdzie jest kasa" 'Temat emaila        
mail.Body = "Siema" 'cialo emaila czyli tekst, zamien to na mail.Body = TextBox1.Text (lub inny textbox/richtextbox) zeby przypisac wartosc z textboxa
SmtpServer.Port = 587 'Port        
SmtpServer.Credentials = New System.Net.NetworkCredential("[email protected]", "haslo") 'Tutaj musimy podac haslo do konta z ktorego wysylamy wiadomosc     
SmtpServer.EnableSsl = True 'Protokol SSL    
SmtpServer.Send(mail) 'Wysylamy email

[BERCIK4545]

StuSto jesteś wielki dzięki

[XProGamer]

Też szukam