Pošaljite e-mail iz Windows aplikacija
Posted by Elizeju u Primjeri i Tutoriali na 02 16, 2009 | 50 odgovora
Za slanje pošte s naših prozora aplikacije u Visual Basic. neto System.Net.Mail.MailMessage koristite klase.
Na sljedećem primjeru ćemo stvoriti obrazac (Form1), tekstni okvir za upisati poruku (TextBox1) i gumb (Button1) poslati tekst za slanje e-pošte.
Dim Kao New System.Net.Mail.MailMessage mymail miCorreo.IsBodyHtml = False miCorreo.From = "info@solovb.net" ', gdje šaljete mail correo.To.Add ("usuario@hotmail.com") "Primatelj pošte correo.Subject = "Test poruka windows aplikacija [solovb.net]" 'Case miCorreo.Body = TextBox1.Text od poruke tijela miCorreo.Priority = System.Net.Mail.MailPriority.Normal To prioritet Dim smtp Kao New System.Net.Mail.SmtpClient smtp.Host = "smtp.solovb.net" "Ja donijeti vjerodajnice za račun i lozinku iz koje je poslao smtp.Credentials = Nova System.Net.NetworkCredential ("info@solovb.net" "clave123456")) Pokušati smtp.Send (mymail) MsgBox ("Poruka poslana". MsgBoxStyle.OKOnly "solovb.net") Catch ex Kao iznimkom MsgBox ("ERROR:" "Greška" & ex.Message, MsgBoxStyle.OKOnly,) Pokušajte završiti
Činjenica da možete dodati puno funkcionalnost ovom primjeru kao tekstne okvire za pošiljatelja, primatelja i SMTP postavki.
Ali za primjer (kao što mi se sviđa), jednostavnije i bolje ćete dobiti ... bit će vremena da ga kompliciraju, haha.
Ako IsBodyHtml nekretninu na True, punimo tijelo HTML koda, tako da je naša poruka je dobio bolji pogled.
Ako je služio, ostavite komentar.
50 Reakcija to "Pošalji e-mail s windows aplikacija"
Komentirati
Informacije Bitacoras.com ...
Ako želite, možete kliknuti da biste ocijenili ovaj post Bitacoras.com. Hvala ....
Dobro.
Jedno pitanje, u sljedećem retku:
miCorreo.From = "josem.flores @ sfb.es" ', gdje šaljete mail
To ukazuje da vrijednost tipa "STRING" ne može se pretvoriti u "System.Net.Mail.MailAdress '
Neka je vidjeti ako ja mogu pomoći da se molim. Budući da sam promijenio, ali ne mogu ispraviti tu pogrešku.
Pozdrav i hvala
možete koristiti sljedeću liniju kako bi izbjegli pogreške
Novi System.Net.Mail.MailAddress miCorreo.From = ("josem.flores @ sfb.es")
Elizej
Puno hvala.
Ali imam problem, ja zalijepite svoj kôd i reći vam taj problem:
Dim Kao New System.Net.Mail.MailMessage _Message ()
Dim Kao New System.Net.Mail.SmtpClient _SMTP
'STMP POSTAVKE
= Novi System.Net.NetworkCredential _SMTP.Credentials ("pošte", "password")
_SMTP.Host = "Smtp.gmail.com"
_SMTP.Port = 465
_SMTP.EnableSsl = True
'Konfiguracijsku poruku
_Message. [Da]. Dodaj ("pošte") 'pošte na koju želite poslati e-mail
_Message.From = Nova System.Net.Mail.MailAddress ("pošte", "ime", System.Text.Encoding.UTF8) 'The pošiljatelja
_Message.Subject = "Test" "Predmet e-mail
_Message.SubjectEncoding System.Text.Encoding.UTF8 = "Kodiranje
_Message.Body = "Ovo je test" "sadržaj maila
_Message.BodyEncoding = System.Text.Encoding.UTF8
'_Message.Priority = System.Net.Mail.MailPriority.Normal
_Message.IsBodyHtml = False
"Dodavanje privitaka
'Dim _file kao niz My.Application.Info.DirectoryPath = "File" i "datoteku koju želite priložiti
'Dim Kao New System.Net.Mail.Attachment _Attachment (_file, System.Net.Mime.MediaTypeNames.Application.Octet)
'_Message.Attachments.Add (_Attachment)
'SHIPPING
Pokušati
_SMTP.Send (_Message)
Catch ex Kao System.Net.Mail.SmtpException
'MessageBox.Show (ex.ToString)
Pokušajte završiti
Ovaj kod je ok.
Sada, kada sam poslati mail dobivam sljedeću poruku o pogrešci:
To premašila čekati vrijeme primjene.
Izrada telnet smtp.gmail.com 465 spajanje savršeno, ali to ne šalje e ...
Ja bih zahvalan ako može vam jasno da će mi dati rješenje, jer ja ne mogu ga dobiti ...
Pozdrav i puno ti hvala unaprijed.
Kod je dobro, zapravo sam ga koristiti u apliaciones i trčanje. Očito je problem s nekim Gmail postavkama koje nedostaju. Uz gmail ja dobiti greška. Ako ja bi ga raditi s gmail, ja ću objaviti rješenje.
Hvala!
Ok Elizej.
Sam promijeniti port kao 587 ne bi me pustiti da se kroz telnet, ali još uvijek ne radi ...
Ja ću držati obličje i ako sam mu reći nešto. I nadam se svoje rješenje, ako to još uvijek ne.
Hvala vam puno i lijep pozdrav.
Usput.
Možete li mi reći bilo koji SMTP server koji radi ispravno your're trčanje na primjer, treba ga provesti što je prije moguće, a ja ne mogu naći bilo koji server koji radi ...
Pogledajte ako možete mi reći s kim ste to učiniti i ja to probati i vidjeti ako je tako, ako radim.
Puno vam hvala opet.
Pozdrav.
Dobro.
Sada je sve smjestio, to je bio problem antivirusnim programima da izrezana crv provodi masovno slanje ... mora se upisati u iznimki procesa i radi ispravno.
Puno hvala.
Pozdrav.
Dobro jutro.
Imam kod vrlo, vrlo slična suyo.El problem je da ja ne slati poštu sve dok ne zatvorite program ili neki drugi mail isporuke entionces ona nije poslana. Želite li znati zašto i kako to mogu popraviti?
Hvala
Ovo je jako dobra funkcija! hvala za dijeljenje ovo s nama
Hvala za dijeljenje ovaj kod ... To je vozeći mene ispucan i ništa sam otišao iz pošte. Zahvaljujući riješiti tvoje pogreške. Držite ga se ...
hellos, za one koji ne mogu naći SMTP poslužitelj koji radi sam dati oblik koji se koristi s Windows Live Hotmail, je 100% siguran da se odreknem kod promatrati.
Molim vas, nemojte mijenjati svoj programski kod se odnosi na konfiguraciju poslužitelja kako bi izbjegli pogreške.
Dim Kao New System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = Nova System.Net.Mail.MailAddress ("ejemplo@hotmail.com") "Pošalji poštu s kojima
miCorreo.To.Add ("ejemplo@hotmail.com") "Primatelj pošte
miCorreo.Subject = "Primjer" 'Case
miCorreo.Body = "možete staviti string teksta ili HTML koda ako expesificas će uključivati poruku"
miCorreo.Priority = System.Net.Mail.MailPriority.Normal To prioritet
'Ne mijenjati sljedeće linije qye i odgovaraju SMTP poslužitelja coniguracion tvrtke Microsoft (Windows Živ)
Dim smtp Kao New System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = "25"
smtp.EnableSsl = True
"Ja donijeti vjerodajnice za račun i lozinku iz koje je poslao
= Novi System.Net.NetworkCredential smtp.Credentials ("ejemplo@hotmail.com", "password")
Pokušati
smtp.Send (mymail)
MsgBox ("Poruka poslana". MsgBoxStyle.OKOnly)
Catch ex Kao iznimkom
MsgBox ("ERROR:")
Pokušajte završiti
i posljednji agredezco Stvoritelju stavke mi je služio previše. hvala
PARTNERI hvala vam puno su neki šefovi istina koja je služila mi više informacija.
Pozdrav, možete ili andubo? , Je bio u mogućnosti slati mail?
JA dobiti moj pogrešku kada pokušavate poslati poruku e-pošte
vjerodajnice ok?
ili gdje mogu dobiti jedan?
Pozdrav.
Dobro za sve, ovaj post mi je pomogao puno, ali imam mali problem kada sam priložite datoteku, JA dobiti sljedeću poruku o pogrešci: NotSupportedException je neobrađene
Nije podržan format pruža na putu.
Šifra:
Dim datoteku kao niz = My.Application.Info.DirectoryPath i "c: \ arcchivo.rar"
__________________inicio bug gdje brand
Dim Kao prilog New System.Net.Mail.Attachment (file, System.Net.Mime.MediaTypeNames.Application.Pdf)
msg.Attachments.Add (u prilogu)
__________________fin bug gdje brand
ako bilo tko može mi reći što sam radiš krivo Zahvaljujem unaprijed.
Neka računala su tako korisne.
ta hola q tal chebre svoj post, ali za q radi za vas može promijeniti
_SMTP.Port = 465
po
_SMTP.Port = 587
mi se da sam pokrenuti.
q sreća Bog blagoslovi
Testirao sam ovaj kod i to je radio savršeno, sam napravio promjene na SMTP poslužitelja recomendades Pharsat i primjedba po Elizeju u miCorreo.From = New System.Net.Mail.MailAddress ("josem.flores @ sfb.es") i bio je super, puno ti hvala.
Hvala na kodu
Hej.
Razvio sam program za slanje preko SMTP pristup Exchange Server koja zahtijeva autentifikaciju sa SSL-om. Program radi savršeno s bilo kojeg računala izvan mreže gdje Exchange Server, ali ako sam ga instalirati na tečaju PC mrežni poslužitelj ne radi. Uvijek dajte server nije pronađen pogrešku.
Korištenje PING na poslužitelj iz LAN-a na DNS i IP javnih, privatnih, Telnet, itd. .. pod uvjetom da nema odgovor. Na zapisnik Exchange poslužitelja ne kaže ništa, jasno je da nitko ne zna. Antivirus i firewall isključen bilo koji ideja?
q das hi Parsat mefunciona kod marabillas ali imam problem je sam obrazac u kojem q APODER će staviti bilo koji mail da biste poslali poruku, kao što sam se u skripti espesificar q vidjeti polja obrazaca znati q poslati e-AQ poruka, pitanje
agradeseria ste mnogo, ako mepudes ayuadar
Sa Windows 7 Professional ne radi, zašto?
Izvrsna kod brata
mnogo hvala
Pozdrav svima i pokušajte izvornog koda, izmjenu parshat s druge tvrtke i onemogućiti antivirusni i firewall i još uvijek ne šalje me kod kopirati i zalijepiti s polja očito netko može dati drugo rješenje ?
I opet, ako netko ne isprobati porta 587 u Hotmail
Bila je vrlo dobra zahvaljujući to mi je pomogla velika
Hej. Ovo su moji prvi koraci u VB.NET, (tako daleko u sa vb6). Broj na e-mail poslužitelj mi dobro, vrlo je dobar primjer. Sada želim zakomplicirati priznanja, privicima, itd.. Htjela sam pitati malo stvar Možete li poslati mi jedan primjer za download mail? Hvala vam puno za sve.
ami upita i poslati mi elektronička pošta problem je trebam envviar sliku u tijelu e-pošte ne kao privitak (tipa reklame), ali nije neka mi poslati .. Imam u RichTextBox sliku, ali ne poslati ništa ... ako bilo tko može pomoć mene ja jako zahvalni
moj e-mail je lesterelpepecalderon@hotmail.com
Stavio sam malo više od dodavanja ljepotu oblik u textbox i gumb i RichTextBox tako da više paresca web obrazac. Za to će se stvoriti:
Textbox1 (kućište)
Textbox2 (prijemnik)
Textbox3 (vaš e-mail)
Textbox4 (passwor - lozinka)
RichTextBox1 (poruka)
Button1 (submit gumb)
konfiguriran za Hotmail, neka kod ispod:
button1 kliknite:
Dim Kao New System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = Nova System.Net.Mail.MailAddress (TextBox2.Text) 'šalje mail adresu na kojoj
miCorreo.To.Add (TextBox3.Text) "Primatelj pošte
miCorreo.Subject = TextBox1.Text 'Tema
miCorreo.Body = RichTextBox1.Text
miCorreo.Priority = System.Net.Mail.MailPriority.Normal To prioritet
'Ne mijenjati sljedeće retke kako se oni odnose na coniguracion SMTP poslužitelja tvrtke Microsoft (Windows Živ)
Dim smtp Kao New System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = True
"Ja donijeti vjerodajnice za račun i lozinku iz koje je poslao
= Novi System.Net.NetworkCredential smtp.Credentials (TextBox3.Text, TextBox4.Text)
Pokušati
smtp.Send (mymail)
MsgBox ("Poruka poslana". MsgBoxStyle.OKOnly)
Catch ex Kao iznimkom
MsgBox ("ERROR:")
Pokušajte završiti
kao što vidite slijediti izvorni kod, ali je kod Marine SMTP postavke za Hotmail sam samo reći više ljepote u obliku kao što je prikazano na ovoj slici: http://i46.tinypic.com/34ir2c0.jpg
Nadam se i posluživati ih pozdravi i hvala SoloVB
Kažem zbogom!
Hi JA dobiti sljedeću poruku o pogrešci, a ne zato što su stavili sve kod kao što je to.
greška je:
Neuspjeh slanja poruke.
netko tko može pomoć mene ugoditi.
hvala na doprinosa muchisisisimo mi je služio ozbiljno
Sa mnom je radio izvrsno
Poštovani, šaljem link automatski daje gumb gdje se podaci trebam donijeti select u Oracle baze podataka, jedina stvar je mora imati za; Naslov: ljutnja unutar teksta i vezu treba poslati, ali ne kako bi mi pomoć!
hej prijatelji ne me pogrešku radio mm
tako da imam codigolo
Public Class Form1
Enviarcorreo Public Sub ()
Dim Kao New System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = Nova System.Net.Mail.MailAddress ("luisfernandop.s @ hotmail.com") "Pošalji poštu s kojima
miCorreo.To.Add ("luisfernandop.s @ hotmail.com") "Primatelj pošte
miCorreo.Subject = "test" FER-u 'slučaju
miCorreo.Body = "none"
miCorreo.Priority = System.Net.Mail.MailPriority.Normal To prioritet
'Ne mijenjati sljedeće linije qye i odgovaraju SMTP poslužitelja coniguracion tvrtke Microsoft (Windows Živ)
Dim smtp Kao New System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = True
"Ja donijeti vjerodajnice za račun i lozinku iz koje je poslao
= Novi System.Net.NetworkCredential smtp.Credentials ("luisfernandop.s @ hotmail.com", "/ n @ ndo/6724766887")
Pokušati
smtp.Send (mymail)
MsgBox ("Poruka poslana". MsgBoxStyle.OKOnly)
Catch ex Kao iznimkom
MsgBox ("ERROR:")
Pokušajte završiti
End Sub
Private Sub Button1_Click (ByVal pošiljatelja Kao System.Object i ByVal e As System.EventArgs) Ručke Button1.Click
enviarcorreo ()
End Sub
Kraj klasa
ako bi netko mogao me vidjeti moju pogrešku sam jako zahvalni
smtp.Port = "587" 'Ne 25 je 587, a vi ćete raditi savršeno.
Muyyyy dobra djela od 10! ... Izvrsna doprinosa! Sada sam držati ruku ... Hvala ti puno =)
Puca kroz Pharsat Čvrsta
Vaš doprinos su mi puno pomogli ...
Hvala svima koji doprinose uz njihovu pomoć i kod q
Pozdrav xfa npr. netko mogao reći kao i ja kad želim slati poruke iz drugih mail od Hotmail ..
npr. yahoo, gmail, itd. ... ili moja tvrtka server ...
Discula dudami ovo je moj broj:
Dim Kao New System.Net.Mail.MailMessage mymail
Dim mail Kao New System.Net.Mail.MailMessage
micorreo.IsBodyHtml = False
Novi System.Net.Mail.MailAddress micorreo.From = ("leboche@hotmail.com")
correo.To.Add ("leboche@hotmail.com")
correo.Subject = "Poruka prueva"
micorreo.Body = TextBox1.Text
micorreo.Priority = Net.Mail.MailPriority.Normal
Dim smtp Kao New System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 587
smtp.EnableSsl = True
= Novi System.Net.NetworkCredential smtp.Credentials ("info@solovb.net", "123456")
Pokušati
smtp.Send (mymail)
MsgBox ("Poruka poslana". MsgBoxStyle.OKOnly "info@solovb.net")
Catch ex Kao iznimkom
MsgBox ("Pogreška:»)
Pokušajte završiti
ali ne znam da li ovaj kôd u polje ili ili na gumb možete mi pomoći?
Ja sam početnik u ESOT
Ja bih stavio ga u gumb pošalji nakon potvrđivanja da su svi uneseni podaci potrebno.
Sreća
Sve je super!
Hvala za ulaz
Pozdrav
Zanimljivo sobretod vaš primjer i lako razumjeti, ali imam pitanje, želim da u mail tijelu je sadržaj izvješća
kao dificio dio, nadam se vašu pomoć
Puno hvala. Mali doprinos.
Za slanje s kopijom (CC) =
correo.CC.Add ("Adresa")
Pozdrav, imam ovaj problem:
Rekao sam: "Ne naziv proglašen je pojačalo"
i
"Znak nije valjana" po "," uz pojačalo.
tko može pomoć mene puno ti hvala.
Zamijenite ga i
MsgBox ("ERROR:" "Greška" & ex.Message, MsgBoxStyle.OKOnly,)
Muuuuchas hvala .. Našao sam solucioen
Možete dodati koliko slanje ili elementa ili dodavanjem privatne arhive?
Hvala vam svima za kod!
bajka radi!
Pozdrav,
vrlo dobar stranica,
quisisera bilo kroz koda za slanje e-pošte mogu poslati preslike za slijepe Bcc na trgu, gdje se nalaze još nekoliko e-mail, je li to moguće?
Pozdrav:
hvala vam puno mi je služio izvrsno, hvala, bio sam napokon u mogućnosti poslati mail, ali imam duditas s obzirom na to kako ste stavili link u tijelu, na taj način možete prilagoditi s html oznakama i kako poslati zahvalnicu adjunto.muchas, Ja sam radio savršen kod.