مشكل در ارسال ايميل

[hsadeh]

من يك فرم ارسال ايميل براي كاربران طراحي كردم تا كاربران نظرات خودشان را برايم ارسال كنند . مشكل اينجاست كه وقتي ايميل را دريافت ميكنم ، فرستنده و گيرنده را خودم نشون ميده .كد :


Dim mm As New MailMessage()
mm.From = New MailAddress(Me.Txt_Email_From.Text)
mm.To.Add("AAA@gmail.com")
mm.Subject = Me.Txt_Subject.Text
mm.Body = Me.Txt_Email_text.Text
mm.IsBodyHtml = True
Dim smtp As New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.EnableSsl = True
Dim NetworkCred As New System.Net.NetworkCredential()
NetworkCred.UserName = "AAA@gmail.com"
NetworkCred.Password = "xxxxxxxx"
smtp.UseDefaultCredentials = True
smtp.Credentials = NetworkCred
smtp.Port = 587
smtp.Send(mm)

[Saber_Fatholahi]

خوب دوست عزیز معلومه شما داری با استفاده از ایمیل خودت و از طریق سایتت به خودت ایمیل میزنی

[Aidin]

احتمالا انتظار ندارید که فرستنده را Email کاربر بزنه که ؟
شما باید تو قسمت Body ایمیل کاربرتون رو اضافه کنید تا در متن ایمیل شده به خودتون ببینیدش.

[hsadeh]

جناب آقاي Saber_Fatholahi (http://barnamenevis.org/forum/member.php?u=32514) ، ميشه خواهش كنم كه راهنمايي بفرماييد كه كدم را چطوري اصلاح كنم ؟ طوري كه وقتي از طرف كاربر برايم ايميل بيايد ، به صورت زير بيايد :

آدرس ايميل كاربر : From
آدرس ايميل خودم: To

[Aidin]

آدرس From برای Reply کردن بکار میره.

[sahele_sheni]

دوست عزیز باید ببینی از اونجایی که هاست گرفتی برای ارسال میل چه تنظیماتی میخوان

من این کد رو استفاده میکنم ...




Dim smtpServer As String = "mail.yourdomain"
Dim userName As String = "ایمیلی که قراره به اون ارسال بشه "
Dim password As String = "پسورده ایمیلی که در بالا میدید"
Dim cdoBasic As Integer = 1
Dim cdoSendUsingPort As Integer = 2
Dim msg As New MailMessage
If userName.Length > 0 Then
msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver",smtpServer)
msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing",cdoSendUsingPort)
msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate",cdoBasic)
msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", userName)
msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", password)
End If
msg.[To] = "ایمیلی که قراره به اون ارسال بشهr"
msg.From = email.Text
msg.Subject = subject.Text
msg.Body = name.Text & "::" & emailcontent.Text
SmtpMail.SmtpServer = smtpServer
SmtpMail.Send(msg)


اگه سوالی بود بپرس .
موفق باشید .

[Aidin]

شما نمیتونی فرستنده ایمیل رو تعیین کنی ، کسی فرستنده ایمیل نشون داده میشه که User و Pass رو در NetworkCred مشخص میکنی.

[hsadeh]

جناب آقاي sahele_sheni (http://barnamenevis.org/forum/member.php?u=71286) ، ضمن تشكر از شما و ساير دوستان ،من كد شما را استفاده كردم ولي msg.Fields.Add و SmtpMail.SmtpServer را نمي شناسد . آيا بايد چيز ديگري اضافه كنم ؟

جناب آقاي Aidin (http://barnamenevis.org/forum/member.php?u=15176) ، ضمن تشكراز توجه شما ، آيا شما نمونه كدي براي دريافت ايميل از كاربران داريد ؟

[Aidin]

از این کد برای ایجاد Connection با سرور POP3 استفاده کنید :

Pop3Client email = new Pop3Client("user", "password", "mail.server.com");

از این کد برای باز کردن Inbox :

email.OpenInbox();

با استفاده از تابع email.NextEmail() میتونید وجود یا عدم وجود Mail رو در Inbox بررسی کنید :

مثال :

try {
Pop3Client email = new Pop3Client("user", "password", "mail.server.com");
email.OpenInbox();

while( email.NextEmail())

{
if(email.IsMultipart)
{
IEnumerator enumerator = email.MultipartEnumerator;
while(enumerator.MoveNext())
{
Pop3Component multipart = (Pop3Component)
enumerator.Current;
if( multipart.IsBody )
{
Response.Write("Multipart body:"+
multipart.Body);
}
else
{
Response.Write("Attachment name="+
multipart.Name); // ... etc

}
}
}
}

email.CloseConnection();

}
catch(Pop3LoginException)
{
Response.Write("You seem to have a problem logging in!");
}



* کلاس های مورد نیاز پیوست شده است.