ارسال ایمیل

[مجتبی قاسمی 53]

سلام خدمت دوستان .من میخام کمکم کنین. 

من یه سورس میخام واسه یه قسمت مثلا ارسال نظر.که کاربر بتونه با پر کردن یه تکست باکس و زدن روی دکمه ارسال یه ایمیل واسه من بیاد.

1.آیا امکانش هست که ایمیل ارسال شونده داخل خود سورس باشه که مثلا کسی که ایمیل نداره بتونه نظرشو بده.

ممنون میشم کمکم کنین.

ببخشین اگه سوالم مشکل داره

[shahab.es 5,429]

لازم نیست این همه رو کامنت کنی برادرم

خدمتت عرض کردم که توی اکانت گوگلتون، باید اجازه بدید به برنامه های با امنیت کمتر

در ضمن، دسترسی به اینترنت رو هم که دادی به برنامه دیگه برادر؟

[مجتبی قاسمی 53]

این رو بررسی کنید دوست عزیزم

به کتابخونه Net نیاز دارید...

فقط باید توی اکانت جیمیلی که میسازین، دسترسی به برنامه ها با امنیت کمتر رو هم بدید....

 

اول کتابخونه net رو تیک بزنید

یه شیئ از نوع SMTP ایجاد میکنیم...

dim SMTP as SMTP

بهتره یه شرط قرار بدید که اگه بار اوله که این اکتیوتی باز شده، اینیشیالایزش کنه

توجه کنید که نمیشه از فایل تکست استفاده کرد

چون نیازه که هر بار برنامه باز میشه، یکبار اینیشیالایز بشه این شیئ 

If FirstTime Then 
        SMTP.Initialize("smtp.gmail.com", 587, "gmail", "password", "SMTP")
        SMTP.StartTLSMode = True
    End If

خوب

اینجا یه توضیح لازم دار

شما باید یه اکانت Gmail باز کنید تا برنامه ، با استفاه از اون اکانت، ایمیل هارو بفرسته

در بالا به جای Gmail ، ادرس ایمیلتون رو بدید و به جای Password هم رمز عبور این ایمیلی که ساختید رو قرار بدید....

 

در رویداد کلیک دکمه ارسال، میاین و کدهای زیر رو قرار میدید...

SMTP.To.Add("[email protected]")
	SMTP.Subject = "test"
	SMTP.Body = "سلام، این برای تست است "
	SMTP.Send
	ProgressDialogShow("Sending...")

Smtp.to.add :

در این قسمت، ادرس ایمیلی رو قرار میدید که این ایمیل ، قراره بهش ارسال شه...

مثلا من میخوام ایمیلی که میفرستم بره به [email protected]

subject :

مشخصه ، تیتر ایمیلتون هست...

body هم که بدنه ایمیل و پیام اصلیتون رو تشکیل میده

در اخر، از متد SMTP.SEND اشتفاده میکنیم تا ارسال شه و یک پراگرسس مسیح نشونمون بده که در حال ارساله

خوب

کار الان تمومه

اما برای کامل تر شدن، 

میاین از تنها sub این متد، استفاده میکنید...

Sub SMTP_MessageSent(Success As Boolean)
    Log(Success)
    If Success Then
		ProgressDialogHide
        ToastMessageShow("پیغام شما با موفیت ارسال شد ", True)
    Else
		ProgressDialogHide
        ToastMessageShow("خطا!!!", True)
        Log(LastException.Message)
    End If
End Sub 

نیاز به توضیح خاصی نداره

این ایتم، برای اینه که ایا ایمیلتون ارسال شده یا نه

که خودتون میتونید راحت بفهمیدش

موفق تر از قبل باشید...

 

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

[مجید آرتا 5,874]

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

سلام

کتابخونه NET  یادمه مشکل داشت و یک نسخع داشت که خوب کار میکرد یادم نیست نسخه چندشه

