رفتن به مطلب
  • 0

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


arastooms

سوال

سلام به همه دوستن 
دکمه ای دارم که برای ارسال ایمیل مستقیم هست 
در ساب دکمه این فرمان رو نوشتم 
وقتی کار بر کلیک میکنه اولین بار 
یه صفحه باز میشه که ازش میپرسه با چه برنامه ای ؟؟؟
و یه لیست از برنامه هایی مثل 
وایبر و تلگرام و ایمیل و بلوتوث و ....
رو به کار بر نشون میده 
کار بر باید روی ایمیل کلیک کنه تا بتونه به ما ایمیل بزنه 
//////////////////
من میخام مستقیم بره تو ایمیل و دیگه نپرسه از کار بر با چه برنامه ای میخای ارتباط برقرار کنی!!
////////////////
متشکر میشم اگر راهنمایی بفرمایید
 

Try
       sendmail.To.Add(Main.e_mail_developer)
       sendmail.Subject = "موضوع را اینجا بنویسید"
       sendmail.Body = "مطلب خود را اینجا بنویسید"
       StartActivity(sendmail.GetIntent)
    Catch
       ToastMessageShow("ناموفق ", False)
    End Try
لینک ارسال
به اشتراک گذاری در سایت های دیگر

8 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام به الیاس عزیز و دوست داشتنی 

سپاس برای پاسخ کامل و دقیق و عالی و متشکرم  :gol:  :gol:  :gol: 

این روشی که گفتی یه مشکل خیلی اساسی داره که ما باید پسورد ایمیل " شرکت و گروه و یا حداقل خودمون رو قرار بدیم در برنامه " که اصلا منطقی نیست 

به محض باز کردن برنامه در دسترس افراد هکر قرار میگیره به سادگی!!!

راه حل دیگه ای به نظرت نمیرسه استاد ؟؟ :fekr:

سلام بازار گیر نمیده؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

لطفا کتابخونه net هم قرار بدید

اگر دقیقا عبارت : کتابخانه Net

رو جست و جو کنید اولین تاپیکی که براتون میاره اینه :

http://answercenter.ir/topic/10661-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-net-%D9%86%D8%B3%D8%AE%D9%87-160-%D8%A2%D9%BE%D8%AF%DB%8C%D8%AA-%D8%A8%D9%87-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-15-%D8%AF%DB%8C-1394/

 

تست کنید ببینید درست میگم یا نه

تست کنید تا ببینید جست و جو کردن چقدر شیرینه و بهتون کمک میکنه  :malih:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام دلگشا

 

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

 

تازه فرضا اگه شما برنامه Gmail رو هم مستقیما با کدنوبیسی انتخاب کنی اصلا معلوم نیست اون برنامه رو گوشی کاربرات نصب باشن یا ن ک میشه ی دردسر بزرگ

 

بیا و مستقیم با کتابخانه Net و تابع SMTP ایمیل ارسال کن

 

تو ساب گلوبالز :

Dim SMTP As SMTP
Private user = "Your Email", password = "Your Password" As String ''//اینجا ایمیلی رو ک میخوای توی برنامت واسه ارسال قرار بده با رمزش میذاری جیمیل باشه حتما
Private smtpServer = "smtp.gmail.com" As String   '//اینو دست نمیزنی واسه جیمیله
Private smtpPort = 465 As Int '//اینم دست نمیزنی

و واسه ارسالش هم :

SMTP.To.Add("ایمیل مقصد")
SMTP.Subject = "موضوع" 
SMTP.Body = "متن ایمیل"
SMTP.send

این سابو هم ایجاد کن ک وقتی ارسال شد بفهمی :

Sub SMTP_MessageSent(Success As Boolean)
    If Success = True Then
	ToastMessageShow("Email Ba Movafaqiat Send Shod",True)
	eLSE IF Success = False Then
	ToastMessageShow("Email Send Nashod" ,True)
	End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام دلگشا

 

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

 

