الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

فشل في ارسال الايميل

بدأه thepast في 2 فبراير 2012 · 4 رد · 568 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا استخدم هذا الكود لارسال ايميل

وشغال معي تمام التمام 

Dim tempApp As New Outlook.Application()
                        Dim tempNS As Outlook.NameSpace
                        Dim MailFolder As Outlook.MAPIFolder
                        tempNS = tempApp.GetNamespace("MAPI")
                        tempNS.Logon(, , True, True)
                        Dim newMail As Outlook.MailItem
                        MailFolder = tempNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox)
                        newMail = MailFolder.Items.Add(Outlook.OlItemType.olMailItem)
                        ' sent email will be saved in your outbox also
                        newMail.Subject = "New Request"
                        newMail.Body = "REQUEST NO (" & gvRow.Cells(0).Text & ") F"
                        newMail.To = "ofi@sbg-mp.com"
                        newMail.SaveSentMessageFolder = MailFolder
                        newMail.Send()
                        MailFolder = Nothing
                        tempNS = Nothing
                        tempApp = Nothing

بس المشكلة عندما وضعت مشروعي في IIS لم يعد يعمل

كيف استطيع التعديل على هذا الكود لكي يعمل معي

وايضا msgbox لم تعد تعمل

ماهو بديلها

ارجوووو المساعدة

#2

أخي : لا أدري لماذا تستخدم مكتبة ال Outlook لإرسال الايميل و لكن في الدوت نيت, الكود المتعارف عليه لإرسال ايميل مثل هذا المثال:

            public static void SendEMail(string To, string Subject, string Body, Attachment attachment = null)
{
        SmtpClient client = new SmtpClient("mail.google.com", 25);
            NetworkCredential mNetworkCredential = new NetworkCredential("EMail@gmail.com", "Password");
            client.Credentials = mNetworkCredential;
            MailAddress from = new MailAddress("EMail@gmail.com", "Name", System.Text.Encoding.UTF8);
            MailAddress to = new MailAddress(To);
            MailMessage message = new MailMessage(from, to);
            message.Body = Body;
            message.BodyEncoding = System.Text.Encoding.UTF8;
            message.Subject = Subject;
            message.SubjectEncoding = System.Text.Encoding.UTF8;

            if (attachment != null)
                message.Attachments.Add(attachment);

            client.Send(message);
}

تم تعديل هذه المشاركة بواسطة Adel Khayata في 3 فبراير 2012 في 09:21

مدونتي
#3

انا استخدم vb code

وهل هذا الكود يعمل اذا وضعت المشروع في IIS

وايضا عندي مشكلة message box لا تطهر عندي مسج نوع yes/no واذ ضغت على yes وضعت كود

كيف استطيع تشغيل المسج

ارجووو المساعدة

#4

يوجد مواقع تحول كود السي شارب الي كود vb

سبحانه الله وبحمده سبحانه الله العظيم

 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet
 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
#5

كما ذكر الأخ كريم يوجد عدة مواقع تقوم بتحويل الكود بين سي شارب و فيجوال بيسك منها:

Telerik Converter

Developer Fusion Converter

على كل, الكود المحول هو:

Public Shared Sub SendEMail(To__1 As String, Subject As String, Body As String, Optional attachment As Attachment = Nothing)
	Dim client As New SmtpClient("mail.google.com", 25)
	Dim mNetworkCredential As New NetworkCredential("EMail@gmail.com", "Password")
	client.Credentials = mNetworkCredential
	Dim from As New MailAddress("EMail@gmail.com", "Name", System.Text.Encoding.UTF8)
	Dim to__2 As New MailAddress(To__1)
	Dim message As New MailMessage(from, to__2)
	message.Body = Body
	message.BodyEncoding = System.Text.Encoding.UTF8
	message.Subject = Subject
	message.SubjectEncoding = System.Text.Encoding.UTF8

	If attachment IsNot Nothing Then
		message.Attachments.Add(attachment)
	End If

	client.Send(message)
End Sub
مدونتي

مواضيع مشابهة