ارسال ایمیل با Smtp (از داخل خود برنامه)

با سلام

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

نکته : ابتدا کتابخانه Net را فعال کنید.

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

dim SMTP as SMTP

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

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
SMTP.Initialize("smtp.gmail.com", 587, "gmail", "password", "SMTP")
SMTP.StartTLSMode = True
End If
EndSub

 

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

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

SMTP.To.Add("syed@yahoo.com")
SMTP.Subject = "test"
SMTP.Body = "سلام، این برای تست است "
SMTP.Send
ProgressDialogShow("Sending...")

 

در این قسمت، ادرس ایمیلی رو قرار میدید که این ایمیل ، قراره بهش ارسال شه…
مثلا من میخوام ایمیلی که میفرستم بره به syed@yahoo.com
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

 

ساب بالا بررسی میکنه که ایمیل ارسال شد یا نه .

نکته :
۱- این روش ارسال ایمیل امنیت ندارد و پسورد شما در خطر .
۲- کافه بازار این روش را قبول ندارد وبرنامه شما را تایید نمی کند .
۳- (مهم) برای ارسال شدن باید در تنظیمات جیمیل اجازه بدید به برنامه های با امنیت کمتر.
۴- دسترسی اینترنت هم فراموش نشه .