ايران ويج

نسخه‌ی کامل: خواهش دارم
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام
خسته نباشيد
لطفا برنامه فرستادن ميل وگرفتن ميل را براي من بفرستيد خواهش دارم
كمكم كنيد
سعيد ت
سلام اينم جواب!
اين رو از بخشي از كدهام Copy Paste كردم.

System.Web.Mail.MailMessage l_milMessage = new System.Web.Mail.MailMessage();
string l_strMessage;

l_strMessage =
"User name: " + Environment.UserName + "\n" +
"Current date & time: " + System.DateTime.Now.ToString() + "\n" +
"-------------------------------Contents------------------------\n" +
txtMessage.Text + "\n" +
"---------------------------------------------------------------\n";
l_milMessage.From = "nobody@somewhere.net";
l_milMessage.To = "X@X.com";
l_milMessage.Subject = "[SSTRobot]Automatic Sended from user.";
l_milMessage.Body = l_strMessage;
l_milMessage.BodyFormat = System.Web.Mail.MailFormat.Text;

try
{
System.Web.Mail.SmtpMail.Send(l_milMessage);
}
catch(Exception exp)
{
MessageBox.Show(this, exp.Message, "Error!", MessageBoxButtons.OK,
MessageBoxIcon.Error);
}

با دلفی کسی سراغ نداره؟
Coolبرو بچ بدونند كدي كه در بالا نوشتم در VS.Net 2002 خوب كار مي كرد ولي در VS 2005 از كد زير استفاده كنيد:

System.Net.Mail.MailMessage l_milMessage = new System.Net.Mail.MailMessage();
string l_strMessage;

l_strMessage =
"User name: " + Environment.UserName + "\n" +
"Current date & time: " + System.DateTime.Now.ToString() + "\n" +
"-------------------------------Contents------------------------\n" +
txtMessage.Text + "\n" +
"---------------------------------------------------------------\n";
l_milMessage.From = new System.Net.Mail.MailAddress("nobody@somewhere.net");0
l_milMessage.To.Add("ccsadyprogrammer@yahoo.com");
l_milMessage.Subject = "[SSTRobot]Automatic Sended from vector user.";
l_milMessage.Body = l_strMessage;
l_milMessage.BodyEncoding = System.Text.Encoding.Unicode;

try
{
System.Net.Mail.SmtpClient l_stpClient = new System.Net.Mail.SmtpClient();

l_stpClient.Send(l_milMessage);
}
catch(Exception exp)
{
MessageBox.Show(this, exp.Message, "Error!", MessageBoxButtons.OK,
MessageBoxIcon.Error);
}
---------------------------------------------------------------------------------
Coolچرا veyskarami عزيز با دلفيش رو هم داريم اين هاش(البته منو ببخشيد كه مجبورم از دلفي در بخشِ #VC , C صحبت كنم):

فرض كن يك شئ IdSmtp داريم كد زير را بنويس راحت ترين كارِ:
IdSMTP1.QuickSend('Host Name', 'Subject', 'To:', 'AForm', 'AText');0
البته در مورد اين شئ TIdSmtp در Help دلفي يك كم جستجو كن ثواب داره!

Cool سعيد.ت Cool