خب شما برای ارسال ایمیل در هر صورت نیاز دارید انلاین باشید حالا با PHP  که دوست عزیزمون قرار دادن هم میشه(بنده کد PHP  رو تست نکزدم که از صحت کارکردش مطمئن بشم) و در کنارش یک هاست نیاز دارید.در هر صورت یک برنامه نویس به یک هاست حداقل 100 مگابایت نیاز داره ( از این رایگانا ها استفاده نکنید چون خیلیا یا تماما فایل PHP  رو پشتیبانی نمیکنن)

[mmv68t 27]

توی اکانت گوگلتون، باید اجازه بدید به برنامه های با امنیت کمتر

ببخشید این معنیش چی میشه یعنی دقیقا باید چیکار کنیم؟

[shahab.es 5,429]

سلام عزیز دلم

اینو اضافه کن به این قسمت

SMTP.AddAttachment(File.DirAssets,"shahab.txt")

به این قسمت

SMTP.To.Add("[email protected]")
	SMTP.Subject = "test"
	SMTP.Body = "سلام، این برای تست است "
	SMTP.Send
	ProgressDialogShow("Sending...")

اینطوری باید بشه اخرش

SMTP.To.Add("[email protected]")
	SMTP.Subject = "test"
	SMTP.Body = "سلام، این برای تست است "
SMTP.AddAttachment(File.DirAssets,"shahab.txt")
	SMTP.Send
	ProgressDialogShow("Sending...")

موفق تر باشی

[مجتبی قاسمی 53]

ممنون از راهنماییتون .اما مشکلم حل نشد .اگه میشه جواب سوالمو بدین .خیلی ممون میشم

[mohammad_mahdi 451]

فکر کنم با httputils2 که به php وصل بشین، از طریق php بشه ایمیل داد.

البته کاربر باید آنلاین باشه.

[shahab.es 5,429]

این رو بررسی کنید دوست عزیزم
به کتابخونه Net نیاز دارید...

فقط باید توی اکانت جیمیلی که میسازین، دسترسی به برنامه ها با امنیت کمتر رو هم بدید....
 

اول کتابخونه net رو تیک بزنید
یه شیئ از نوع SMTP ایجاد میکنیم...

dim SMTP as SMTP

بهتره یه شرط قرار بدید که اگه بار اوله که این اکتیوتی باز شده، اینیشیالایزش کنه
توجه کنید که نمیشه از فایل تکست استفاده کرد
چون نیازه که هر بار برنامه باز میشه، یکبار اینیشیالایز بشه این شیئ 

If FirstTime Then 
        SMTP.Initialize("smtp.gmail.com", 587, "gmail", "password", "SMTP")
        SMTP.StartTLSMode = True
    End If

خوب
اینجا یه توضیح لازم دار
شما باید یه اکانت Gmail باز کنید تا برنامه ، با استفاه از اون اکانت، ایمیل هارو بفرسته
در بالا به جای Gmail ، ادرس ایمیلتون رو بدید و به جای Password هم رمز عبور این ایمیلی که ساختید رو قرار بدید....
 
در رویداد کلیک دکمه ارسال، میاین و کدهای زیر رو قرار میدید...

SMTP.To.Add("[email protected]")
	SMTP.Subject = "test"
	SMTP.Body = "سلام، این برای تست است "
	SMTP.Send
	ProgressDialogShow("Sending...")

Smtp.to.add :
در این قسمت، ادرس ایمیلی رو قرار میدید که این ایمیل ، قراره بهش ارسال شه...
مثلا من میخوام ایمیلی که میفرستم بره به [email protected]
subject :
مشخصه ، تیتر ایمیلتون هست...
body هم که بدنه ایمیل و پیام اصلیتون رو تشکیل میده
در اخر، از متد SMTP.SEND اشتفاده میکنیم تا ارسال شه و یک پراگرسس مسیح نشونمون بده که در حال ارساله
خوب
کار الان تمومه
اما برای کامل تر شدن، 
میاین از تنها sub این متد، استفاده میکنید...