تازه فرضا اگه شما برنامه Gmail رو هم مستقیما با کدنوبیسی انتخاب کنی اصلا معلوم نیست اون برنامه رو گوشی کاربرات نصب باشن یا ن ک میشه ی دردسر بزرگ

 

بیا و مستقیم با کتابخانه Net و تابع SMTP ایمیل ارسال کن

 

تو ساب گلوبالز :

Dim SMTP As SMTP
Private user = "Your Email", password = "Your Password" As String ''//اینجا ایمیلی رو ک میخوای توی برنامت واسه ارسال قرار بده با رمزش میذاری جیمیل باشه حتما
Private smtpServer = "smtp.gmail.com" As String   '//اینو دست نمیزنی واسه جیمیله
Private smtpPort = 465 As Int '//اینم دست نمیزنی

و واسه ارسالش هم :

SMTP.To.Add("ایمیل مقصد")
SMTP.Subject = "موضوع" 
SMTP.Body = "متن ایمیل"
SMTP.send

این سابو هم ایجاد کن ک وقتی ارسال شد بفهمی :

Sub SMTP_MessageSent(Success As Boolean)
    If Success = True Then
	ToastMessageShow("Email Ba Movafaqiat Send Shod",True)
	eLSE IF Success = False Then
	ToastMessageShow("Email Send Nashod" ,True)
	End If
End Sub

سلام به الیاس عزیز و دوست داشتنی 

سپاس برای پاسخ کامل و دقیق و عالی و متشکرم  :gol:  :gol:  :gol: 

این روشی که گفتی یه مشکل خیلی اساسی داره که ما باید پسورد ایمیل " شرکت و گروه و یا حداقل خودمون رو قرار بدیم در برنامه " که اصلا منطقی نیست 

به محض باز کردن برنامه در دسترس افراد هکر قرار میگیره به سادگی!!!

راه حل دیگه ای به نظرت نمیرسه استاد ؟؟ :fekr:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام به الیاس عزیز و دوست داشتنی 

سپاس برای پاسخ کامل و دقیق و عالی و متشکرم  :gol:  :gol:  :gol: 

این روشی که گفتی یه مشکل خیلی اساسی داره که ما باید پسورد ایمیل " شرکت و گروه و یا حداقل خودمون رو قرار بدیم در برنامه " که اصلا منطقی نیست 

به محض باز کردن برنامه در دسترس افراد هکر قرار میگیره به سادگی!!!

راه حل دیگه ای به نظرت نمیرسه استاد ؟؟ :fekr:

 

قربانت عزیزم

 

ببین حق با شماس کاملا ولی شما لازم نیست ک حتما ایمیل خودتو قرار بدی :fekr:

 

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

 

ی راه دیگه هم هست

 

روش دیگه ای ب ذهنم نمیرسه جز همینی ک خودت گفتی و اینتنت ک بازم میشه مثه همون تابع Email

 

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

پکیج نیم برنامه ای رو ک میخوای باهاش ارسال کنی ایمیل رو پیدا کن کثل برنامه جیمیل :


Dim p As PackageManager2
Dim i As Intent
p.Initialize
i.SetComponent("پکیج نیم مثلا برنامه جیمیل")
i.Initialize(i.ACTION_SEND, "")
i.SetType("text/plain")
i.PutExtra("android.intent.extra.SUBJECT", "موضوع")
i.PutExtra("android.intent.extra.TEXT", "متن")
i = p.GetApplicationIntent("پکیج نیم برنامه مثلا جیمیل")
StartActivity(i)

ولی بازم همونی ک اول گفتم ساده و بی دردسر تره :)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اگر دقیقا عبارت : کتابخانه Net

رو جست و جو کنید اولین تاپیکی که براتون میاره اینه :

http://answercenter.ir/topic/10661-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-net-%D9%86%D8%B3%D8%AE%D9%87-160-%D8%A2%D9%BE%D8%AF%DB%8C%D8%AA-%D8%A8%D9%87-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-15-%D8%AF%DB%8C-1394/

 

تست کنید ببینید درست میگم یا نه

تست کنید تا ببینید جست و جو کردن چقدر شیرینه و بهتون کمک میکنه  :malih:

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...