Изпратете е-мейл от приложение на Windows
Публикувано от Елисея в примери , ръководства на 02 шестнайсетият, 2009 | 50 отговори
За да изпращате поща от нашето приложение за Windows, в Visual Basic. мрежа System.Net.Mail.MailMessage използвайте класа.
За следващия пример ще създадем една форма (Form1), текстово поле, за да напишете съобщение (TextBox1) и бутон (Button1) да изпрати текста, за да изпратите електронна поща.
, Дим Както Ню System.Net.Mail.MailMessage mymail miCorreo.IsBodyHtml = False miCorreo.From = "info@solovb.net" "поща, където да изпратите correo.To.Add ("usuario@hotmail.com") "Получател на поща correo.Subject = "Тест съобщение от Windows прилагане [solovb.net]" "случай miCorreo.Body на = TextBox1.Text "тялото на съобщението miCorreo.Priority на = System.Net.Mail.MailPriority.Normal "приоритетни Дим SMTP Нова System.Net.Mail.SmtpClient smtp.Host = "smtp.solovb.net" "Прекарва пълномощията за сметка и парола, от който сте изпратили smtp.Credentials = Нов System.Net.NetworkCredential, ("info@solovb.net" clave123456 ")) Опитвам smtp.Send (mymail) MsgBox ("Съобщението е изпратено". MsgBoxStyle.OKOnly "solovb.net") Хвани бивш По изключение MsgBox ("ГРЕШКА:" Грешка! "& Ex.Message, MsgBoxStyle.OKOnly.,) Край Опитайте
Фактът, че можете да добавите много функционалност на този пример, като текстови полета за подател, получател и SMTP настройки.
Но за пример (както ми харесва) просто е по-добре получавате ... ще има време да го усложнява, хаха.
Ако ние IsBodyHtml имот да е истина, пълни тялото с HTML код, така че нашето послание има по-добър външен вид.
Ако сте служили, да оставите коментар.
50 Отговорите, за да "изпрати електронна поща от приложение на Windows"
Коментар
Информация Bitacoras.com ...
Ако желаете, можете да кликнете, за да гласуват за този пост Bitacoras.com. Благодарение ....
Добре.
Един въпрос, в следния ред:
miCorreo.From = "josem.flores @ sfb.es" поща, където да изпратите
Това показва, че стойността на тип "String" не могат да бъдат превърнати в "System.Net.Mail.MailAdress"
Нека да видим, ако мога да помогна, моля. Тъй като съм променил, но не мога да поправите тази грешка.
Поздрав и благодарение
можете да използвате следния ред, за да се избегне грешка
Нова System.Net.Mail.MailAddress miCorreo.From = ("josem.flores @ sfb.es")
Елисей
Благодаря Ви много.
Но имам проблем, поставете моя код и да ви кажа проблема:
, Дим Като на Ню System.Net.Mail.MailMessage _Message ()
, Дим Както Ню System.Net.Mail.SmtpClient _SMTP
"STMP Настройки
= Нови _SMTP.Credentials System.Net.NetworkCredential, ("поща", "парола")
_SMTP.Host = "Smtp.gmail.com"
_SMTP.Port = 465
_SMTP.EnableSsl = True
"Съобщение за конфигурация
_message [Да]. ("Поща") "поща, към който искате да изпратите електронна поща
_Message.From = За Ню System.Net.Mail.MailAddress ("поща", "Име", System.Text.Encoding.UTF8) "подател
_Message.Subject = "Тест" Предмет на електронна поща
_Message.SubjectEncoding = System.Text.Encoding.UTF8 "кодиране на
_Message.Body = "Това е тест" съдържанието на пощата
_Message.BodyEncoding = System.Text.Encoding.UTF8
"_Message.Priority = System.Net.Mail.MailPriority.Normal
_Message.IsBodyHtml = False
"Добавяне на прикачени файлове
"Дим _file като низ = My.Application.Info.DirectoryPath" файл "" файла, който искате да прикачите
"Дим Както Ню System.Net.Mail.Attachment, _Attachment (_file, System.Net.Mime.MediaTypeNames.Application.Octet)
"_Message.Attachments.Add (_Attachment)
"Морски транспорт
Опитвам
_SMTP.Send (_Message)
Да Хвани бивш Като System.Net.Mail.SmtpException
"MessageBox.Show (ex.ToString)
Край Опитайте
Този код е OK.
Сега, когато изпращате електронна поща, получавате следната грешка:
Той надхвърли чакането време на подаване на заявлението.
Telnet smtp.gmail.com 465 свържете перфектно, но въпреки това не изпратите електронно ...
Бих се радвал, ако можете да изчистите да ми даде решение, защото не мога да го ...
Поздрав и много ви благодаря предварително.
Кодът е добра, всъщност аз го използвате в apliaciones и текущи. Очевидно въпросът е с някои Gmail настройки, които липсват. С Gmail, получавам съобщение за грешка. Ако успея да работи с Gmail, аз ще публикуваме решението.
Благодаря ви!
Добре Елисей.
Аз промените порта на 587 не ми позволиха да получите чрез телнет, но все още не работи ...
Аз ще продължавайте да търсите и ако аз му кажа нещо. И аз се надявам на вашето решение, ако то все още не.
Благодаря ви много и най-добри пожелания.
По пътя.
Може ли да ми кажете някой SMTP сървър, който работи правилно, ти си работи например, трябва да го приложат възможно най-скоро и не мога да намеря всеки сървър, който работи ...
Виж, ако можете да ми кажете, с когото го правя и аз го пробвате и да видим, ако така че ако аз работя.
Благодаря ви много отново.
За поздрав.
Добре.
Сега всичко е изпълнено, това е проблем на антивирусни програми, които излизат червей провеждане на масовото изпращане ... трябва да се вписват в процеса изключения и работят правилно.
Благодаря Ви много.
За поздрав.
Добро утро.
Имам код, много, много подобен на suyo.El Проблем е, че аз не изпращате електронна поща, докато не затворите приложението, или друга доставка на пощата entionces последната не се изпраща. Бихте ли защо и как мога да го оправя?
Благодаря
Това е една много добра функция! благодаря за споделяне на това с нас
Благодарим Ви за споделяне на този код ... Това ме влудява и нищо не излезе пощата. Благодарение на Вашите решен грешката. Продължавайте в същия дух ...
hellos, за тези, които не могат да намерят SMTP сървър, който работи дам конфигурация, която се използва с Windows Live Hotmail, е 100% сигурен, оставя ли код, за да се наблюдава.
Моля да не се променят програмата си, свързани с конфигурацията на сървъра, за да избегнете грешки.
, Дим Както Ню System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = за Ню System.Net.Mail.MailAddress ("ejemplo@hotmail.com"), "Изпращане на поща, от където
miCorreo.To.Add ("ejemplo@hotmail.com") "Получател на поща
miCorreo.Subject = "Пример" дело
miCorreo.Body = "можете да сложите на низ от текст или HTML код,, ако expesificas тя ще включва съобщението"
miCorreo.Priority на = System.Net.Mail.MailPriority.Normal "приоритетни
"Не променяте следните qye, линии и отговаря на на SMTP coniguracion на сървъра на Microsoft (Windows Live)
Дим SMTP Нова System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = "25"
smtp.EnableSsl = True
"Прекарва пълномощията за сметка и парола, от който сте изпратили
= Нови smtp.Credentials System.Net.NetworkCredential, за "ejemplo@hotmail.com", "парола")
Опитвам
smtp.Send (mymail)
MsgBox ("Съобщението е изпратено". MsgBoxStyle.OKOnly)
Хвани бивш По изключение
MsgBox ("ГРЕШКА:")
Край Опитайте
и последно agredezco създател на елемента ми служи. благодаря
ПАРТНЬОРИ, благодаря ви много са малко истина шефовете, че ми служи много информация.
Здравейте, вие или andubo? , Е в състояние да изпрати мейл?
Ще получа моя грешка, когато се опитвате да изпратите електронно писмо
акредитивните ОК?
или когато мога да получа друг?
Поздрави.
Добре е за всички, този пост ми помогна много, но имам малък проблем, когато се прикачи файл, получавам следната грешка: NotSupportedException е необработено
Неподдържан формат, предвиден в пътя.
Код:
Дим файла като низ = My.Application.Info.DirectoryPath и "C: \ arcchivo.rar"
__________________inicio бъг, където марката
Дим запор В Ню System.Net.Mail.Attachment на (файл System.Net.Mime.MediaTypeNames.Application.Pdf)
msg.Attachments.Add (приложен)
__________________fin бъг, където марката
ако някой може да ми каже, аз греша, аз ви благодаря предварително.
Дръжте компютри са толкова полезни.
TA Hola В Тал chebre, вашия пост, но за Q работи за можете да промените
_SMTP.Port = 465
от
_SMTP.Port = 587
ми се, че пуска.
Q късмет Бог да благослови
Аз го изпробвах кода и да го работи перфектно, аз направих промени в SMTP сървъра Pharsat recomendades и анотиране Елисей да miCorreo.From = за Ню System.Net.Mail.MailAddress ("josem.flores @ sfb.es), и е Страхотно, благодаря ви много.
Благодаря за кода
Ей.
Са разработили програма за изпращане чрез SMTP достъп до Exchange Server, който изисква удостоверяване с SSL. Програмата работи перфектно от всеки компютър извън мрежата, където обмен на сървъра, но ако го инсталирате на компютър, сървър, мрежа за обмен не работят. Винаги давайте сървърът не е намерена грешка.
Използване на пинг към сървъра от локалната мрежа към DNS, IP публични, частни, Telnet и др. при условие че няма отговор. От дневника на Exchange Server не казва нищо, то е ясно, че никой не знае. Антивирусна и защитна стена изключен някакви идеи?
Q Das Hi Parsat mefunciona код на marabillas, но имам проблем Имам форма, където р APODER ще постави всяка поща, за да изпратите съобщението, като мога да в скрипт espesificar, Q видите полетата на формуляра да се знае, Q ще изпрати е-AQ съобщение, въпросът
agradeseria ви много, ако mepudes ayuadar
С Windows 7 Professional не работи, защо?
Отлична код брат
много благодаря
Здравейте на всички и опитайте оригиналния код, промяната на parshat, с друга компания и деактивиране на антивирусен софтуер и защитна стена и все още не ме изпращане на код, за да копирате и поставяте с полета очевидно някой може да ми даде друго решение ?
Отново, ако някой не се опитва на порт 587 в Hotmail
Беше много добра благодарение на това ми помогна голяма
Ей. Това са първите ми стъпки в vb.net, досега с VB6). Код за сървър за електронна поща ме добре, е много добър пример. Сега искам да се усложни с благодарности, прикачени файлове и др. Исках да попитам нещо малко, Може ли да ми изпратите един пример, за да изтеглите поща? Благодаря ви много за всичко.
Ами заявка и да ми изпратите имейли проблем е, че трябва envviar изображение в имейл тялото не като прикачен файл (тип реклама), но не ми позволи да изпратите ... Имам в RichTextBox изображението, но не изпраща нищо ... ако някой може да ми помогне значително ще оценят
моя имейл е lesterelpepecalderon@hotmail.com
Сложих малко повече в сравнение с добавянето на красота виждаш форма и един бутон и едно RichTextBox така, че повече paresca уеб формуляр. За това ние ще създадем:
Textbox1 (дело)
Textbox2 (получател)
Textbox3 (съобщение)
Textbox4 (passwor парола)
RichTextBox1 (съобщение)
Button1 (бутона)
е конфигуриран да Hotmail, нека кода по-долу:
Button1 кликнете:
, Дим Както Ню System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = за Ню System.Net.Mail.MailAddress "(TextBox2.Text) изпраща мейл адрес, където
miCorreo.To.Add (TextBox3.Text) "Получател на поща
miCorreo.Subject = TextBox1.Text предмет
miCorreo.Body = RichTextBox1.Text
miCorreo.Priority на = System.Net.Mail.MailPriority.Normal "приоритетни
"Не се променят следните редове, тъй като те се отнасят до SMTP сървър coniguracion на Microsoft (Windows Live)
Дим SMTP Нова System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = True
"Прекарва пълномощията за сметка и парола, от който сте изпратили
= Нови smtp.Credentials System.Net.NetworkCredential, (TextBox3.Text, TextBox4.Text)
Опитвам
smtp.Send (mymail)
MsgBox ("Съобщението е изпратено". MsgBoxStyle.OKOnly)
Хвани бивш По изключение
MsgBox ("ГРЕШКА:")
Край Опитайте
, тъй като те виждат следват оригиналния код, но кодът на морските настройки за SMTP за Hotmail, аз просто казват, че повече красота форма, както е показано на тази снимка: http://i46.tinypic.com/34ir2c0.jpg
Надявам се и обслужващите ги поздрави и благодарение SoloVB
Аз казвам "сбогом"!
Здравейте получавам следното грешка и не, защото те поставят цялата код, тъй като тя е.
грешката е:
Ако изпращането на съобщение.
някой, който може да ми помогне моля.
благодаря за вноски muchisisisimo ми служи сериозно
С мен работи чудесно
Здравейте, Аз изпращам линк автоматично дава бутон, за случаите, когато данните трябва да изберете в базата данни на Oracle, единственото нещо, трябва да има за предмет: Гняв в текста и връзката трябва да бъдат изпратени, но не и как може да ми помогне!
хей приятели, не ме разбирайте погрешно, работил mm
така че аз нямам на codigolo
Общественото клас Form1
Enviarcorreo Public Sub ()
, Дим Както Ню System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = на Ню System.Net.Mail.MailAddress ("luisfernandop.s @ hotmail.com"), "Изпращане на поща, от където
miCorreo.To.Add ("luisfernandop.s @ hotmail.com") "Получател на поща
miCorreo.Subject = "тест FER" дело
miCorreo.Body = "никой"
miCorreo.Priority на = System.Net.Mail.MailPriority.Normal "приоритетни
"Не променяте следните qye, линии и отговаря на на SMTP coniguracion на сървъра на Microsoft (Windows Live)
Дим SMTP Нова System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = True
"Прекарва пълномощията за сметка и парола, от който сте изпратили
= Нови smtp.Credentials System.Net.NetworkCredential, ("luisfernandop.s @ hotmail.com", "/ N @ ndo/6724766887)
Опитвам
smtp.Send (mymail)
MsgBox ("Съобщението е изпратено". MsgBoxStyle.OKOnly)
Хвани бивш По изключение
MsgBox ("ГРЕШКА:")
Край Опитайте
End Sub
Лично за Sub Button1_Click (ByVal подателя като System.Object, ByVal Е, System.EventArgs) Дръжки Button1.Click
enviarcorreo ()
End Sub
Край клас
ако някой може да ме накара да видя моята грешка оценили високо
smtp.Port = "587" № 25, 587 и ще работи перфектно.
Muyyyy добрите дела на 10! ... Отличен принос! Сега се придържам ръка ... Благодаря ви толкова много =)
Леторастите чрез Pharsat ..
Вашият принос ми помогна много ...
Благодаря на всички, които допринасят с тяхна помощ, както код Q
Здравейте xfa например някой може да каже, както аз правя, когато искам да изпращат съобщения от други поща от Hotmail ...
например Yahoo, Gmail и т.н. ... или моята компания сървър ...
Discula едно dudami това е моят код:
, Дим Както Ню System.Net.Mail.MailMessage mymail
Дим поща като нов System.Net.Mail.MailMessage
micorreo.IsBodyHtml = False
Нова System.Net.Mail.MailAddress micorreo.From = ("leboche@hotmail.com")
correo.To.Add ("leboche@hotmail.com")
correo.Subject = "съобщение prueva"
micorreo.Body = TextBox1.Text
micorreo.Priority = Net.Mail.MailPriority.Normal
Дим SMTP Нова System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 587
smtp.EnableSsl = True
= Нови smtp.Credentials System.Net.NetworkCredential, ("info@solovb.net", "123456")
Опитвам
smtp.Send (mymail)
MsgBox ("Съобщението е изпратено". MsgBoxStyle.OKOnly "info@solovb.net")
Хвани бивш По изключение
MsgBox ("Грешка")
Край Опитайте
но не знам дали този код в текстовото поле, или от или на един бутон можете да ми помогнете?
Аз съм начинаещ в ESOT
Ще сложа този код в бутона за изпращане след валидиране, че всички данни, вписани необходими.
Късмет
Всичко мина страхотно!
Благодаря за вход
Поздрав
интересно sobretod вашия пример и лесни за разбиране, но имам един въпрос, искам те по пощата орган е съдържанието на доклада
, като dificio е част, надявам се от вашата помощ
Благодаря Ви много. Малко дарение.
За да изпратите с копие (CC) =
correo.CC.Add ("Адрес")
Здравейте, имам този проблем:
Аз казах: "Без име е обявен за усилвател"
и
"Характер не е валиден" от "" към усилвател.
, който може да ми помогне благодаря ви много.
Заменете го с &
MsgBox ("ГРЕШКА:" Грешка! "& Ex.Message, MsgBoxStyle.OKOnly.,)
Muuuuchas благодарение ... Аз не съм намерил на solucioen
Можете да добавите като изпращане или елемент или като добавяне на частни архиви?
Благодаря на всички за кода!
басня работи!
Здравейте,
много добра страница,
quisisera дали чрез код за изпращане на поща може да изпратите скрито на Ск копие на площада, където са още няколко имейли, е възможно това?
Здравейте:
ви благодаря много ми сервира прекрасно, ви благодаря, бях най-накрая могат да изпращат електронна поща, но аз има един duditas как ви постави връзка в тялото, които начин можете да персонализирате с HTML тагове и как изпращането на един благодарствено adjunto.muchas, на Работих перфектно кода.