Sub SMTP_MessageSent(Success As Boolean)
    Log(Success)
    If Success Then
		ProgressDialogHide
        ToastMessageShow("پیغام شما با موفیت ارسال شد ", True)
    Else
		ProgressDialogHide
        ToastMessageShow("خطا!!!", True)
        Log(LastException.Message)
    End If
End Sub 

نیاز به توضیح خاصی نداره
این ایتم، برای اینه که ایا ایمیلتون ارسال شده یا نه
که خودتون میتونید راحت بفهمیدش
موفق تر از قبل باشید...
 

[مجتبی قاسمی 53]

فکر کنم با httputils2 که به php وصل بشین، از طریق php بشه ایمیل داد.

البته کاربر باید آنلاین باشه.

میشه بیشتر توضیح بدین یا سورس بدین

[mohammad_mahdi 451]

اول کتابخانه httputils2 و network را تیک بزنید

بعد این کد رو وارد کنید:

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim send_email As HttpJob
    Dim Button1 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    Activity.LoadLayout("Layout1")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
  send_email.Initialize("InsertP", Me)
  send_email.PostString("http://example.ir/send_email.php", "subject=موضوع&text=متن ارسالی&name=نام کاربر")
End Sub

Sub JobDone (Job As HttpJob)
  If Job.Success = True Then
      If Job.GetString = "OK" Then
          ToastMessageShow("با موفقیت ارسال شد", True)
      Else
          ToastMessageShow("مشکل در ارسال", True)
  End If
    Else
      ToastMessageShow("Error: " & Job.ErrorMessage, True)
  End If
  Job.Release
End Sub

بعدش باید در آدرس example.ir/send_email.php فایل php به همین نام رو داشته باشید.

محتویات فایل php

<?php
$name = $_POST['name'];
$email = ایمیل فرستنده;
$formcontent=" From: $name</br>$_POST['text']";
$recipient = "[email protected]";
$subject = $_POST['subject'];
$mailheader = "From: $email \r\n";
mail($recipient, $subject, $formcontent, $mailheader) or die("Error!");
?>

البته تاحالا امتحان نکردم. راستی ایمیل فرستنده رو هم نمیدونم آیا لازمه یا نه برای همین از کدهای برنامه نفرستادمش به php گفتم که تاحالا امتحان نکردم و نمیدونم استاندارده یا نه؟ روش شهاب جان هم خوبه اگه بری دنبالش.

[mmv68t 27]

ممنون و تشکر از وقتی که میزارین چرا بعضی وقتا جواب میده بعضی وقتا جواب نمیده

مشکل از اینجا نیست؟

توی اکانت گوگلتون، باید اجازه بدید به برنامه های با امنیت کمتر!!!!

[shahab.es 5,429]

سلام

برادرم یه جستجو میزدین قبل پرسیدن...

https://www.google.com/url?q=http://answercenter.ir/index.php%3F/topic/1795-%25D9%2586%25DB%258C%25D8%25A7%25D8%25B2-%25D8%25A8%25D9%2587-%25D8%25B3%25D9%2588%25D8%25B1%25D8%25B3-%25D8%25A7%25D8%25B1%25D8%25B3%25D8%25A7%25D9%2584-%25D8%25A7%25DB%258C%25D9%2585%25DB%258C%25D9%2584/%3Fview%3Dgetlastpost&sa=U&ved=0CAYQFjABahUKEwjf1ozu0bLHAhWIWBoKHeInDlg&client=internal-uds-cse&usg=AFQjCNGI9ha-ANff79PhbOkrvUuGrGgMow

 

http://answercenter.ir/topic/614-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D8%A7%DB%8C%D9%85%DB%8C%D9%84/

 

 

مشکلتون برطرف نشد، بگید که کمکم کنیم همراه دوستان