Siųsti el. Iš Windows
Posted by Eliziejų pavyzdžiai , Tutorials 02 16, 2009 | 50 atsakymai
Norint siųsti laiškus nuo mūsų Windows Visual Basic. neto System.Net.Mail.MailMessage klasę.
Toliau pateiktame pavyzdyje mes sukursime forma (Form1), teksto lauke įveskite pranešimą TextBox1) ir mygtuką button1) siųsti tekstą siųsti el.
, Dim Kaip Naujosios System.Net.Mail.MailMessage mymail miCorreo.IsBodyHtml = False miCorreo.From = "info@solovb.net" "pašto, kur siųsti correo.To.Add ("usuario@hotmail.com)" adresatas paštu correo.Subject = "Bandymo žinutė iš Windows taikymo [solovb.net]" Byla miCorreo.Body = TextBox1.Text Pranešimo tekstas miCorreo.Priority = System.Net.Mail.MailPriority.Normal "prioritetas Dim SMTP Kaip Naujas System.Net.Mail.SmtpClient smtp.Host = "smtp.solovb.net" "Aš perduoda įgaliojimai abonementą ir slaptažodį, kurį nusiuntėme smtp.Credentials = Naujas System.Net.NetworkCredential, ("info@solovb.net" clave123456 ".)) Pabandyti smtp.Send (mymail) MsgBox ("Pranešimas išsiųstas". MsgBoxStyle.OKOnly "solovb.net") , Sugavimo ex Kaip išimties MsgBox ("KLAIDA:" Klaida! "& Ex.Message, MsgBoxStyle.OKOnly.,) Pabaiga Bandykite
Tai, kad jūs galite pridėti daug funkcijų šiame pavyzdyje teksto laukeliuose, siuntėjas, gavėjas ir SMTP parametrus.
Bet pavyzdys (kaip aš) paprastesnis, tuo geriau jums bus laiko ją komplikuoti, cha cha.
Jei mes IsBodyHtml turtą True, mes užpildyti kūną su HTML kodu, kad mūsų žinia gavo geresnę išvaizdą.
Jei tarnavo, palikite komentarą.
50 Atsakymai "Siųsti e-paštą iš Windows"
Komentuoti
Informacija Bitacoras.com ...
Jei norite, galite spustelėti Įvertinkite šį pranešimą Bitacoras.com. Ačiū ....
Geras.
Vienas klausimas, į šią eilutę:
miCorreo.From = "josem.flores @ sfb.es" paštas, kur siųsti
Tai rodo, kad tipo "string" vertė negali būti konvertuojamos į "System.Net.Mail.MailAdress"
Pažiūrėkime, jei aš galiu padėti, prašome. Kadangi aš pasikeitė, bet aš negaliu išspręsti šią klaidą.
Pasisveikinimas ir ačiū
Jūs galite naudoti šią eilutę, kad būtų išvengta klaidą
Naujas System.Net.Mail.MailAddress miCorreo.From = (, "josem.flores @ sfb.es)
Eliziejus
Labai ačiū.
Bet aš turiu problemą, aš įdėti savo kodą ir pasakyti jums šią problemą:
, Dim Kaip "Naujosios System.Net.Mail.MailMessage _Message straipsnio)
, Dim Kaip Naujosios System.Net.Mail.SmtpClient _SMTP
"STMP parametrus
= System.Net.NetworkCredential _SMTP.Credentials, pašto abonementas "," slaptažodis ")
_SMTP.Host = "Smtp.gmail.com"
_SMTP.Port = 465
_SMTP.EnableSsl = True
"Sąrankos pranešimas
_message [Į]. ("Pašto dėžutę") "pašto sąskaitą, į kurią jūs norite siųsti elektroninį laišką
_Message.From = Naujas System.Net.Mail.MailAddress (pašto abonementas "," vardas ", System.Text.Encoding.UTF8)" siuntėjo
_Message.Subject = "Testas" 'Pagal temą elektroniniu paštu
_Message.SubjectEncoding = System.Text.Encoding.UTF8 "kodavimo
_Message.Body = "Tai yra testas" turinys paštu
_Message.BodyEncoding = System.Text.Encoding.UTF8
"_Message.Priority = System.Net.Mail.MailPriority.Normal
_Message.IsBodyHtml = False
"Priedų pridėjimas
"Dim _file Kaip styginių. = My.Application.Info.DirectoryPath ir" File "" failą, kurį norite pridėti
", Dim Kaip Naujosios System.Net.Mail.Attachment, _Attachment (_file, System.Net.Mime.MediaTypeNames.Application.Octet)
. "_Message.Attachments.Add (_Attachment)
"Laivybos
Pabandyti
_SMTP.Send (_Message)
Catch ex Kaip System.Net.Mail.SmtpException
. "MessageBox.Show (ex.ToString)
Pabaiga Bandykite
Šis kodas yra ok.
Dabar, kai aš siųsti laiškus gaunu tokį klaidos pranešimą:
Tai viršijo taikymo laukimo laiką.
Padaryti, Telnet smtp.gmail.com 465 prijungti puikiai, tačiau jis nesiunčia e ...
Būčiau dėkingas, jei galite išvalyti jus man duoti tirpalą, nes aš negaliu gauti ...
Linkėjimai ir labai ačiū iš anksto.
Kodas yra gerai, iš tikrųjų aš naudoju jį apliaciones ir einamosioms. Matyt problema yra su kai kurių "Gmail nustatymuose, kad trūksta. Su gmail gaunu klaidą. Jeigu aš darau, kad dirbti su "Gmail", bus paskelbti sprendimą.
Ačiū!
Gerai Eliziejus.
Pakeisti uosto, 587 nebūtų leiskite man gauti per telnet, bet vis dar neveikia ...
Aš nuolat ieško ir jei aš jam ką nors pasakyti. Ir aš tikiuosi, kad savo sprendimą, jei tai vis dar nepavyksta.
Labai ačiū ir nuoširdžiausi linkėjimai.
Beje.
Ar galite man papasakoti bet SMTP serverį, kuris veikia teisingai su your're pavyzdžiui, reikia jį kuo greičiau įgyvendinti, ir aš negaliu rasti bet kuriame serveryje, kuris veikia ...
Žr jei galite pasakykite man, kurį jums tai padaryti, ir aš stengiuosi jį ir pamatyti, jei taip, jei aš dirbu.
Labai ačiū dar kartą.
Pasisveikinimas.
Geras.
Dabar viskas išspręsta, tai buvo problema, antivirusinės programos, kad kelioms širdys, masinio siuntimo paslaugą ... turi būti įrašytas į išimčių procese ir tinkamai veikia.
Labai ačiū.
Pasisveikinimas.
Labas rytas.
Turiu kodas labai, labai panašus į suyo.El problema yra, kad aš ne siųsti laiškus, kol uždaryti programą, arba kitą pašto pristatymo entionces, pastarasis nesiunčiamas. Ar žinote, kodėl ir kaip Galiu jį sutaisyti?
Ačiū
Tai yra labai gera funkcija! ačiū už dalintis tai su mumis
Dėkojame, kad pasidalyti šį kodą ... Jis buvo vairuotojo man crazy ir nieko išėjau paštu. Dėl jūsų išspręsti šią klaidą. Keep it up ...
hellos, tiems, kurie negali rasti SMTP serverį, kuris veikia konfigūracija, kuris naudojamas su Windows Live Hotmail, yra 100% tikras, kad galiu palikti savo kodą stebėti.
Prašome pakeisti savo programos kodą, susijusį su serverio konfigūracijos, kad būtų išvengta klaidų.
, Dim Kaip Naujosios System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From =. Naujas System.Net.Mail.MailAddress ("ejemplo@hotmail.com)" siųsti laiškus iš kur
miCorreo.To.Add ("ejemplo@hotmail.com)" adresatas paštu
miCorreo.Subject = "pavyzdys" byla
miCorreo.Body = "Jūs galite įdėti teksto eilutę arba HTML kodas, jei expesificas apims pranešimą
miCorreo.Priority = System.Net.Mail.MailPriority.Normal "prioritetas
"Ar ne pakeisti šias eilutes qye ir atitinka" Microsoft "SMTP serverio coniguracion, (Windows Live)
Dim SMTP Kaip Naujas System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = "25"
smtp.EnableSsl = true
"Aš perduoda įgaliojimai abonementą ir slaptažodį, kurį nusiuntėme
= System.Net.NetworkCredential smtp.Credentials, "ejemplo@hotmail.com", "slaptažodis")
Pabandyti
smtp.Send (mymail)
MsgBox ("Pranešimas išsiųstas". MsgBoxStyle.OKOnly)
, Sugavimo ex Kaip išimties
MsgBox ("KLAIDA:")
Pabaiga Bandykite
ir paskutinis agredezco elemento kūrėjas tarnavo man per daug. ačiū
PARTNERIAI labai ačiū keli bosai tiesa, kad tarnavo man daug informacijos.
Sveiki, jūs arba andubo? , Buvo galima siųsti jokių laiškų?
Aš gausiu savo klaidą, kai bandote siųsti laišką
įgaliojimai ok?
arba, kur galiu gauti kitą?
Sveikinimai.
Puikiai tinka visiems, šis pranešimas padėjo man daug, bet aš turiu mažą problemą, kai aš pridėti failą, gaunu tokį klaidos pranešimą: NotSupportedException neapdorojama
Kelias nepalaikomas formatas.
Kodas:
Dim failas As String = My.Application.Info.DirectoryPath & "c: \ arcchivo.rar"
__________________inicio klaida, kai prekės ženklas
Dim areštas Kadangi Naujosios System.Net.Mail.Attachment (failo System.Net.Mime.MediaTypeNames.Application.Pdf)
msg.Attachments.Add (pridedama)
__________________fin klaida, kai prekės ženklas
jei kas gali man pasakyti, aš darau negerai Dėkoju iš anksto.
Laikyti kompiuteriai yra taip naudinga.
ta hola q. Sausio chebre savo pranešimus bet q veikia, galite keisti
_SMTP.Port = 465
pagal
_SMTP.Port = 587
man, kad aš paleisti.
q sėkmės God bless
Aš išbandyti šį kodą ir jis dirbo puikiai, aš padariau pakeitimus SMTP serverio recomendades Pharsat "ir komentarus Eliziejų į miCorreo.From =. Naujosios System.Net.Mail.MailAddress straipsnio" josem.flores - @ sfb.es), ir buvo Puiku, labai ačiū.
Ačiū už kodą
Hey.
Sukūrė programą, siųsti per SMTP prieigą prie mainų serveris reikalauja autentifikavimo su SSL. Programa puikiai veikia iš bet kurio kompiuterio, Exchange Server, bet jei aš ją įdiegti į kompiuterio tinklo Exchange serverio neturi dirbti už tinklo ribų. Visada duoti serveris nerastas klaida.
Naudodamas komandą PING į serverį iš LAN DNS, IP visuomenei, privačių, Telnet ir pan .. jei jokio atsakymo. Dėl Exchange serveris istorija sako nieko, aišku, kad niekas nežino. Antivirusinė ir ugniasienė atjungtas, bet idėjų?
q das Hi Parsat mefunciona kodas marabillas, bet aš turiu problemą turiu formą, kur q APODER įrašyti bet kokį laišką siųsti pranešimą, kaip aš galiu scenarijaus espesificar q formos laukus žinoti q siųsti e-AQ pranešimą, klausimas
agradeseria jūs daug jei mepudes ayuadar ir
Su "Windows 7 Professional" neveikia, kodėl?
Puikus kodas brolis
labai ačiū
Sveiki visi ir originalų kodą, keisti parshat, pabandyti su kita kompanija ir išjungti antivirusinę programą ir ugniasienę ir dar ne siųsti man kodą nukopijuoti ir įklijuoti srityse akivaizdžios kam nors gali suteikti man dar vieną sprendimą ?
Aš vėl, jei kas nors nėra išbandyti uosto 587 iš Hotmail
Buvo labai gera dėka tai man padėjo puikus
Hey. Tai yra mano pirmieji žingsniai VB.NET, iki šiol į su VB6). Kodas elektroninio pašto serverį man gerai, yra labai geras pavyzdys. Dabar aš noriu apsunkinti padėkų, priedai ir kt. Norėjau paklausti šiek tiek patį Ar galite atsiųsti pavyzdį atsisiųsti paštą? Labai ačiū už viską.
AMI užklausa ir siųsti man laiškus problema yra man reikia vaizdą envviar pašto kūno ne kaip priedą tipo reklama), bet neleido man siųsti .. Turiu į RichTextBox vaizdą, bet nesiunčia nieko ... jei kas nors gali padėti man būtų labai dėkingi
mano laišką yra lesterelpepecalderon@hotmail.com,
Aš įdėti šiek tiek daugiau nei pridedant grožį formos laukelį ir mygtuką ir RichTextBox, kad daugiau paresca internetinę formą. Už tai mes sukursime:
Textbox1 (Byla)
Textbox2 (imtuvas)
Textbox3 (savo elektroninio pašto adresą)
Textbox4 (passwor - slaptažodis)
RichTextBox1 (pranešimas)
Button1 (mygtuką "Siųsti")
sukonfigūruota "Hotmail", jau žemiau esantį kodą:
button1 spustelėkite:
, Dim Kaip Naujosios System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From =. Naujas System.Net.Mail.MailAddress (TextBox2.Text) "siunčia pašto adresą, kai
miCorreo.To.Add (TextBox3.Text) "adresatas paštu
miCorreo.Subject = TextBox1.Text "tema
miCorreo.Body = RichTextBox1.Text
miCorreo.Priority = System.Net.Mail.MailPriority.Normal "prioritetas
"Ar ne pakeisti šias eilutes, kaip jie yra susiję su SMTP serverio coniguracion, Microsoft (Windows Live)
Dim SMTP Kaip Naujas System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = true
"Aš perduoda įgaliojimai abonementą ir slaptažodį, kurį nusiuntėme
= Yra naujų System.Net.NetworkCredential smtp.Credentials TextBox3.Text, TextBox4.Text)
Pabandyti
smtp.Send (mymail)
MsgBox ("Pranešimas išsiųstas". MsgBoxStyle.OKOnly)
, Sugavimo ex Kaip išimties
MsgBox ("KLAIDA:")
Pabaiga Bandykite
kaip jie mato originalų kodą, bet kodas Marine SMTP parametrus, dėl hotmail aš tiesiog pasakyti daugiau grožio forma, kaip parodyta šiame paveikslėlyje: http://i46.tinypic.com/34ir2c0.jpg
Tikiuosi, kad ir jiems tarnauti, sveikinimai ir padėkos SoloVB
Aš atsisveikinti!
Sveiki, aš gauti tokį klaidos pranešimą ir ne todėl, kad visą kodą, nes ji yra.
klaida yra:
Nesugebėjimas siųsti pranešimą.
kažkas, kas gali padėti man prašom.
ačiū už įmokų muchisisisimo tarnavo man rimtai
Su manimi dirbo nuostabiai
Sveiki, galiu siųsti nuorodą automatiškai, kurioje mygtuką, kai duomenys turėčiau pareikšti Oracle duomenų bazės, pasirinkite, vienintelis dalykas, turi turėti temą: pyktis per tekstą ir nuorodą turėtų būti išsiųstas, bet ne kaip gali man padėti!
ei draugai Nemanau supainioti mane dirbo mm
taip, aš turiu, codigolo
Viešųjų klasė Form1
Enviarcorreo Public Sub ()
, Dim Kaip Naujosios System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From =. Naujas System.Net.Mail.MailAddress ("luisfernandop.s @ hotmail.com") "siųsti laiškus iš kur
miCorreo.To.Add ("luisfernandop.s @ hotmail.com") "adresatas paštu
miCorreo.Subject = "testas FER" byloje
miCorreo.Body = "nėra"
miCorreo.Priority = System.Net.Mail.MailPriority.Normal "prioritetas
"Ar ne pakeisti šias eilutes qye ir atitinka" Microsoft "SMTP serverio coniguracion, (Windows Live)
Dim SMTP Kaip Naujas System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = true
"Aš perduoda įgaliojimai abonementą ir slaptažodį, kurį nusiuntėme
= System.Net.NetworkCredential smtp.Credentials, straipsnio "luisfernandop.s @ hotmail.com", "/ n @ ndo/6724766887)
Pabandyti
smtp.Send (mymail)
MsgBox ("Pranešimas išsiųstas". MsgBoxStyle.OKOnly)
, Sugavimo ex Kaip išimties
MsgBox ("KLAIDA:")
Pabaiga Bandykite
End Sub
Private Sub Button1_Click (ByVal siuntėjas Kaip System.Object, ByVal el Kaip System.EventArgs) Rankenos Button1.Click
enviarcorreo ()
End Sub
Pabaiga klasė
jei kas nors galėtų man pamatyti mano klaidą Būsiu labai dėkingi
smtp.Port = "587" Nr. 25, 587 ir veiks puikiai.
Muyyyy geri darbai 10! ... Puikus įnašas! Dabar aš klijuoti ranką ... Dėkojame, kad tiek daug =)
Šūviai per Pharsat ..
Jūsų indėlis padėjo man daug ...
Ačiū visiems, kurie prisideda pagalbą kodas q
Sveiki xfa pvz., kas nors galėtų pasakyti, kaip aš, kai noriu išsiųsti laiškus iš kitų pašto nei hotmail ..
pvz. yahoo, gmail, ir tt ... arba mano įmonė serveris ...
Discula dudami tai mano kodas:
, Dim Kaip Naujosios System.Net.Mail.MailMessage mymail
Kaip Naujas System.Net.Mail.MailMessage Dim paštas
micorreo.IsBodyHtml = False
Naujas System.Net.Mail.MailAddress micorreo.From = ("leboche@hotmail.com)
correo.To.Add ("leboche@hotmail.com")
correo.Subject = "pranešimas Linux ir Windows"
micorreo.Body = TextBox1.Text
micorreo.Priority = Net.Mail.MailPriority.Normal
Dim SMTP Kaip Naujas System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 587
smtp.EnableSsl = true
= System.Net.NetworkCredential smtp.Credentials, "" info@solovb.net "," 123456 ")
Pabandyti
smtp.Send (mymail)
MsgBox ("Pranešimas išsiųstas". MsgBoxStyle.OKOnly "info@solovb.net")
, Sugavimo ex Kaip išimties
MsgBox ("Klaida:")
Pabaiga Bandykite
bet nežinau, ar šį kodą į laukelį arba arba mygtuką galite man padėti?
Esu pradedantysis ESOT
Norėčiau pateikti šį kodą mygtuką siųsti po patvirtinti, kad visi duomenys įrašyti būtina.
Sėkmė
Viskas buvo puiku!
Ačiū už įėjimo
Sveikinimas
įdomus sobretod savo pavyzdžiu ir lengvai suprantama, bet turiu klausimą, noriu, laiško tekste yra ataskaitos turinys
, kaip dificio dalis, tikiuosi jūsų pagalbos
Labai ačiū. Mažas indėlis.
Norėdami išsiųsti su kopija (BK) =
correo.CC.Add ("Adresas")
Sveiki, turiu šią problemą:
Pasakiau "Nr. Pavadinimas buvo paskelbtas AMP"
ir
"Simbolis yra neteisingas", "šalia į stiprintuvą.
kurie gali padėti man padėkoti you very much.
Pakeiskite jį su &
MsgBox ("KLAIDA:" Klaida! "& Ex.Message, MsgBoxStyle.OKOnly.,)
Muuuuchas ačiū .. Aš rasiu, kad solucioen
Jūs galite pridėti kaip siunčiančioji arba elemento arba pridedant asmeninius archyvus?
Ačiū už kodą!
pasakėčia veikia!
Sveiki,
labai geras puslapis,
ar per siųsti laišką kodas quisisera galite siųsti aklai kopijuoti LK prie aikštės, kur yra keletas daugiau laiškų, ar tai įmanoma?
hello:
ačiū jums labai daug tarnavo mane nuostabiai, ačiū jums, aš pagaliau turėti galimybę siųsti laiškus, bet aš turėti a duditas kaip jūs įdėti nuorodą į kūną, kad būdas jums pritaikyti su HTML žymes ir kaip siųsti žinutę padėkos adjunto.muchas,, Aš dirbo puikiai kodą.