Küldjön e-mailt egy Windows alkalmazás
Írta Elizeus a példák , oktatóanyagok nap 02 16th, 2009 | 50 válaszok
Ahhoz, hogy e-mailt küldeni a mi ablakok alkalmazása Visual Basic. net System.Net.Mail.MailMessage használható osztályt.
A következő példában létrehozunk egy űrlapot (Form1), egy szöveges mezőbe írja be az üzenetet (TextBox1), és egy gombot (Button1) is küldhetünk küldeni az e-mail.
Dim As New System.Net.Mail.MailMessage mymail miCorreo.IsBodyHtml = False miCorreo.From = "info@solovb.net" "mail címre küld correo.To.Add ("usuario@hotmail.com") "Levélben correo.Subject = "Teszt üzenet ablakok alkalmazása [solovb.net]" "Case miCorreo.Body TextBox1.Text = "Message Body miCorreo.Priority System.Net.Mail.MailPriority.Normal = 'prioritás Dim smtp As New System.Net.Mail.SmtpClient smtp.Host = "smtp.solovb.net" "Én át a megbízólevelet a fiókot és jelszót, ahonnan elküldte smtp.Credentials = Új System.Net.NetworkCredential ("info@solovb.net" "clave123456")) Megpróbál smtp.Send (mymail) MsgBox ("Üzenet elküldve". MsgBoxStyle.OKOnly, "solovb.net") Catch ex Mint Kivétel MsgBox ("Hiba:" & ex.Message, MsgBoxStyle.OKOnly, "Hiba!") Próbálja End
Az a tény, hogy adhat sok funkciót erre például szövegdobozok a feladó, címzett és SMTP beállításokat.
De egy példa (ahogy én szeretem) az egyszerűbb, annál jobb lesz ... nem lesz ideje, hogy bonyolítaná azt, haha.
Ha IsBodyHtml tulajdonságot Igaz, töltse ki a test és a HTML kódot, így a mi üzenetünk van, hogy jobban lássa.
Ha szolgált, hagyj egy kommentet.
50 Responses to "E-mail küldése egy Windows alkalmazás"
Hozzászólás
Információ Bitacoras.com ...
Ha kívánja, akkor kattintson az Szavazz erre a post Bitacoras.com. Köszönet ....
Jó.
Az egyik kérdés, a következő sort:
miCorreo.From = "josem.flores @ sfb.es" "mail címre küld
Ez azt jelzi, hogy egy érték típus "String" nem lehet átalakítani "System.Net.Mail.MailAdress"
Lássuk, ha tudok segíteni kérem. Mióta megváltozott, de nem tudom kijavítani ezt a hibát.
A köszöntés és köszönet
akkor a következő sort, hogy elkerüljék hiba
Új System.Net.Mail.MailAddress miCorreo.From = ("josem.flores @ sfb.es")
Elizeus
Köszönöm szépen.
De van egy probléma, én be a kódomat, és mondd meg a problémát:
Dim A New System.Net.Mail.MailMessage _Message ()
Dim As New System.Net.Mail.SmtpClient _SMTP
"STMP BEÁLLÍTÁSOK
= Új System.Net.NetworkCredential _SMTP.Credentials ("mail fiók", "password")
_SMTP.Host = "Smtp.gmail.com"
_SMTP.Port = 465
_SMTP.EnableSsl = True
"Megkaphatjuk
_Message. [A]. Add ("mail fiók") 'mail fiókot, amelyhez szeretnénk küldeni az e-mail
_Message.From = Új System.Net.Mail.MailAddress ("mail fiók", "name", System.Text.Encoding.UTF8) "a küldő
_Message.Subject = "Teszt" "témája az e-mail
_Message.SubjectEncoding System.Text.Encoding.UTF8 = "Kódolás
_Message.Body = "Ez egy teszt" "tartalma az e-mail
_Message.BodyEncoding = System.Text.Encoding.UTF8
"_Message.Priority = System.Net.Mail.MailPriority.Normal
_Message.IsBodyHtml = False
"Mellékletek csatolása
"Dim _file As String = My.Application.Info.DirectoryPath &" fájl "" fájlt szeretnénk csatolni
"Dim As New System.Net.Mail.Attachment _Attachment (_file, System.Net.Mime.MediaTypeNames.Application.Octet)
"_Message.Attachments.Add (_Attachment)
"Hajózási
Megpróbál
_SMTP.Send (_Message)
Catch ex Mint System.Net.Mail.SmtpException
"MessageBox.Show (ex.ToString)
Próbálja End
Ez a kód rendben van.
Most, amikor e-mailt küldeni kapom a következő hiba:
Ez meghaladta a várakozási idő az alkalmazás.
Csinálok egy telnet smtp.gmail.com 465 kapcsolódni tökéletesen, de még nem küldi el az e ...
Nagyra értékelném, ha törölheti, hogy adjon nekem egy megoldás, mert nem tudom, hogy ...
A köszöntés és nagyon köszönöm előre.
A kód jó, valójában én használd a apliaciones és fut. Úgy látszik, a probléma néhány Gmail beállítások hiányoznak. A gmail kapok hibaüzenetet. Ha én, hogy működik a Gmail, fogom elküldeni a megoldást.
Köszönöm!
Ok Elizeus.
Tudom megváltoztatni a port, mint a 587 nem engedte átjutni telnet, de még mindig nem működik ...
Én folyamatosan keresem, és ha mondom neki valamit. És remélem a megoldás, ha az sem sikerül.
Nagyon szépen köszönöm és üdvözlettel.
Az úton.
Meg tudná mondani nekem olyan SMTP szervert is megfelelően fog működni your're fut, például meg kell végrehajtani, hogy a lehető leghamarabb, és nem találok olyan szervert ami működik ...
Hátha meg lehet mondani, akivel, és megpróbálom, hátha így ha dolgozom.
Nagyon szépen köszönöm ismét.
A köszöntés.
Jó.
Most minden el van intézve, nem volt probléma a víruskereső programok vágott féreg tömeges levelezést folytat ... be kell vezetni a kivételek folyamat és működik.
Köszönöm szépen.
A köszöntés.
Jó reggelt.
Nekem van egy kód nagyon hasonló suyo.El probléma az, hogy nem e-mailt küldeni, amíg nem zárja be az alkalmazást, vagy más levelezési entionces utóbbit nem küldi el. Vajon tudod, miért vagy hogyan tudom megjavítani?
Köszönöm
Ez egy nagyon jó funkció! köszönöm ezt megosztja velünk
Köszönjük, hogy megosztottad ezt a kódot ... Azt megőrjít és semmi kimentem a levelet. Hála a tiéd megoldotta a hibát. Csak így tovább ...
hellos, azok számára, akik nem találják az SMTP szerver működik, adok egy konfigurációt, hogy használják a Windows Live Hotmail, 100%-ban biztos bízom a kód megfigyelni.
Kérjük, ne módosítsa a program kódot kapcsolatban a szerver konfigurációs hibák elkerülése végett.
Dim As New System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = Új System.Net.Mail.MailAddress ("ejemplo@hotmail.com"), "e-mailt küldeni, ahonnan
miCorreo.To.Add ("ejemplo@hotmail.com") "Levélben
miCorreo.Subject = "példa" "Case
miCorreo.Body = "Ön nem tud egy szövegrészlet vagy html kódot, ha expesificas is szerepelnek majd az üzenetet"
miCorreo.Priority System.Net.Mail.MailPriority.Normal = 'prioritás
"Nem változtatja meg a következő sorokat qye és megfelel az SMTP szerver coniguracion a Microsoft (Windows Live)
Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = "25"
smtp.EnableSsl = True
"Én át a megbízólevelet a fiókot és jelszót, ahonnan elküldte
= Új System.Net.NetworkCredential smtp.Credentials ("ejemplo@hotmail.com", "password")
Megpróbál
smtp.Send (mymail)
MsgBox ("Üzenet elküldve". MsgBoxStyle.OKOnly)
Catch ex Mint Kivétel
MsgBox ("Hiba:")
Próbálja End
és utolsó agredezco a Teremtő az elem szolgált nekem is. köszönöm
PARTNERS nagyon szépen köszönöm néhány főnökök igazság, hogy nekem sok információ szolgált.
Hello, te vagy andubo? , Képes volt küldjön levelet?
Kapok hiba történt küldjön egy e-mailt
A hitelesítő adatok rendben?
vagy ha találok egy másik?
Üdvözlet.
Mindenkinek jó, ezen a poszton is sokat segített, de van egy kis probléma, amikor csatolni egy fájlt, kapom a következő hiba: NotSupportedException ben nem kezelt
Nem támogatott formában adják meg az utat.
Kód:
Dim Fájl As String = My.Application.Info.DirectoryPath & "c: \ arcchivo.rar"
__________________inicio bug ahol a márka
Dim csatolt As New System.Net.Mail.Attachment (fájl, System.Net.Mime.MediaTypeNames.Application.Pdf)
msg.Attachments.Add (mellékelve)
__________________fin bug ahol a márka
ha valaki tudja megmondani, csinálok rosszul köszönöm előre.
Tartsa PC annyira hasznos.
ta hola q tal chebre a hozzászólásban, de q dolgozik meg lehet változtatni a
_SMTP.Port = 465
által
_SMTP.Port = 587
nekem, hogy futok.
q szerencse Isten áldja
Kipróbáltam ezt a kódot, és ez tökéletesen működött, csináltam a módosításokat az SMTP szerver recomendades Pharsat és magyarázat, hogy Elizeus miCorreo.From = Új System.Net.Mail.MailAddress ("josem.flores @ sfb.es"), és volt jó, köszönöm szépen.
Köszi a kódot
Szia.
Én már kidolgozott egy programot küldeni SMTP-n keresztül hozzáférés az Exchange Server hitelesítést SSL-lel. A program tökéletesen működik bármilyen számítógépről a hálózaton kívüli, ahol az Exchange Server, de ha azt telepítsd fel a PC hálózat Exchange Server nem működik. Mindig ad szerver nem található hiba.
A PING a szerver a LAN a DNS, IP állami, magán, telnet, stb .. nem adott választ. Az Exchange szerver log nem mond semmit, akkor nyilvánvaló, hogy senki sem tudja. Víruskereső és tűzfal le Van ötleted?
q das hi Parsat mefunciona kód marabillas, de van egy probléma van egy űrlap, ahol q APODER fog helyezni minden olyan levelet küldeni az üzenetet, ahogy én is a forgatókönyvben espesificar q lásd a mezők tudni q küld e-aq Az üzenet, az ügyet
agradeseria akkor sok, ha mepudes ayuadar
A Windows 7 Professional nem működik, miért?
Kiváló kód testvére
sok köszönet
Hello mindenkinek, és próbálja meg az eredeti kódot, módosítását parshat a többi cég, és tiltsa le a víruskereső és tűzfal, és még mindig nem küldte el a kódot másolni és beilleszteni a mezők nyilvánvaló valaki tud adni nekem egy másik megoldás ?
Én újra, ha valaki nem próbálja ki a port a 587 hotmail
Nagyon jó volt köszönhető ez segített nekem egy nagy
Szia. Ezek az első lépések vb.net, (eddig be a VB6). A kódot az e-mail szerver nekem is, nagyon jó példa. Most azt akarom, hogy bonyolítja a köszönetnyilvánítás, mellékletek, stb. Meg akartam kérdezni egy kis dolog tudná küldeni nekem egy példát, hogy le-mail? Köszönöm szépen mindent.
Ami egy lekérdezést, és küldj e-mailt a probléma van szükségem envviar egy képet az e-mail szervezet nem csatolt (type reklám), de nem engedte elküldeni .. Nekem van egy RichTextBox a kép, de nem küld semmit ... ha valaki tud segíteni nekem, hogy nagyon értékelem
Az én e-mail lesterelpepecalderon@hotmail.com
Tettem egy kicsit több, mint szépség hozzátéve, hogy az űrlap textbox és egy gomb és egy RichTextBox hogy több paresca egy webes űrlapot. Ehhez jön létre:
Textbox1 (sz)
Textbox2 (vevő)
Textbox3 (email)
Textbox4 (passwor - jelszó)
RichTextBox1 (üzenet)
Button1 ('Küldés' gombra)
van beállítva, hogy a Hotmail, hagyja az alábbi kódot:
button1 kattintson ide:
Dim As New System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = Új System.Net.Mail.MailAddress (TextBox2.Text) "küld mail címét, amelyre
miCorreo.To.Add (TextBox3.Text) "Levélben
miCorreo.Subject TextBox1.Text = "Tárgy
miCorreo.Body = RichTextBox1.Text
miCorreo.Priority System.Net.Mail.MailPriority.Normal = 'prioritás
"Nem változtatja meg a következő sorokat, amennyiben azok érintik az SMTP szerver coniguracion a Microsoft (Windows Live)
Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = True
"Én át a megbízólevelet a fiókot és jelszót, ahonnan elküldte
= Új System.Net.NetworkCredential smtp.Credentials (TextBox3.Text, TextBox4.Text)
Megpróbál
smtp.Send (mymail)
MsgBox ("Üzenet elküldve". MsgBoxStyle.OKOnly)
Catch ex Mint Kivétel
MsgBox ("Hiba:")
Próbálja End
úgy, ahogyan azt követi az eredeti kódot, de a kód volt Marine SMTP beállításokat hotmail elmondhatom több szépséget a formában ahogy ezen a képen: http://i46.tinypic.com/34ir2c0.jpg
Remélem, és tálaljuk üdvözletét és köszönetet SoloVB
Azt mondom viszlát!
Sziasztok, az alábbi hibaüzenet, és nem azért, mert az összes, a kódot, ahogy van.
A hiba a következő:
Hiba üzenet küldése.
valaki, aki tud segítsen nekem kérem.
köszönöm a hozzájárulást muchisisisimo szolgált engem komolyan
Velem csodálatosan működött
Hello, küldök egy linket, amely automatikusan egy gomb, ha az adatokat kell magammal válogatott az Oracle adatbázis, az egyetlen dolog a kell, hogy, téma: düh belül, a szöveg és a kapcsolat kell küldeni, de nem tudta, hogyan segítsen nekem!
Hé barátok nem értsen félre dolgozott mm
úgyhogy a codigolo
Public Class Form1
Enviarcorreo Public Sub ()
Dim As New System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = Új System.Net.Mail.MailAddress ("luisfernandop.s @ hotmail.com"), "e-mailt küldeni, ahonnan
miCorreo.To.Add ("luisfernandop.s @ hotmail.com") "Levélben
miCorreo.Subject = "teszt fer" "Case
miCorreo.Body = "none"
miCorreo.Priority System.Net.Mail.MailPriority.Normal = 'prioritás
"Nem változtatja meg a következő sorokat qye és megfelel az SMTP szerver coniguracion a Microsoft (Windows Live)
Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = True
"Én át a megbízólevelet a fiókot és jelszót, ahonnan elküldte
= Új System.Net.NetworkCredential smtp.Credentials ("luisfernandop.s @ hotmail.com", "/ n @ ndo/6724766887")
Megpróbál
smtp.Send (mymail)
MsgBox ("Üzenet elküldve". MsgBoxStyle.OKOnly)
Catch ex Mint Kivétel
MsgBox ("Hiba:")
Próbálja End
End Sub
Private Sub Button1_Click (ByVal feladónak System.Object, ByVal e Mint System.EventArgs) Nyel Button1.Click
enviarcorreo ()
End Sub
End Class
ha valaki tudna engem látni ezt a hibát én nagyon értékelem
smtp.Port = "587" "Nem 25, 587 nem és akkor működni fog tökéletesen.
Muyyyy jó munkái 10! ... Kiváló hozzájárulást! Most botkéz ... Köszönöm szépen =)
Rügyek keresztül Pharsat ..
Ön hozzájárulását sokat segített ...
Köszönet mindazoknak, akik hozzájárultak az ő segítségükkel mind kódot q
Helló xfa pl. valaki tudna mondani, mint én, ha akarok küldeni mail üzeneteket más, mint a hotmail ..
pl yahoo, gmail, stb ... vagy a cégem szerver ...
Discula 1 dudami ez az én-kód:
Dim As New System.Net.Mail.MailMessage mymail
Dim mail As New System.Net.Mail.MailMessage
micorreo.IsBodyHtml = False
Új System.Net.Mail.MailAddress micorreo.From = ("leboche@hotmail.com")
correo.To.Add ("leboche@hotmail.com")
correo.Subject = "üzenet prueva"
micorreo.Body = TextBox1.Text
micorreo.Priority = Net.Mail.MailPriority.Normal
Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 587
smtp.EnableSsl = True
= Új System.Net.NetworkCredential smtp.Credentials ("info@solovb.net", "123456")
Megpróbál
smtp.Send (mymail)
MsgBox ("Üzenet elküldve". MsgBoxStyle.OKOnly, "info@solovb.net")
Catch ex Mint Kivétel
MsgBox ("Hiba:")
Próbálja End
de nem tudom, ha ezt a kódot a szövegmezőbe, vagy egy gomb, vagy tudnál nekem segíteni?
Én vagyok a kezdő ESOT
Azt tenné, hogy ezt a kódot a küldés gombot, miután érvényesítése, hogy minden bevitt adatok szükségesek.
Szerencse
Minden úgy ment, nagyszerű!
Köszönöm a bemenet
A köszöntő
Érdekes sobretod példád és könnyen érthető, de lenne egy kérdésem, szeretném, ha az e-mail szerve a jelentés tartalmát
A dificio része, remélem a segítségedre
Köszönöm szépen. Egy kis hozzájárulást.
Hogy küldjön egy másolatot (CC) =
correo.CC.Add ("cím")
Hello, Én ezt a problémát:
Azt mondta: "Nincs név nyilvánították erősítő"
és
"Karakter nem érvényes" A "" melletti amp.
aki tud segíteni, nagyon szépen köszönöm.
Cserélje ki és
MsgBox ("Hiba:" & ex.Message, MsgBoxStyle.OKOnly, "Hiba!")
Muuuuchas köszönöm .. Találtam a solucioen
Lehet hozzá a küldő vagy elem hozzáadásával, vagy privát archívumok?
Mindenkinek köszönjük a kódot!
Fable működik!
Helló,
nagyon jó oldal,
quisisera-e a kódot küldött levelek küldéséhez Titkos titkos másolatot egy térre, ahol több több e-mailt, lehetséges ez?
hello:
nagyon szépen köszönöm szolgált számomra csodálatos, köszönöm, én sikerült végre levelet küldeni, de van egy duditas vonatkozóan, hogy hogyan teszel egy linket a szervezetben, így testre szabhatja a html tag-ek és hogyan kell elküldeni egy köszönöm adjunto.muchas, a Dolgoztam tökéletes kódot.